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;