delphi调用外部EXE,等待执行完毕时再响应后续操作.

最新推荐文章于 2018-04-23 20:39:07 发布

gjsshn_2010

最新推荐文章于 2018-04-23 20:39:07 发布

阅读量1.3k

点赞数

文章标签： delphi exe function string class

本文链接：https://blog.csdn.net/gjsshn_2010/article/details/4158360

版权

function RunProcess(FileName: string; ShowCmd: DWORD; wait: Boolean; ProcID:
PDWORD): Longword;
var
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
begin
FillChar(StartupInfo, SizeOf(StartupInfo), #0);
StartupInfo.cb := SizeOf(StartupInfo);
StartupInfo.dwFlags := STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK;
StartupInfo.wShowWindow := ShowCmd;
if not CreateProcess(nil,
@Filename[1],
nil,
nil,
False,
CREATE_NEW_CONSOLE or
NORMAL_PRIORITY_CLASS,
nil,
nil,
StartupInfo,
ProcessInfo)
then
Result := WAIT_FAILED
else
begin
if wait = FALSE then
begin
if ProcID <> nil then
ProcID^ := ProcessInfo.dwProcessId;
result := WAIT_FAILED;
exit;
end;
WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
GetExitCodeProcess(ProcessInfo.hProcess, Result);
end;
if ProcessInfo.hProcess <> 0 then
CloseHandle(ProcessInfo.hProcess);
if ProcessInfo.hThread <> 0 then
CloseHandle(ProcessInfo.hThread);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
ProcID: Cardinal;
begin
ProcID := 0;
if OpenDialog1.Execute then
RunProcess(OpenDialog1.FileName, SW_SHOW, CheckBox1.Checked, @ProcID);
ShowMessage(IntToStr(ProcID));
end;