让另外一个程序退出并启动传参

uses 

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, 

  Forms, Dialogs,cxShellAPI;

var Params,a,b,str:string;

c:integer;

 h:Thandle;

begin

 a:='test06';

 b:='test11';

  h:=FindWindow(nil,PChar('甘特图'));   //Notepad 为记事本的窗口类

  sendMessage(h,WM_CLOSE,0,0);

 //c:=16;

  Params := Format('"%s"/ "%s"  ',[a,b]);

  IExecuteFile('D:\调用\01\Project1.exe',pchar(Params));

end.