怎么读到用命令行传进来的参数呢?

Question

怎么读到用命令行传进来的参数呢?
程序名称是program.exe
运行里输入: program.exe /now
我在程序里如何能读到这个now呢?

Answer 1

function: ParamStr()Delphi Help Example:procedure TForm1.FormCreate(Sender: TObject);var
  i: Integer;
  for i := 0 to ParamCount - 1 do
  begin
    if LowerCase(ParamStr(i)) = 'beep' then
      Beep()
    else if (LowerCase(ParamStr(i)) = 'exit' then
      Application.Terminate;
  end;
end;

Answer 2

更正：
procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin //上面少了“begin”
  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;