求救：如何得到使用winexec()运行的程序关闭的信息？(50分)

如何在程序中使用winexec()运行一个exe程序之后，得到这个程序关闭的信息，然后再继续执行delphi中的语句？<br>

var<br>str: string; file://存储指定的应用程序文件名<br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br>if opendialog1.Execute then file://选择要调用的外部可执行程序<br>begin<br>str := opendialog1.FileName; file://获取可执行文件名<br>winexec(PChar(str), SW_SHOWNORMAL); file://启动指定的可执行程序<br>end;<br><br>end;<br><br>procedure TForm1.Button2Click(Sender: TObject);<br>var<br>hWndClose: HWnd; file://存储指定的外部应用程序窗口句柄<br>begin<br><br>hWndClose := FindWindow(nil, PChar(str));<br><br>if hWndClose &lt;&gt; 0 then file://如果查找成功，则发送消息，关闭指定的窗口<br><br>SendMessage(hWndClose,WM_CLOSE,0,0);<br><br>else file://否则，给出提示信息<br><br>ShowMessage('没找到指定的应用程序，所以无法关闭！');<br><br>end;<br><br>end;<br>&nbsp;<br>