起動時の引数を表示します。【ソースコード】 [tips0062.pas]
program tips0062; {$APPTYPE CONSOLE} var ix :integer; begin writeLn('引数は',ParamCount, '個あります。'); for ix := 1 to ParamCount do writeLn(ix, ':', ParamStr(ix)); end.【コンパイル&実行】 [tips0062.bat]
dcc32 tips0062.pas tips0062.exe arg1 arg2 >tips0062.txt pause【実行結果】 [tips0062.txt]
引数は2個あります。 1:arg1 2:arg2