ShellExecute传递多个参数及在被调用的应用程序中如何接收参数

Delphi实现通过一个程序调用另外一个程序并传递多个参数给另外一个程序

procedure TForm1.Button1Click(Sender: TObject);
var
  hwndle:HWND;
  lcParamters :String;
begin
  lcParamters:='+id  +r +D   '+ 'lcDirFile';

  ShellExecute(hwndle,nil,'E:\Project\ShenfenzhengYueduqi\Bin\ShenfenzhengYueduqi.exe', PAnsiChar(lcParamters),nil,SW_SHOWNORMAL);
end;

 

另外一个程序被启动后如何接收调用程序发过来的参数

procedure TMainForm.Button1Click(Sender: TObject);
var 
  i :Integer; 
begin 
  for i := 0 to ParamCount do
    ShowMessage(ParamStr(i+1));
end;

转自：http://blog.sina.com.cn/s/blog_7733e5490100stoz.html