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