怎样得到执行外部命令结束后再继续向下运行呢？

Question

下面程序会调用相应程序，并一直等该程序执行完后再继续下去
参数：FileName应用程序路径和名称
      Visibility应用程序显示属性function WinExecAndWait32(FileName:String; Visibility :integer):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 securityattributes }
    nil,                          { pointer to thread securityattributes }
    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,Result);
  end;
end;

Answer 1

如
WinExecAndWait32('c:\aaa.exe', SW_SHOW);