delphi cmd（4个例子都是通过管道取得）

1. //K8执行DOS并返回结果
2. function RunDosCommand(Command: string): string;
3. var
4. hReadPipe: THandle;
5. hWritePipe: THandle;
6. SI: TStartUpInfo;
7. PI: TProcessInformation;
8. SA: TSecurityAttributes;
9. //     SD   :   TSecurityDescriptor;
10. BytesRead: DWORD;
11. Dest: array[0..1023] of char;
12. CmdLine: array[0..512] of char;
13. TmpList: TStringList;
14. Avail, ExitCode, wrResult: DWORD;
15. osVer: TOSVERSIONINFO;
16. tmpstr: string;
17. begin
18. osVer.dwOSVersionInfoSize := Sizeof(TOSVERSIONINFO);
19. GetVersionEX(osVer);
20. if osVer.dwPlatformId = VER_PLATFORM_WIN32_NT then
21. begin
22. //         InitializeSecurityDescriptor(@SD,   SECURITY_DESCRIPTOR_REVISION);
23. //         SetSecurityDescriptorDacl(@SD,   True,   nil,   False);
24. SA.nLength := SizeOf(SA);
25. SA.lpSecurityDescriptor := nil; //@SD;
26. SA.bInheritHandle := True;
27. CreatePipe(hReadPipe, hWritePipe, @SA, 0);
28. end
29. else
30. CreatePipe(hReadPipe, hWritePipe, nil, 1024);
31. try
32. FillChar(SI, SizeOf(SI), 0);
33. SI.cb := SizeOf(TStartUpInfo);
34. SI.wShowWindow := SW_HIDE;
35. SI.dwFlags := STARTF_USESHOWWINDOW;
36. SI.dwFlags := SI.dwFlags or STARTF_USESTDHANDLES;
37. SI.hStdOutput := hWritePipe;
38. SI.hStdError := hWritePipe;
39. StrPCopy(CmdLine, Command);
40. if CreateProcess(nil, CmdLine, nil, nil, True, NORMAL_PRIORITY_CLASS, nil, nil, SI, PI) then
41. begin
42. ExitCode := 0;
43. while ExitCode = 0 do
44. begin
45. wrResult := WaitForSingleObject(PI.hProcess, 500);
46. //                 if   PeekNamedPipe(hReadPipe,   nil,   0,   nil,   @Avail,   nil)   then
47. if PeekNamedPipe(hReadPipe, @Dest[0], 1024, @Avail, nil, nil) then
48. begin
49. if Avail > 0 then
50. begin
51. TmpList := TStringList.Create;
52. try
53. FillChar(Dest, SizeOf(Dest), 0);
54. ReadFile(hReadPipe, Dest[0], Avail, BytesRead, nil);
55. TmpStr := Copy(Dest, 0, BytesRead - 1);
56. TmpList.Text := TmpStr;
57. Result := tmpstr;
58. finally
59. TmpList.Free;
60. end;
61. end;
62. end;
63. if wrResult <> WAIT_TIMEOUT then ExitCode := 1;
64. end;
65. GetExitCodeProcess(PI.hProcess, ExitCode);
66. CloseHandle(PI.hProcess);
67. CloseHandle(PI.hThread);
68. end;
69. finally
70. CloseHandle(hReadPipe);
71. CloseHandle(hWritePipe);
72. end;
73. end;
74. //002
75. function RunCommand(const cmd: string): string;
76. var
77. hReadPipe,hWritePipe:THandle;
78. si:STARTUPINFO;
79. lsa:SECURITY_ATTRIBUTES;
80. pi:PROCESS_INFORMATION;
81. cchReadBuffer:DWORD;
82. pOutStr, pCMD:PChar;
83. res, strCMD:string;
84. begin
85. strcmd := 'cmd.exe /k ' + cmd;
86. pOutStr := AllocMem(5000);
87. lsa.nLength := SizeOf(SECURITY_ATTRIBUTES);
88. lsa.lpSecurityDescriptor := nil;
89. lsa.bInheritHandle := True;
90. if not CreatePipe(hReadPipe, hWritePipe, @lsa, 0) then Exit;
91. FillChar(si, SizeOf(STARTUPINFO), 0);
92. si.cb:=sizeof(STARTUPINFO);
93. si.dwFlags:=(STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW);
94. si.wShowWindow:=SW_HIDE;
95. si.hStdOutput:=hWritePipe;
96. if not CreateProcess(nil, PChar(strCMD), nil, nil, true, 0, nil, nil, si, pi) then Exit;
97. while(true) do
98. begin
99. if not PeekNamedPipe(hReadPipe, pOutStr, 1, @cchReadBuffer, nil, nil) then break;
100. if cchReadBuffer <> 0 then
101. begin
102. if not ReadFile(hReadPipe, pOutStr^, 4096, cchReadBuffer, nil) then break;
103. pOutStr[cchReadbuffer]:=chr(0);
104. //if @Show <> nil then Show(pOutStr);
105. res := res + pOutStr;
106. end else if(WaitForSingleObject(pi.hProcess ,0) = WAIT_OBJECT_0) then break;
107. Sleep(10);
108. Application.ProcessMessages;
109. end;
110. pOutStr[cchReadBuffer]:=chr(0);
111. CloseHandle(hReadPipe);
112. CloseHandle(pi.hThread);
113. CloseHandle(pi.hProcess);
114. CloseHandle(hWritePipe);
115. FreeMem(pOutStr);
116. Result := res;
117. end;
118. //003
119. procedure CmdExecAndView(FileName: string; memo: TMemo);
120. procedure _AddInfo(mmInfo:TMemo; S: string; var line: string);
121. var
122. i, p: Integer;
123. begin
124. if mmInfo.Lines.Count > 800 then
125. mmInfo.Lines.Clear;
126. //去掉 \r
127. for i := 0 to Length(S) - 1 do
128. if S[i] = #13 then S[i] := ' ';
129. line := line + S;
130. // \n 断行
131. p := Pos(#10, line);
132. if p > 0 then
133. begin
134. // \n 前面的加入一行，后面的留到下次
135. mmInfo.Lines.Add(Copy(line, 1, p - 1));
136. line := Copy(line, p + 1, Length(line) - p);
137. end;
138. end;
139. var
140. hReadPipe, hWritePipe: THandle;
141. si: STARTUPINFO;
142. lsa: SECURITY_ATTRIBUTES;
143. pi: PROCESS_INFORMATION;
144. cchReadBuffer: DWORD;
145. ph: PChar;
146. fname: PChar;
147. line: string;
148. begin
149. fname := allocmem(1024);
150. ph := AllocMem(1024);
151. lsa.nLength := sizeof(SECURITY_ATTRIBUTES);
152. lsa.lpSecurityDescriptor := nil;
153. lsa.bInheritHandle := True;
154. if CreatePipe(hReadPipe, hWritePipe, @lsa, 0) = false then
155. Exit;
156. fillchar(si, sizeof(STARTUPINFO), 0);
157. si.cb := sizeof(STARTUPINFO);
158. si.dwFlags := (STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW);
159. si.wShowWindow := SW_HIDE;
160. si.hStdOutput := hWritePipe;
161. si.hStdError := hWritePipe;
162. StrPCopy(fname, FileName);
163. if CreateProcess(nil, fname, nil, nil, true, 0, nil, nil, si, pi) = False then
164. begin
165. FreeMem(ph);
166. FreeMem(fname);
167. Exit;
168. end;
169. CloseHandle(hWritePipe);
170. while (true) do
171. begin
172. if not PeekNamedPipe(hReadPipe, ph, 1, @cchReadBuffer, nil, nil) then break;
173. if cchReadBuffer <> 0 then
174. begin
175. if ReadFile(hReadPipe, ph^, 512, cchReadBuffer, nil) = false then break;
176. ph[cchReadbuffer] := chr(0);
177. _AddInfo(memo, ph, line);
178. end
179. else if (WaitForSingleObject(pi.hProcess, 0) = WAIT_OBJECT_0) then break;
180. Application.ProcessMessages;
181. Sleep(200);
182. end;
183. ph[cchReadBuffer] := chr(0);
184. _AddInfo(memo, ph, line);
185. CloseHandle(hReadPipe);
186. CloseHandle(pi.hThread);
187. CloseHandle(pi.hProcess);
188. FreeMem(ph);
189. FreeMem(fname);
190. end;
191. //004
192. var
193. hReadPipe,hWritePipe:THandle;
194. si:STARTUPINFO;
195. lsa:SECURITY_ATTRIBUTES;
196. pi:PROCESS_INFORMATION;
197. mDosScreen:String;
198. cchReadBuffer:DWORD;
199. ph:PChar;
200. fname:PChar;
201. i,j:integer;
202. begin
203. fname:=allocmem(255);
204. ph:=AllocMem(5000);
205. lsa.nLength :=sizeof(SECURITY_ATTRIBUTES);
206. lsa.lpSecurityDescriptor :=nil;
207. lsa.bInheritHandle :=True;
208. if CreatePipe(hReadPipe,hWritePipe,@lsa,0)=false then
209. begin
210. ShowMessage('Can not create pipe!');
211. exit;
212. end;
213. fillchar(si,sizeof(STARTUPINFO),0);
214. si.cb :=sizeof(STARTUPINFO);
215. si.dwFlags :=(STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW);
216. si.wShowWindow :=SW_HIDE;
217. si.hStdOutput :=hWritePipe;
218. StrPCopy(fname,EditFilename.text);
219. if CreateProcess( nil, fname, nil, nil, true, 0, nil, nil, si, pi) = False  then
220. begin
221. ShowMessage('can not create process');
222. FreeMem(ph);
223. FreeMem(fname);
224. Exit;
225. end;
226. while(true) do
227. begin
228. if not PeekNamedPipe(hReadPipe,ph,1,@cchReadBuffer,nil,nil) then break;
229. if cchReadBuffer<>0 then
230. begin
231. if ReadFile(hReadPipe,ph^,4096,cchReadBuffer,nil)=false then break;
232. ph[cchReadbuffer]:=chr(0);
233. Memo1.Lines.Add(ph);
234. end
235. else if(WaitForSingleObject(pi.hProcess ,0)=WAIT_OBJECT_0) then break;
236. Sleep(100);
237. end;
238. ph[cchReadBuffer]:=chr(0);
239. Memo1.Lines.Add(WideCharToString(ph));
240. CloseHandle(hReadPipe);
241. CloseHandle(pi.hThread);
242. CloseHandle(pi.hProcess);
243. CloseHandle(hWritePipe);
244. FreeMem(ph);
245. FreeMem(fname);
246. end;

http://blog.csdn.net/earbao/article/details/21160033