?

procedure?TForm1.Button1Click(Sender:?TObject);
var
??sCommandLine:?string;
??bCreateProcess:?boolean;
??lpStartupInfo:?TStartupInfo;
??lpProcessInformation:?TProcessInformation;
begin
??sCommandLine?:=?'C:\TEST.EXE';
??//初始化StartupInfo
??FillChar(lpStartupInfo,?Sizeof(TStartupInfo),?#0);
??lpStartupInfo.cb?:=?Sizeof(TStartupInfo);
??lpStartupInfo.dwFlags?:=?STARTF_USESHOWWINDOW;
??lpStartupInfo.wShowWindow?:=?SW_NORMAL;

??bCreateProcess?:=?CreateProcess(nil,?PChar(sCommandLine),
????nil,?nil,?True,?CREATE_NEW_CONSOLE?or?NORMAL_PRIORITY_CLASS,
????nil,?nil,?lpStartupInfo,?lpProcessInformation);
??if?bCreateProcess?then??????//等外部進程的結束
????WaitForSingleObject(lpProcessInformation.hProcess,?INFINITE);
end;

?

?

轉載于:https://www.cnblogs.com/rogee/archive/2010/09/15/1827304.html

總結

以上是生活随笔為你收集整理的Delphi写的等待进程运行结束函数的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。