如何讓delphi的exe程序接收參數

Question

如何讓delphi的exe程序接收參數

Answer 1

关注，我也需要这个问题的答案！
在c中，有个main()函数可以接受参数，Delphi呢？

Answer 2

procedure TForm1.FormCreate(Sender: TObject);var
  i: Integer;
  for i := 0 to ParamCount ?1 do
  begin
    if LowerCase(ParamStr(i)) = 'beep' then
      Beep(10000,1000)
    else if (LowerCase(ParamStr(i)) = 'exit' then
      Application.Terminate;
  end;
end;

Answer 3

你能不能说具体点！
有问题请发信息到我的E-mail:[email protected]

Answer 4

procedure TFmMain.FormCreate(Sender: TObject);
var
  sParam1,sParam2:string;
begin
  sParam1 := ParamStr(1);
  sParam2 := ParamStr(2);
end;

Answer 5

for i := 0 to ParamCount ?1 do
这句贴时候出乱码应该是
for i := 0 to ParamCount-1 do

Answer 6

有关 Delphi 传入应用程式的命令列参数, 请参考以下的说明??
1. 取得命令列参数的个数: ParamCount 函数
2. 呼叫 ParamStr(0), 传回执行档的档名(含路径)
3. 呼叫 ParamStr(n), 传回第ｎ个参数的内容
例子：
   procedure TForm1.FormCreate(Sender: TObject);
   var
     ix: integer;
   begin
      Memo1.Lines.Clear;
      if ParamCount = 0 then
         Memo1.Lines.Add('No Param.')
      else
      begin
         Memo1.Lines.Add('档名:' + ParamStr(0));
         for ix := 1 to ParamCount do
            Memo1.Lines.Add(ParamStr(ix));
      end;
   end;

Answer 7

好像有点不太对,不过函数是对的,从新写了一个program Project3;uses
  Forms,Sysutils,dialogs;{$R *.RES}var
  i: Integer;
begin
  for i := 0 to ParamCount do
  begin
    if LowerCase(ParamStr(i)) = 'beep' then
    begin
      Beep;
      showmessage('aaaa');
    end
    else if LowerCase(ParamStr(i)) = 'exit' then
      Application.Terminate;
  end;end.

Answer 8

謝謝yzdiyu(敌宇) 謝謝大家