Форум АНТИЧАТ - Перехват вывода cmd

Вот готовый пример реализации, рабочий и на Дельфи:
Код:
function Dos2Win(CmdLine:String):string;

 const BUFSIZE = 2000; 

 var SecAttr : TSecurityAttributes; 

hReadPipe, hWritePipe : THandle; StartupInfo: TStartUpInfo; ProcessInfo: TProcessInformation; 

Buffer : Pchar; WaitReason, BytesRead : DWord; 

begin 

  with SecAttr do

   begin 

    nlength := SizeOf(TSecurityAttributes); 

    binherithandle := true; 

    lpsecuritydescriptor := nil; 

   end; 

// Creazione della pipe 

   if Createpipe (hReadPipe, hWritePipe, @SecAttr, 0) then 

    begin 

     Buffer := AllocMem(BUFSIZE + 1); // Allochiamo un buffer di dimensioni BUFSIZE+1 

     FillChar(StartupInfo, Sizeof(StartupInfo), #0);

     StartupInfo.cb := SizeOf(StartupInfo); 

     StartupInfo.hStdOutput := hWritePipe; 

     StartupInfo.hStdInput := hReadPipe; 

     StartupInfo.dwFlags := STARTF_USESTDHANDLES + STARTF_USESHOWWINDOW; 

     StartupInfo.wShowWindow := SW_HIDE; 

     if CreateProcess(nil,PChar(CmdLine),@SecAttr,@SecAttr,true,NORMAL_PRIORITY_CLASS,nil, 

nil,StartupInfo, ProcessInfo) then 

      begin 

// Attendiamo la fine dell'esecuzione del processo 

      repeat 

      WaitReason := WaitForSingleObject( ProcessInfo.hProcess,100); 

      Application.ProcessMessages; 

      until (WaitReason <> WAIT_TIMEOUT); 

// Leggiamo la pipe 

      Repeat 

      BytesRead := 0; 

// Leggiamo "BUFSIZE" bytes dalla pipe 

      ReadFile(hReadPipe, Buffer[0], BUFSIZE, BytesRead, nil); 

// Convertiamo in una stringa "\0 terminated" 

      Buffer[BytesRead]:= #0; 

// Convertiamo i caratteri da DOS ad ANSI 

      OemToAnsi(Buffer,Buffer); 

// Scriviamo nell' "OutMemo" l'output ricevuto tramite pipe 

      Result := Result + String(Buffer);

      until (BytesRead < BUFSIZE); 

     end; 

     FreeMem(Buffer); 

     CloseHandle(ProcessInfo.hProcess); 

     CloseHandle(ProcessInfo.hThread); 

     CloseHandle(hReadPipe); 

     CloseHandle(hWritePipe);

    end;

end;