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

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