获得运行参数

Question

就象C的int argc, char *argv[]，在DELPHI中怎么弄？
int main(int argc, char *argv[])
{
.......
return 0;
}

Answer 1

命令行参数个数：ParamCount;   
  命令行参数：ParamStr(Index:   Integer);Index从1开始。0是程序自身的文件名。
procedure TForm1.FormCreate(Sender: TObject);var
  i: Integer;
  for i := 1 to ParamCount do
  begin
    if LowerCase(ParamStr(i)) = 'beep' then
      Beep
    else if LowerCase(ParamStr(i)) = 'exit' then
      Application.Terminate;
  end;
end;

Answer 2

1楼实验通过，
CmdLine怎么用呀

Answer 3

你不会翻ParamStr的源代码么？