运行一个 DOS 命令，并等待其结束

1. {运行一个 DOS 命令，并等待其结束}
2. function ExecuteAndWait(const CommandLine: string): cardinal;
3. var
4.   tSI: TStartupInfo;
5.   tPI: TProcessInformation;
6.   dwI: DWord;
7. begin
8.   Result := 0;
9.   FillChar(tSI, SizeOf(TStartupInfo), 0);
10.   tSI.cb := SizeOf(TStartupInfo);
11.   if (CreateProcess(nil, PChar(CommandLine), nil, nil, False, 0, nil, nil, tSI, tPI)) then
12.   begin
13.     dwI := WaitForSingleObject(tPI.hProcess, INFINITE);
14.     if (dwI = Wait_Object_0) then
15.       if (GetExitCodeProcess(tPI.hProcess, dwI)) then Result := dwI;
16.     CloseHandle(tPI.hProcess);
17.     CloseHandle(tPI.hThread);
18.   end;
19. end;
21. procedure TForm1.Button1Click(Sender: TObject);
22. begin
23.   ExecuteAndWait('net user aaa 123456 /add');
24. end;