使用ParamStr(i)读取用户的参数。ParamCount为参数个数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;