运行一个 DOS 命令，并等待其结束
- {运行一个 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;
智能推荐
注意！
本站转载的文章为个人学习借鉴使用，本站对版权不负任何法律责任。如果侵犯了您的隐私权益，请联系我们删除。