Zajímavý

Spuštění aplikací Delphi s parametry

Spuštění aplikací Delphi s parametry

Ačkoli to bylo ve dnech DOSu mnohem běžnější, moderní operační systémy také umožňují spouštět parametry příkazového řádku proti aplikaci, takže můžete určit, co má aplikace dělat.

Totéž platí pro vaši aplikaci Delphi, ať už jde o aplikaci konzoly nebo aplikaci s grafickým uživatelským rozhraním. Můžete předat parametr z příkazového řádku ve Windows nebo z vývojového prostředí v Delphi, pod Spustit> Parametry možnost nabídky.

V tomto tutoriálu použijeme dialogové okno parametrů k předávání argumentů příkazového řádku do aplikace tak, aby to bylo, jako kdybychom jej spouštěli z Průzkumníka Windows.

ParamCount a ParamStr ()

ParamCount funkce vrátí počet parametrů předaných programu na příkazovém řádku a ParamStr vrátí zadaný parametr z příkazového řádku.

OnActivate obsluha události hlavního formuláře je obvykle tam, kde jsou parametry k dispozici. Když je aplikace spuštěna, lze je načíst.

Všimněte si, že v programu CmdLine Proměnná obsahuje řetězec s argumenty příkazového řádku zadanými při spuštění aplikace. Můžeš použít CmdLine pro přístup k celému řetězci parametrů předanému aplikaci.

Ukázková aplikace

Spusťte nový projekt a umístěte Tlačítko součást na Formulář. V tlačítku Při kliknutí obsluha události, napište následující kód:

postup TForm1.Button1Click (Sender: TObject);

začít

ShowMessage (ParamStr (0));

konec;

Když spustíte program a kliknete na tlačítko, objeví se okno se zprávou s názvem cesty a souboru provádějícího programu. Můžete to vidět ParamStr „funguje“, i když jste do aplikace nepředali žádné parametry; je to proto, že hodnota pole 0 ukládá název souboru spustitelné aplikace, včetně informací o cestě.

Vybrat Parametry z Běh a poté přidejte Programování Delphi do rozevíracího seznamu.

Poznámka: Nezapomeňte, že při předávání parametrů do aplikace je oddělte mezerami nebo tabulátory. Použijte dvojité uvozovky k zalomení více slov jako jednoho parametru, například při použití dlouhých názvů souborů, které obsahují mezery.

Dalším krokem je procházení parametrů pomocí ParamCount () získat hodnotu parametrů pomocí ParamStr (i).

Změňte obslužný program události OnClick na toto:

postup TForm1.Button1Click (Sender: TObject);

var

j: celé číslo;

začátek j: = 1 na ParamCount dělat

ShowMessage (ParamStr (j));

konec;

Když spustíte program a kliknete na tlačítko, objeví se zpráva, která čte "Delphi" (první parametr) a "Programování" (druhý parametr).