起動時の引数を表示します。【ソースコード】 [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