delphi 执行一个外部程序，当外部程序结束后言主程序立即响应（新）

在一个项目中，需要程序执行一个外部程式，当外部程序结束后主程序立即进行某个操作。之前的方法是有问题，很不专业

http://www.cnblogs.com/fubin/archive/2009/12/14/1623494.html

后来在万一的博客上看到等待函数 WaitForSingleObject 的用法，终于把问题解决： 

var  hProcess: THandle; {进程句柄}

function MyThreadFun(p: Pointer): DWORD; stdcall;

begin

  if WaitForSingleObject(hProcess, INFINITE) = WAIT_OBJECT_0 then

    Form1.Text := Format('进程 %d 已关闭', [hProcess]);

  Result := 0;

end;

 

procedure TForm1.Button3Click(Sender: TObject);

var

  pInfo: TProcessInformation;

  sInfo: TStartupInfo;

  Path: array[0..MAX_PATH-1] of Char;

  ThreadID: DWORD;

begin

  GetSystemDirectory(Path, MAX_PATH);

  StrCat(Path, '\Calc.exe');

  {用 CreateProcess 打开并获取其进程句柄, 然后建立线程监视}

  FillChar(sInfo, SizeOf(sInfo), 0);

  if CreateProcess(Path, nil, nil, nil, False, 0, nil, nil, sInfo, pInfo) then

  begin

    hProcess := pInfo.hProcess;  {获取进程句柄}

    Text := Format('进程 %d 已启动', [hProcess]);

    CreateThread(nil, 0, @MyThreadFun, nil, 0, ThreadID); {建立线程监视}

  end;

end;