1.用CreateProcess运行程序,然后用下面的语句等待其结束 WaitforSingleObject(ProcessInfo.hProcess,INFINITE); GetExitCodeProcess(ProcessInfo.hProcess,Result); 2.while not Application.Terminated and WaitforSingleObject (ProcessInfo.hProcess,0) = WAIT_OBJECT_0 begin Sleep(10); Application.ProcessMessages; end;
WaitforSingleObject(ProcessInfo.hProcess,INFINITE);
GetExitCodeProcess(ProcessInfo.hProcess,Result);
2.while not Application.Terminated and WaitforSingleObject
(ProcessInfo.hProcess,0) = WAIT_OBJECT_0
begin
Sleep(10);
Application.ProcessMessages;
end;