编写的程序如何带参数运行

Question

同上。谢谢

Answer 1

有关 Delphi 传入应用程式的命令列参数, 请参考以下的说明：
用ParamCount函数取得命令参数的个数: 
呼叫 ParamStr(0), 传回执行档的档名(含路径)
呼叫 ParamStr(n), 传回第ｎ个参数的内容
procedure TForm1.FormCreate(Sender: TObject);
var
sFileName: string;
begin
if ParamCount > 0 then begin (* 有执行参数传入 *)
sFileName := ParamStr(1); (* 取得参数内容 *)
if FileExists(sFileName) then
Memo1.Lines.LoadFromFile(sFileName)
else
Application.MessageBox('找不到指定的档案', '讯息', 48);
end;
end;

Answer 2

if ( ParamCount > 0 ) then
    begin
       myPar:=ParamStr(i); //第i个参数
       .....
   end;例如
test.exe l x
ParamStr(0)='l'
ParamStr(1)='x'

Answer 3

ParamCount  参数的个数ParamStr()  取参数...

Answer 4

用ParamStr ,ParamCount ,例子:
var
  i: Integer;
begin
  for i := 1 to ParamCount do
    if LowerCase(ParamStr(i)) = 'beep' then
      Beep;
end;
运行时program param1 param2 ...