![](http://static.blog.csdn.net/images/category_icon.jpg)
- procedure CheckResult(b: Boolean);
- begin
- if not b then
- raise Exception.Create(SysErrorMessage(GetLastError));
- end;
- function RunDOS(const CommandLine: string): string;
- var
- HRead, HWrite: THandle;
- StartInfo: TStartupInfo;
- ProceInfo: TProcessInformation;
- b: Boolean;
- sa: TSecurityAttributes;
- inS: THandleStream;
- sRet: TStrings;
- begin
- Result := '';
- FillChar(sa, sizeof(sa), 0);
- //设置允许继承,否则在NT和2000下无法取得输出结果
- sa.nLength := sizeof(sa);
- sa.bInheritHandle := True;
- sa.lpSecurityDescriptor := nil;
- b := CreatePipe(HRead, HWrite, @sa, 0);
- CheckResult(b);
- FillChar(StartInfo, SizeOf(StartInfo), 0);
- StartInfo.cb := SizeOf(StartInfo);
- StartInfo.wShowWindow := SW_HIDE;
- //使用指定的句柄作为标准输入输出的文件句柄,使用指定的显示方式
- StartInfo.dwFlags := STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW;
- StartInfo.hStdError := HWrite;
- StartInfo.hStdInput := GetStdHandle(STD_INPUT_HANDLE); //HRead;
- StartInfo.hStdOutput := HWrite;
- b := CreateProcess(nil, //lpApplicationName: PChar
- PChar(CommandLine), //lpCommandLine: PChar
- nil, //lpProcessAttributes: PSecurityAttributes
- nil, //lpThreadAttributes: PSecurityAttributes
- True, //bInheritHandles: BOOL
- CREATE_NEW_CONSOLE,
- nil,
- nil,
- StartInfo,
- ProceInfo);
- CheckResult(b);
- WaitForSingleObject(ProceInfo.hProcess, INFINITE);
- inS := THandleStream.Create(HRead);
- if inS.Size > 0 then
- begin
- sRet := TStringList.Create;
- sRet.LoadFromStream(inS);
- Result := sRet.Text;
- sRet.Free;
- end;
- inS.Free;
- CloseHandle(HRead);
- CloseHandle(HWrite);
- end;
演示:
- memo1.text := RunDOS('ping www.baidu.com');
delphi lazarus opengl
网页操作自动化, 图像分析破解,游戏开发