Delphi程序如何获取和使用命令行参数?

Question

Delphi程序如何获取和使用命令行参数

Answer 1

for i:=1 to ParamCount do
  ShowMessage(ParamStr(i));
//ParamStr(0)是应用程序自身

Answer 2

ParamCount()
参数个数
ParamStr(0) 是程序名称
ParamStr(1) 是第一个参数
ParamStr(2) 是第一个参数
...

Answer 3

例子: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 4

用ParamStr(i)有时有问题。比如说参数是一个带空格的长文件名，那么取回来的文件就被截断了。
所以，用API函数GetCommandLine比较好。