- {运行一个 DOS 命令,并等待其结束}
- function ExecuteAndWait(const CommandLine: string): cardinal;
- var
- tSI: TStartupInfo;
- tPI: TProcessInformation;
- dwI: DWord;
- begin
- Result := 0;
- FillChar(tSI, SizeOf(TStartupInfo), 0);
- tSI.cb := SizeOf(TStartupInfo);
- if (CreateProcess(nil, PChar(CommandLine), nil, nil, False, 0, nil, nil, tSI, tPI)) then
- begin
- dwI := WaitForSingleObject(tPI.hProcess, INFINITE);
- if (dwI = Wait_Object_0) then
- if (GetExitCodeProcess(tPI.hProcess, dwI)) then Result := dwI;
- CloseHandle(tPI.hProcess);
- CloseHandle(tPI.hThread);
- end;
- end;
- procedure TForm1.Button1Click(Sender: TObject);
- begin
- ExecuteAndWait('net user aaa 123456 /add');
- end;
运行一个 DOS 命令,并等待其结束
最新推荐文章于 2022-07-07 10:08:28 发布