运行程序并等待结束

最新推荐文章于 2019-01-09 10:09:08 发布

aroc_lo

最新推荐文章于 2019-01-09 10:09:08 发布

阅读量698

点赞数

CC 4.0 BY-SA版权

分类专栏：编程技术 DELPHI编程文章标签： string function class

本文链接：https://blog.youkuaiyun.com/aroc_lo/article/details/5085669

DELPHI编程同时被 2 个专栏收录

379 篇文章

订阅专栏

编程技术

152 篇文章

订阅专栏

本文提供了一个使用Delphi创建并等待子进程结束的示例代码。通过该代码，可以了解如何利用CreateProcess函数启动外部程序，并通过WaitForSingleObject等待其完成。此示例适用于Delphi开发者学习进程间交互。

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

function ExecAndWait(aFilename: string; aParamStr: string = ''; aWait: boolean = True): boolean; var si: TStartupInfo; pi: TProcessInformation; begin if not FileExists(aFilename) then Result := False else begin FillChar(pi, SizeOf(TProcessInformation), #0); FillChar(si, SizeOf(TStartupInfo), #0); with si do begin cb := SizeOf(TStartupInfo); dwFlags := STARTF_USESHOWWINDOW; wShowWindow := SW_SHOW; end; Result := CreateProcess(PChar(aFilename), PChar(aParamStr), nil, nil, False, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, PChar(ExtractFilePath(aFilename)), si, pi); if Result and aWait then WaitForSingleObject(pi.hProcess, INFINITE); CloseHandle(pi.hProcess); CloseHandle(pi.hThread); end; end;