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

起動時の引数を表示します。

program tips0061;
{$APPTYPE CONSOLE}
var   ix :integer;
begin
  writeLn('引数は',ParamCount, '個あります。');
  for ix  :=  1 to  ParamCount  do
    writeLn(ix, ':', ParamStr(ix));
end.

dcc32 tips0061.pas 
tips0061.exe  arg1 arg2 >tips0061.txt
pause

引数は2個あります。
1:arg1
2:arg2