Delphi-系统-加载外部进程并等待其返回

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;

 //调用方法

var

  ProcID: Cardinal;

begin

    ProcID:=0;

    RunProcess('backup.bat', SW_HIDE, true, @ProcID);