Delphi 等待外部程序执行完毕

最新推荐文章于 2025-03-16 02:05:33 发布

pnzebin

最新推荐文章于 2025-03-16 02:05:33 发布

阅读量948

点赞数 1

CC 4.0 BY-SA版权

分类专栏： Delphi笔记文章标签： delphi

本文链接：https://blog.csdn.net/xiaobin_zb/article/details/120103217

Delphi笔记专栏收录该内容

39 篇文章

订阅专栏

本文介绍了如何在Delphi应用中使用TStartupInfo和TProcessInformation结构实现调用外部批处理文件（.bat）并在其执行完毕后显示提示信息，适合处理需要依赖外部程序的流程控制。

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

Delphi 等待外部程序执行完毕再进行下一步操作

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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;
  RunProcess('1.bat', SW_SHOW, true, @ProcID);
  ShowMessage('执行完毕');
end;

end.