[起動時の引数を取得する]

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