Ejecutar DOS en Ventana Windows

[MAXIUM]

Parecerá un tema repetido, pero lo cierto es que busco algo en tiempo real. Es decir, al ejecutar un comando DOS, aparece el resultado en el memo pero cuando ya esta todo el proceso finalizada y no muestra todos los pasos.

Por ejemplo al ejecutar chkdsk

http://www.ajpdsoft.com/modules.php?...rticle&sid=442

[delphi.com.ar]

Yo hace muuuucho hice algo así, no tengo el código pero recuerdo que hacía lo que dicen estos hilos:

http://www.clubdelphi.com/foros/show...06&postcount=2
http://www.clubdelphi.com/foros/show...04&postcount=2

Y luego obtenía el buffer de la consola para mostrarlo en pantalla.

Saludos!

[MAXIUM]

Lo más cercano que encontré

Código Delphi [-]
procedure RunDosInMemo( CmdLine: string; AMemo: TMemo );
const
  ReadBuffer = 2400;
var
  Security: TSecurityAttributes;
  ReadPipe, WritePipe: THandle;
  start: TStartUpInfo;
  ProcessInfo: TProcessInformation;
  Buffer: Pchar;
  BytesRead: DWord;
  Apprunning: DWord;
begin
   Screen.Cursor := CrHourGlass;
   with Security do
   begin
      nlength := SizeOf( TSecurityAttributes );
      binherithandle := true;
      lpsecuritydescriptor := nil;
   end;
   if Createpipe( ReadPipe, WritePipe, @Security, 0 ) then
   begin
      Buffer := AllocMem( ReadBuffer+1 );
      FillChar( Start, Sizeof( Start ), #0 );
      start.cb := SizeOf( start );
      start.hStdOutput := WritePipe;
      start.hStdInput := ReadPipe;
      start.dwFlags := STARTF_USESTDHANDLES + STARTF_USESHOWWINDOW;
      start.wShowWindow := SW_HIDE;
      if CreateProcess( nil, PChar( CmdLine ), @Security, @Security, true,
                        NORMAL_PRIORITY_CLASS, nil, nil,  start, ProcessInfo ) then
      begin
         repeat
            Apprunning := WaitForSingleObject( ProcessInfo.hProcess, 100 );
            ReadFile( ReadPipe, Buffer[0], ReadBuffer, BytesRead, nil );
            Buffer[BytesRead] := #0;
            OemToAnsi( Buffer, Buffer );
            AMemo.Text := AMemo.text + string( Buffer );
            Application.ProcessMessages;
         until ( Apprunning <> WAIT_TIMEOUT );
      end;
      FreeMem( Buffer );
      CloseHandle( ProcessInfo.hProcess );
      CloseHandle( ProcessInfo.hThread );
      CloseHandle( ReadPipe );
      CloseHandle( WritePipe );
   end;
   Screen.Cursor := CrDefault;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
   Memo1.Clear;
   Button1.Enabled := false;
   RunDosInMemo( 'ping 127.0.0.1', Memo1 );
   // RunDosInMemo( 'net send 127.0.0.1 Привет', Memo1 );
   Button1.Enabled := true;
end;

[Neeruu]

Hola a todos...

Hay un componente que hace eso....

Se llama TDosCommand....

http://maxxdelphisite.free.fr/doscmd.htm

Saluda Atte Neeruu!!!

[MAXIUM]

Hey, es excelente. Muchas gracias

[[escafandra]]

Puedes revisar ésto, en caso de que no te interesen componentes.


Saludos.