delphi 程序获取传参

转自万老师的博客...

//获取程序参数
//可从 Project -> Options -> Debugger -> Parameters 中输入模拟参数, 多个参数可用空格隔开

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i := 1 to ParamCount do
  begin
    ListBox1.Items.Add(ParamStr(i));
  end;
end;