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

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