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

2016-12-21 11:38:28来源:CSDN作者:chinajobs人点击

第七城市
[delphi] view plain copy print?在CODE上查看代码片派生到我的代码片
  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..255of 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?在CODE上查看代码片派生到我的代码片
  1. GetRunConsoleResult(执行文件,SW_SHOWNORMAL,返回字符串); //函数执行成功返回 0  
第七城市

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台