这里有一个坑，就是参数会减少一个

//需要引用这个单元
uses shellapi

procedure TForm1.Button5Click(Sender: TObject);
var
  Params: string;
begin
//由于第三个参数不会显示，需要额外的多补充一个参数，而且第一个参数会变成程序的运行路径
  Params := '参数1 参数2 参数3不会显示真的坑';
  ShellExecute(Handle, 'open', 'Project1.exe', PWideChar(Params), nil, SW_SHOWNORMAL);
end;

程序传参代码，写在窗体创建处

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to ParamCount - 1 do
  begin
    // 在这里处理每个参数，例如输出参数的值：
    Memo1.Lines.Add('第'+inttostr(i)+'个元素：'+ParamStr(i));
//实际上取这个参数就行了ParamStr(i);
  end;
end;