[delphi]運作cmd指令，并取得輸出字元

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;  
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,  
40.     StartInfo,  
41.     ProceInfo);  
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);