Leer texto de otra aplicación

[erika.martinez]

Si, le pasé todo el path, y lo que obtengo es lo que puse en el mensaje #3

[[seoane]]

Buffer es una variable interna, entiendo entonces que colocas un breakpoint y examinas su contenido ¿cuando lo haces? ¿en que instrucción lo haces?

[[seoane]]

Perdona, ahora que leo mejor el mensaje 3 intuyo que miras el valor de la variable buffer justo después de llamar a la función:

Código Delphi [-]
GetEnvironmentVariable('COMSPEC', @Buffer, SizeOf(Buffer) - 1);

Pero si te fijas en la siguiente instrucción, después de la ruta del cmd.exe le "pegamos" el parámetro "/c" y la ruta entera de tu programa. Es decir le estamos diciendo al cmd que ejecute tu programa. Así que no entiendo cual es el problema

[erika.martinez]

Haciendo esto que decís:

Código Delphi [-]
GetEnvironmentVariable('COMSPEC', @Buffer, SizeOf(Buffer) - 1);
    StrCat(@Buffer,PChar(' /c ' + FileName)); {donde FileName = 'C:\Vienna\RnaFold.exe'}
    if CreateProcess(nil, @Buffer, nil, nil, TRUE, CREATE_NEW_CONSOLE, nil, nil, si, pi) then

       repeat
        PeekNamedPipe(read_stdout, @Buffer, SizeOf(Buffer) - 1, @bread, @avail, nil);
        if bread > 0 then
        begin
          Fillchar(Buffer, SizeOf(Buffer), 0);
          ReadFile(read_stdout, Buffer, bread, bread, nil);
          Rdo:= Rdo + String(PChar(@Buffer));
        end;
        GetExitCodeProcess(pi.hProcess, exitcod);
      until (exitcod <> STILL_ACTIVE) and (bread = 0);

Cuando entro al repeat, la variable bread = 0 por lo que el programa no lee nada.

[ZRR]

Esto podria ayudarte:
http://www.clubdelphi.com/trucos/index.php?id=54

Saludos

[[cHackAll]]

Hola amigos, algunos comentarios:

ScreenBuffer no es nada más que el buffer en memoria convencional (así se llamaba), que tenemos desde las primeras PCs compatibles. 80 es la cantidad máxima de caracteres que se podían utilizar horizontalmente, y 50 es la cantidad máxima soportada al cambiar el modo (int 10h, 0).

CreateProcess es desde mi punto de vista (fuera de cualquier discusión del foro), la mejor función para correr programas. Si no utilizan Güindos eQuispe la carpeta es 'windows\command', y el eula.txt no se dónde andará.

CreateFont la use, pues es la forma mas simple de crear el font que requiero para mostrar a los antiguos caracteres 8:12 del CLI

Colors contiene la RGB de los colores que se ven en consola (modo texto). No hice el blink pues creo no es aplicable.

Toolhelp32ReadProcessMemory es una hermosa función que nos sirve para curiosear en procesos ajenos . Lo lindo del caso es que podemos acceder al primer mega de memoria que nos dejaron los programas en DOS, en éste encontraremos cosillas muuuy interesantes.

SetBkColor API que permite definir el color de fondo (background) del texto en un determinado lienzo.

SetTextColor API define el color del texto (foreground en este caso).

0j0: el Timer llama a OnPaint para hacer 'refresh'

Lo que requieres es leer la matriz que te dejé, con esto encontrarás lo que buscas tal y como lo ve el usuario... si quieres métele todo a un PaintBox para que muestres otras cosillas también en tu formulario...

PD: El resto como ya se imaginaran es cosecha de mi ocio
Espero nos cuentes que es lo que querías hacer en concreto.

Suerte!

[[cHackAll]]

Espero que tu programa DOS sea CLI (Command Line Interface), si no debemos ver otras alternativas, pero igual nos servirá la idea de leer del de otro proceso.

Saludos