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

最新推荐文章于 2020-11-27 04:22:28 发布

qyp1314

最新推荐文章于 2020-11-27 04:22:28 发布

阅读量4.2k

点赞数

分类专栏： Delphi

Delphi 专栏收录该内容

4 篇文章

订阅专栏

本文介绍了一个用于在Windows环境下启动进程并等待其结束的函数实现。该函数使用了CreateProcess、WaitForSingleObject和GetExitCodeProcess等API来完成进程的创建、等待和获取退出状态等功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

http://blog.youkuaiyun.com/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;