CreateProcess输出参数例子

C++版

 BOOL OnputCreateProcess(char cmdline[128],char outputfilename[256])
{
 BOOL brunsucc = FALSE;

 SECURITY_ATTRIBUTES SecAtrrs={0};
 SecAtrrs.nLength=sizeof(SecAtrrs);
 SecAtrrs.lpSecurityDescriptor=NULL;
 SecAtrrs.bInheritHandle=TRUE;

 HANDLE houtputFile = CreateFile(outputfilename,
     GENERIC_READ|GENERIC_WRITE,
     FILE_SHARE_READ|FILE_SHARE_WRITE,
     &SecAtrrs,
     OPEN_ALWAYS,
     FILE_ATTRIBUTE_NORMAL| FILE_FLAG_WRITE_THROUGH,
     NULL);
 if (houtputFile != INVALID_HANDLE_VALUE)
 {
  PROCESS_INFORMATION   process;
  STARTUPINFO   startupInfo={0};  
  startupInfo.cb=sizeof(STARTUPINFO);
  startupInfo.dwFlags=STARTF_USESHOWWINDOW | STARTF_USESTDHANDLES;
  startupInfo.wShowWindow =SW_HIDE;
  startupInfo.hStdOutput=houtputFile;
  startupInfo.lpReserved=NULL;  
  startupInfo.lpReserved2=NULL;  
  startupInfo.lpDesktop=NULL;  
   
  BOOL bcrtps=CreateProcess(NULL,
     cmdline,
     NULL,
     NULL,
     TRUE,
     NORMAL_PRIORITY_CLASS,
     NULL,
     NULL,
     &startupInfo,&process);
  if (bcrtps)
  {    
  if (WaitForSingleObject(process.hProcess, INFINITE) == WAIT_FAILED)
  {
   CloseHandle(process.hThread);  
   CloseHandle(process.hProcess);     
  }
  else
  {
   CloseHandle(process.hThread);  
   CloseHandle(process.hProcess);     
   brunsucc = TRUE;
  }
  }
 }
 CloseHandle(houtputFile);

 return brunsucc;
}

int GetCurrDirectory(char * pDirectory)
{
 char szFilename[256];
 ::GetModuleFileName(NULL, szFilename, 255);
 
 char drive[_MAX_DRIVE];
 char dir[_MAX_DIR];
 char fname1[_MAX_FNAME];
 char ext[_MAX_EXT];
 
 _splitpath( szFilename, drive, dir, fname1, ext );
 
 strcpy(pDirectory,drive);
 strcat(pDirectory,dir);
 
 return 1; 
}

int main(int argc, char* argv[])
{
 char cmdline[128]={0};
 strcpy(cmdline,"arp -a");

 char filepath[256]={0};
 GetCurrDirectory(filepath);

 char wfsqlname[256]={0};
 strcpy(wfsqlname,filepath);
 strcat(wfsqlname,"temp.log");

 OnputCreateProcess(cmdline,wfsqlname);
 printf("Hello World!/n");
 return 0;
}

 

 

delphi版

function OnputCreateProcess(cmdline:String;outputfilename:String):Boolean;
var
  houtputFile:THandle;
  SecAtrrs:SECURITY_ATTRIBUTES;
  startupInfo:TSTARTUPINFO;
  process:PROCESS_INFORMATION;
  bcrtps:Boolean;
  brunsucc:Boolean;
begin
  brunsucc:=False;
  result:=brunsucc;

  ZeroMemory(@SecAtrrs,sizeof(SECURITY_ATTRIBUTES));
  SecAtrrs.nLength:=sizeof(SecAtrrs);
  SecAtrrs.lpSecurityDescriptor:=nil;
  SecAtrrs.bInheritHandle:=true;

  houtputFile := CreateFile(pchar(outputfilename),
     GENERIC_READ or GENERIC_WRITE,
     FILE_SHARE_READ or FILE_SHARE_WRITE,
     @SecAtrrs,
     OPEN_ALWAYS,
     FILE_ATTRIBUTE_NORMAL or FILE_FLAG_WRITE_THROUGH,
     0);

  if (houtputFile <> INVALID_HANDLE_VALUE) then
  begin
      ZeroMemory(@startupInfo,sizeof(TSTARTUPINFO));
      startupInfo.cb:=sizeof(STARTUPINFO);
      startupInfo.dwFlags:=STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
      startupInfo.wShowWindow :=SW_HIDE;
      startupInfo.hStdOutput:=houtputFile;
      startupInfo.lpReserved:=nil;
      startupInfo.lpReserved2:=nil;
      startupInfo.lpDesktop:=nil;

      bcrtps:=CreateProcess(nil,
                           pchar(cmdline),
                           nil,
                           nil,
                           TRUE,
                           NORMAL_PRIORITY_CLASS,
                           nil,
                           nil,
                           startupInfo,process);
      if (bcrtps) then
      begin
          if (WaitForSingleObject(process.hProcess, INFINITE) = WAIT_FAILED) then
          begin
           CloseHandle(process.hThread);
           CloseHandle(process.hProcess);
          end
          else
          begin
           CloseHandle(process.hThread);
           CloseHandle(process.hProcess);
           brunsucc := TRUE;
          end
      end;
  end;
  CloseHandle(houtputFile);
  result:=brunsucc;
end;