好吧问答库 > delphi 如何在一个BAT文件运行完成关闭再后打开另一个BAT文件

delphi 如何在一个BAT文件运行完成关闭再后打开另一个BAT文件

2026年09月21日 01:16

有1个网友回答

网友（1）：

//****************************************************
//* 函数功能：执行程序至完成
//* 函数名称: WaitExeFinish
//****************************************************
function WaitExeFinish(const sExeName: String): Boolean;
var
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
strExeName: String;
begin
Result:= True;
strExeName:= sExeName;
FillChar(StartupInfo, SizeOf(StartupInfo), 0);
CreateProcess(nil, PChar(strExeName), nil, nil, False, 0, nil, nil, StartupInfo, ProcessInfo);
with ProcessInfo do
begin
CloseHandle(hThread);
WaitForSingleObject(hProcess, INFINITE);
CloseHandle(hProcess);
end;
end;

调用方法

WaitExeFinish('01.bat');
WaitExeFinish('02.bat');