用createprocess 及waitforinputidle、waitforsingleobject的方法可以等待外部程序整体运行的结果，可是我现在只是需要等待外部程序中的某个对话框的状态，只要一发现对话框出现，程序立即继续执行下面的代码，否则的话就处于等候状态。 请问各位仁兄，如何实现这样的功能呢？

 //方法就是用FindWindow，程式碼只從已前寫的source剪貼出來的，沒跑過
//大概是這樣用就是了

h=0;

while h=0 do
begin
h := FindWindow(nil,pchar('your windown Title'));
if H<>0 then
break
else
StartWait(500) //等0.5秒再做一次待中

end;
do something....

procedure TDEMO.StartWait(Atime:Integer);
begin
form1.Timer2.Interval:=ATime 100;
GWaitTimeUp:=false;
form1.Timer2.Enabled:=true;
Application.ProcessMessages;
while not GWaitTimeUp do
begin
if GStop or Terminated then
begin
break;
GAllReVote:=false;
end;
Application.ProcessMessages;
end;
end;

這function給你參考看看，在被你叫起的程式結束前，你的主程式會處於suspanded狀態，傳入參數就是你想要運行的程序完全文件名

function ExecuteAndWait(const CommandLine : string) : cardinal;
var
tSI : TStartupInfo;
tPI : TProcessInformation;
dwI : DWORD;
begin
Result := ErrUINT;
FillChar(tSI, sizeof(TStartupInfo), 0);
tSI.cb := sizeof(TStartupInfo);
tSI.wShowWindow:=SW_SHOW;
if (CreateProcess(nil, pchar(CommandLine), nil, nil, False, CREATE_NEW_PROCESS_GROUP or NORMAL_PRIORITY_CLASS or 0, nil, nil, tSI, tPI)) then begin
dwI := WaitForSingleObject(tPI.hProcess, INFINITE);
if (dwI = WAIT_OBJECT_0) then
if (GetExitCodeProcess(tPI.hProcess, dwI)) then Result := dwI;
CloseHandle(tPI.hProcess);
CloseHandle(tPI.hThread);
end;
end;

------
歡迎在大陸的台商加入我們的行列
台商小棧 www.twgocn.com