Dos dudas! - Pantallazos & teclas!

[Neftali [Germán.Estévez]]

Empezado por cHackAll

Espero haya sido ilustrador

A mí sí me loha parecido.

[Delar]

Eso me va mas que bien para saber las ventanas, pero para capturar la pantalla de esa ventana? Es decir, como si pulsase Alt+ImprPant...
Lo que he pensado es en el metodo que tu me diste, como ya las tengo en un ListBox pues ir una por una pulsando Alt+ImprPant... no?

Saludos!

[[cHackAll]]

Debes tener muy en cuenta el funcionamiento del Alt+PrintScr, al haber una ventana "TopMost" (AlwaysOnTop), sobre la que queremos capturar, se copia al portapapeles tambien parte de la ventana que esta delante de la que queremos!!! que es lo que sucede? pues para no complicarte la explicacion te diré que el Güindos trabaja en un solo "Lienzo", en el cual todos escriben cuando asi lo solicita el usuario (indirectamente claro), al capturar una ventana lo que hacemos es agarrar este unico Lienzo y copiamos un cuadro, el cuadro donde esta la ventana. Facil de comprobar, pon la coordenada LeftTop de una ventana tocando un fondo de un color X, siendo el eQuispe con bordes redondeados pues una partecita la copiaremos del fondo de color! cambia el color y realiza la operacion de nuevo...

Bueno pero este no es el punto, pues solo te explico para qeu sepas lo que haces. Hay un factor mas importante que te lo dije el anterior post, que tiene mucho que ver con la lógica que te acabo de explicar, no podras capturar siendo una ventana oculta, en el Tray, etc... basicamente debe estar dentro de las coordenadas de lo qeu tu ves; bueno y finalmente de dejo el código que necesitas:

Código Delphi [-]
procedure TForm1.ListBox1Click(Sender: TObject);
var hWnd, hCanvas: Cardinal; Rect: TRect;
begin
 with ListBox1 do
  hWnd := Cardinal(Items.Objects[ItemIndex]);
 hCanvas := GetWindowDC(hWnd);
 if hCanvas <> 0 then
  with Image1 do
   begin
    Windows.GetWindowRect(hWnd, Rect);
    Picture.Assign(nil);
    StretchBlt(Canvas.Handle, 0, 0, Width, Height, hCanvas, 0, 0, Rect.Right - Rect.Left, Rect.Bottom - Rect.Top, SRCCOPY);
    ReleaseDC(hWnd, hCanvas);
   end;
end;

Utilizo la mísma logica del codigo que deje en el último post, y en el OnClick te dejo lo que necesitas. No olvides que tambien a tu formulario de prueba le debes poner un TImage de dimensiones aceptables.

Si no quieres que la imagen se auto ajuste pues haz el siguiente reemplazo:

Código Delphi [-]
    StretchBlt(Canvas.Handle, 0, 0, Width, Height, hCanvas, 0, 0, Rect.Right - Rect.Left, Rect.Bottom - Rect.Top, SRCCOPY);
por
    BitBlt(Canvas.Handle, 0, 0, Rect.Right - Rect.Left, Rect.Bottom - Rect.Top, hCanvas, 0, 0, SRCCOPY);

Y si quieres guardar la imagen en un Bitmap (por ejemplo), inserta la siguiente linea luego de llamar a 'StretchBlt' (o a 'BitBlt'):

Código Delphi [-]
...
    StretchBlt( ...
    Picture.Bitmap.SaveToFile('c:\ClubDelphi.cHackAll.bmp');  // Esta!
    ReleaseDC( ...
...

Saludos!

[Delar]

Oooolé! Muchisimas gracias!
Lo he probado justo cuando recibí el email de ClubDelphi que me decia que habia una respuesta y funciona. De verdad muchas gracias.
Saludos,
Delar