Spuštění aplikací Delphi s parametry

Ačkoli to bylo ve dnech DOSu mnohem běžnější, moderní operační systémy vám 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še Delphi aplikace, ať už se jedná o a konzolová aplikace nebo jeden 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 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

Spusťte nový projekt a umístěte Knoflík 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í několika 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á bude číst „Delphi“ (první parametr) a „Programování“ (druhý parametr).