启动程序的同时传参给接收程序（XE8+WIN764）

相关资料：

http://blog.****.net/yanjiaye520/article/details/7590252

注意事项：

1.ParamStr(0)是实例自己。

2.传的参数是以空格分看的。

3.“‘2 Hello World”，ParamStr(1) = '2' ；

发送窗体：

 unit Unit1;

 interface

 uses
   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, ShellAPI, Vcl.StdCtrls;

 type
   TForm1 = class(TForm)
     Button1: TButton;
     procedure Button1Click(Sender: TObject);
   private
     { Private declarations }
   public

     { Public declarations }
   end;

 var
   Form1: TForm1;

 implementation

 {$R *.dfm}

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   ShellExecute(Handle, 'open','project2.exe','2 Hello World',nil,SW_SHOWNORMAL);
 end;

 end.

接收窗体：

 unit Unit1;

 interface

 uses
   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

 type
   TForm1 = class(TForm)
     ListBox1: TListBox;
     Label1: TLabel;
     procedure FormCreate(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

 var
   Form1: TForm1;

 implementation

 {$R *.dfm}

 procedure TForm1.FormCreate(Sender: TObject);
 begin
   //ParamStr(0)是实例自己，所以参数从1开始；而且传的参数是以空格分看的，“‘2 Hello World”，ParamStr(1) = '2' 了；
   ListBox1.Items.Add(ParamStr());
 end;

 end.

PS:如果使用CreateProcess建进程，怎么发参数呢？

     if not IsBuildInFit then
     begin //不代参数
       bActiveState := CreateProcess(PChar(nil), PChar(GetExePath + sHardWareName), @lpsaProcess,
               @lpsaThread, false, CREATE_SHARED_WOW_VDM, PChar(nil), PChar(nil),
               lpsiStartInfo, oProcInfo);
     end
     else
     begin //代参数
       bActiveState := CreateProcess(PChar(nil), PChar(GetExePath + sHardWareName + ' True'), @lpsaProcess,
               @lpsaThread, false, CREATE_SHARED_WOW_VDM, PChar(nil), PChar(nil),
               lpsiStartInfo, oProcInfo);
     end;