Delphi：等到bat-script运行到最后

发布时间：2020-12-15 09:26:53 所属栏目：大数据来源：网络整理

导读：我有bat文件,它做了一些操作.如何从Delphi运行此文件并等待,直到它停止. 像这样的东西： procedure TForm1.Button1Click(Sender: TObject);begin//Starting bat-filebla-bla-blashowmessage('Done');end; 解决方法这将执行给定的命令行并等待命令行启动的程

我有bat文件,它做了一些操作.如何从Delphi运行此文件并等待,直到它停止.
像这样的东西：

procedure TForm1.Button1Click(Sender: TObject);
begin
//Starting bat-file
bla-bla-bla
showmessage('Done');
end;

解决方法

这将执行给定的命令行并等待命令行启动的程序退出.如果程序返回零退出代码,则返回true;如果程序未启动或返回非零错误代码,则返回false.

function ExecAndWait(const CommandLine: string) : Boolean;
var
  StartupInfo: Windows.TStartupInfo;        // start-up info passed to process
  ProcessInfo: Windows.TProcessInformation; // info about the process
  ProcessExitCode: Windows.DWord;           // process's exit code
begin
  // Set default error result
  Result := False;
  // Initialise startup info structure to 0,and record length
  FillChar(StartupInfo,SizeOf(StartupInfo),0);
  StartupInfo.cb := SizeOf(StartupInfo);
  // Execute application commandline
  if Windows.CreateProcess(nil,PChar(CommandLine),nil,False,StartupInfo,ProcessInfo) then
  begin
    try
      // Now wait for application to complete
      if Windows.WaitForSingleObject(ProcessInfo.hProcess,INFINITE)
        = WAIT_OBJECT_0 then
        // It's completed - get its exit code
        if Windows.GetExitCodeProcess(ProcessInfo.hProcess,ProcessExitCode) then
          // Check exit code is zero => successful completion
          if ProcessExitCode = 0 then
            Result := True;
    finally
      // Tidy up
      Windows.CloseHandle(ProcessInfo.hProcess);
      Windows.CloseHandle(ProcessInfo.hThread);
    end;
  end;
end;

来自：http://www.delphidabbler.com/codesnip?action=named&showsrc=1&routines=ExecAndWait

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!