http://blog.csdn.net/nerdy/article/details/8969189

[delphi]运行cmd命令，并取得输出字符

标签： delphiCMD命令

2013-05-24 11:36 1529人阅读 评论(0)  举报

 分类：

delphi实例（2） 

1. procedure CheckResult(b: Boolean);
2. begin
3. if not b then
4. raise Exception.Create(SysErrorMessage(GetLastError));
5. end;
6. function RunDOS(const CommandLine: string): string;
7. var
8. HRead, HWrite: THandle;
9. StartInfo: TStartupInfo;
10. ProceInfo: TProcessInformation;
11. b: Boolean;
12. sa: TSecurityAttributes;
13. inS: THandleStream;
14. sRet: TStrings;
15. begin
16. Result := '';
17. FillChar(sa, sizeof(sa), 0);
18. //设置允许继承，否则在NT和2000下无法取得输出结果
19. sa.nLength := sizeof(sa);
20. sa.bInheritHandle := True;
21. sa.lpSecurityDescriptor := nil;
22. b := CreatePipe(HRead, HWrite, @sa, 0);
23. CheckResult(b);
24. FillChar(StartInfo, SizeOf(StartInfo), 0);
25. StartInfo.cb := SizeOf(StartInfo);
26. StartInfo.wShowWindow := SW_HIDE;
27. //使用指定的句柄作为标准输入输出的文件句柄,使用指定的显示方式
28. StartInfo.dwFlags := STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW;
29. StartInfo.hStdError := HWrite;
30. StartInfo.hStdInput := GetStdHandle(STD_INPUT_HANDLE); //HRead;
31. StartInfo.hStdOutput := HWrite;
32. b := CreateProcess(nil, //lpApplicationName: PChar
33. PChar(CommandLine), //lpCommandLine: PChar
34. nil, //lpProcessAttributes: PSecurityAttributes
35. nil, //lpThreadAttributes: PSecurityAttributes
36. True, //bInheritHandles: BOOL
37. CREATE_NEW_CONSOLE,
38. nil,
39. nil,
40. StartInfo,
41. ProceInfo);
42. CheckResult(b);
43. WaitForSingleObject(ProceInfo.hProcess, INFINITE);
44. inS := THandleStream.Create(HRead);
45. if inS.Size > 0 then
46. begin
47. sRet := TStringList.Create;
48. sRet.LoadFromStream(inS);
49. Result := sRet.Text;
50. sRet.Free;
51. end;
52. inS.Free;
53. CloseHandle(HRead);
54. CloseHandle(HWrite);
55. end;

演示：

1. memo1.text := RunDOS('ping www.baidu.com');