ParamCount、ParamStr

//获取程序参数

//可从 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;