如何在程序中先运行另一个外部程序然后将自己关闭？

Question

procedure Form1.FormCreate(Sender : TObject);
begin 
  winexec('c:\a.exe');
  Application.Terminate;
end;

Answer 1

  winexec('exe',SW_SHOWNORMAL);
差不多楼上说法！

Answer 2

在Project中
uses中加入 SHellApi
begin
     shellExecute(GetActiveWindow,'Open',
            'c:\windows\calc.exe', NiL, Nil, SW_Normal);
      showmessage('马上关闭本程序');
      Application.Terminate ;
end;

Answer 3

FindWindow(nil,'标题');取得handle，然后
postmessage(handle,消息,0);