Delphi 执行控制台(console)程序获取返回结果

[delphi] view plain copy

 print?

1. function GetRunConsoleResult(FileName:String;Visibility:Integer;var mOutputs:string):Integer;  
2. var  
3.   sa:TSecurityAttributes;  
4.   hReadPipe,hWritePipe:THandle;  
5.   ret:BOOL;  
6.   strBuff:array[0..255] of char;  
7.   lngBytesread:DWORD;  
8.     
9.   WorkDir:String;  
10.   StartupInfo:TStartupInfo;  
11.   ProcessInfo:TProcessInformation;  
12. begin  
13.   FillChar(sa,Sizeof(sa),#0);  
14.   sa.nLength := Sizeof(sa);  
15.   sa.bInheritHandle := True;  
16.   sa.lpSecurityDescriptor := nil;  
17.   if not(CreatePipe(hReadPipe, hWritePipe, @sa, 0)) then  
18.     begin  
19.       Result:=-2;  //通道创建失败  
20.     end;  
21.   WorkDir:=ExtractFileDir(Application.ExeName);  
22.   FillChar(StartupInfo,Sizeof(StartupInfo),#0);  
23.   StartupInfo.cb:=Sizeof(StartupInfo);  
24.   StartupInfo.dwFlags:=STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;  
25.   StartupInfo.wShowWindow:=Visibility;  
26.   
27.   StartupInfo.hStdOutput:=hWritePipe;  
28.   StartupInfo.hStdError:=hWritePipe;  
29.   
30.   if not CreateProcess(nil,  
31.     PChar(FileName),               { pointer to command line string }  
32.     @sa,                           { pointer to process security attributes }  
33.     @sa,                           { pointer to thread security attributes }  
34.     True,                          { handle inheritance flag }  
35.     NORMAL_PRIORITY_CLASS,  
36.     nil,                           { pointer to new environment block }  
37.     PChar(WorkDir),                { pointer to current directory name, PChar}  
38.     StartupInfo,                   { pointer to STARTUPINFO }  
39.     ProcessInfo)                   { pointer to PROCESS_INF }  
40.   then  
41.     Result := INFINITE {-1 进程创建失败}  
42.   else  
43.     begin  
44.       CloseHandle(hWritePipe);  
45.       mOutputs:='';  
46.       while ret do  
47.       begin  
48.         FillChar(strBuff,Sizeof(strBuff),#0);  
49.         ret := ReadFile(hReadPipe, strBuff, 256, lngBytesread, nil);  
50.         mOutputs := mOutputs + strBuff;  
51.       end;  
52.   
53.       Application.ProcessMessages;  
54.       //等待console结束  
55.       WaitforSingleObject(ProcessInfo.hProcess, INFINITE);  
56.       GetExitCodeProcess(ProcessInfo.hProcess,  Cardinal(Result));  
57.       CloseHandle(ProcessInfo.hProcess);  { to prevent memory leaks }  
58.       CloseHandle(ProcessInfo.hThread);  
59.       CloseHandle(hReadPipe);  
60.     end;  
61. end;  

调用方式：

[delphi] view plain copy

 print?

1. GetRunConsoleResult(执行文件,SW_SHOWNORMAL,返回字符串); //函数执行成功返回 0