运行一个文件并等待文件运行完成

 

下面实现运行一个文件并等待其结束，如果返回为0 则表示运行成功.

function RunFileWait(FileName: string; Visibility: Integer = SW_NORMAL): Integer; //运行一个文件并等待其结束

var

  zAppName: array[0..512] of Char;

  zCurDir: array[0..255] of Char;

  WorkDir: string;

  StartupInfo: TStartupInfo;

  ProcessInfo: TProcessInformation;

begin

  StrPCopy(zAppName, FileName);

  GetDir(0, WorkDir);

  StrPCopy(zCurDir, WorkDir);

  FillChar(StartupInfo, SizeOf(StartupInfo), #0);

  StartupInfo.cb := SizeOf(StartupInfo);

  StartupInfo.dwFlags := STARTF_USESHOWWINDOW;

  StartupInfo.wShowWindow := Visibility;

  if not CreateProcess(nil,

    zAppName, { pointer to command line string }

    nil, { pointer to process security attributes }

    nil, { pointer to thread security attributes }

    False, { handle inheritance flag }

    CREATE_NEW_CONSOLE or { creation flags }

    NORMAL_PRIORITY_CLASS,

    nil, { pointer to new environment block }

    nil, { pointer to current directory name }

    StartupInfo, { pointer to STARTUPINFO }

    ProcessInfo) then

    Result := -1 { pointer to PROCESS_INF }

  else

  begin

    WaitforSingleObject(ProcessInfo.hProcess, INFINITE);

    GetExitCodeProcess(ProcessInfo.hProcess, Cardinal(Result));

  end;

end;