Captura pantalla

[Delfino]

El prcedimiento de marcos funciona perfectamente,
ahora pregunto, se puede desde una app Delphi hacer q se capture la pantalla pero sin la app Delphi? q en el bitmap resultante no aparezca el escritorio con todo lo q contiene pero la app Delphi q mando el comando no aparezca..

[[seoane]]

Empezado por Delfino

El prcedimiento de marcos funciona perfectamente,
ahora pregunto, se puede desde una app Delphi hacer q se capture la pantalla pero sin la app Delphi? q en el bitmap resultante no aparezca el escritorio con todo lo q contiene pero la app Delphi q mando el comando no aparezca..

Una solucion sencilla seria sacar nuestro formulario de en medio mientras capturamos la pantalla.

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Ocultamos el formulario
  Visible:= FALSE;
  Application.ProcessMessages;

  // Capturamos la pantalla con el codigo de marcos

  // Volvemos a mostrar el formulario
  Visible:= TRUE;
end;

[Delfino]

Le he puesto el siguiente codigo:

Código Delphi [-]
Visible := False;
Application.ProcessMessages;
Bmp := TBitmap.Create;
try
 Bmp.FreeImage; 
 Bmp.Width := GetSystemMetrics(SM_CXSCREEN);    //Screen.Width
 Bmp.Height := GetSystemMetrics(SM_CYSCREEN);   //Screen.Height
 BitBlt(Bmp.Canvas.Handle, 0, 0, Bmp.Width, Bmp.Height, GetDc(0), 0, 0, SRCCOPY);
 Bmp.SaveToFile (ChangeFileExt(Application.ExeName,'.bmp'));
 finally
  Bmp.Free;                           
 end; 
Visible := True ;

Pero por desgracia lo hace correctamente solo la primera vez de su ejecucion, las siguientes veces muestra la ventana del programa no se pq, alguna idea?

[Jonnathan]

Hola amigo,me paseaba por casualidad por el foro buscando ayuda y me encontre con este post y se me ocurrio probar tu idea porque tal vez me pueda servir en un futuro. Lo que pasa con la ventana que sigue apareciendo es que probablemente pasa tan rápido por el código que no le da tiempo de "ocultar" totalmente la ventana antes de la captura y por eso aparece. Solo por probar le puse una línea con "sleep(500);" antes de la linea que captura la pantalla ("BitBlt(Bmp.Canvas.Handle, 0, 0, Bm...") y ya podia tomar las capturas una y otra vez y la ventana no aparecía.
El problema con el "sleep" es que la aplicación se va a detener la cantidad de tiempo que le pongas, en este caso milisegundos, que tal vez necesites para ejecutar otras tareas de tu aplicación. Podrias ejecutar un sleep mejorado para que tu aplicación siga procesando mensajes con este código:

procedure Delay(msecs:integer);
var
FirstTickCount:longint;
begin
FirstTickCount:=GetTickCount;
repeat
Application.ProcessMessages;
until ((GetTickCount-FirstTickCount) >= Longint(msecs));
end;

y lo llamas antes de la linea que captura la pantalla:

...
delay(200);
BitBlt(Bmp.Canvas.Handle, 0, 0, Bmp.Width, Bmp.Height, GetDc(0), 0, 0, SRCCOPY);
...

Otro detalle es el tiempo que le vas a poner, no me atreveria darte un tiempo en milisegundos porque creo que va a depender de que tan rápido sea el computador, prueba varios, te recomiendo a partir de 200 milisegundos porque en mi p4 de 2.4 Ghz con menos milisegundos seguia apareciendo la ventana.

[Delfino]

probablemente pasa tan rápido por el código que no le da tiempo de "ocultar" totalmente la ventana antes de la captura

Entonces pq se ejecuta correctamente la primera vez? creo q tiene q ver con algun comportamiento raro del mismo sistema con el cacheo de imagenes..

[walito]

teniendo en cuenta el codigo que se mensiono anteriormente de como tomar un captura pantalla, es posible hacer algun codigo que, fuera de mi programa pueda seleccionar con el mouse marcando y arrastrando en el escritorio lo que deseo capturar?
Por solamente el mouse no me da bola fuera del form de mi programa.


Gracias

walter