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