执行命令行并等待完成（使用WaitForSingleObject达到目的）

function TDMDb.WaitExeFinish(const sCmdName: string):boolean;
var
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
  b:boolean;
begin
  // 初始化
  FillChar(StartupInfo, SizeOf(StartupInfo), 0);
  StartupInfo.cb := Sizeof(StartupInfo);
  StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow := SW_HIDE; // 隐藏执行

  // 执行命令行
  b:=CreateProcess(nil, PWideChar(sCmdName), nil, nil, False, 0, nil, nil, StartupInfo, ProcessInfo);

  // 等待执行完成
  with ProcessInfo do
  begin
    CloseHandle(hThread);
    WaitForSingleObject(hProcess, INFINITE);
    CloseHandle(hProcess);
  end;

  // 返回
  Result := b;
end;

http://blog.csdn.net/shuaihj/article/details/8890419