Dos dudas! - Pantallazos & teclas!

[Delar]

Primera duda SOLUCIONADO -> Ver post #4 y #7:
Lo primero que me gustaria saber, es como, pulsando un boton, poder capturar todas las ventanas que tengo abiertas, es decir, yo por ejemplo tengo abierto Delphi 7, Firefox y MSN Messenger, pues le doy a un boton y me hace un pantallazo de Delphi, otro de Firefox y otro de MSN, y los guarda o bien con el nombre de la ventana.algo o con 1.algo, 2.algo, etc...

Segunda duda SOLUCIONADO -> Ver post #2:
Yo en mi programa tengo un CoolTrayIcon, y quiero que aunque la ventana esté minimizada en el icono, si yo pulso alguna tecla me lo detecte. Sería esto posible?

Gracias por adelantado, y por si lo quieren saber utilizo Delphi 7.

Saludos,
Delar

[[maeyanes]]

Empezado por Delar

Segunda duda:
Yo en mi programa tengo un CoolTrayIcon, y quiero que aunque la ventana esté minimizada en el icono, si yo pulso alguna tecla me lo detecte. Sería esto posible?

Gracias por adelantado, y por si lo quieren saber utilizo Delphi 7.

Saludos,
Delar

Por tu segunda duda...

El mismo creador de CoolTrayIcon tiene un componente que hace eso que tu quieres:

HotKeyManager: A component that allows you to add system hotkeys to your application. A system hotkey allows your app. to invoke a custom action from anywhere. Your app. doesn't have to be in the foreground or even visible. Full source code and 6 demos.


Saludos...

[Delar]

Empezado por maeyanes

Por tu segunda duda...

El mismo creador de CoolTrayIcon tiene un componente que hace eso que tu quieres:

HotKeyManager: A component that allows you to add system hotkeys to your application. A system hotkey allows your app. to invoke a custom action from anywhere. Your app. doesn't have to be in the foreground or even visible. Full source code and 6 demos.


Saludos...

Gracias! La segunda duda ya está resuelta, ahora falta la primera, y la más dificil jeje.
Saludos!

[[cHackAll]]

Lo que necesitas se puede hacer con la API 'EnumWindows', pero me parece que hay un poco de mayor control con la API 'GetWindow' como te muestra a continuacion:

Código Delphi [-]
var Buffer: array [0..255] of Char;
procedure TForm1.Button1Click(Sender: TObject);
var hWnd: Cardinal;
begin
 ListBox1.Clear;
 hWnd := GetWindow(GetDesktopWindow, GW_CHILD);
 while hWnd <> 0 do
  begin
   if IsWindowVisible(hWnd) and (GetWindowText(hWnd, @Buffer, SizeOf(Buffer)) <> 0) then
    ListBox1.AddItem(Buffer, Pointer(hWnd));
   hWnd := GetWindow(hWnd, GW_HWNDNEXT);
  end;
end;

En la propiedad 'Objects' del 'TStrings' guardo el identificador (Handle), de cada ventana para poder utilizarlo posteriormente como muestro en el siguiente código. Tambien debes tener MUY en cuenta que las ventanas pueden estar minimizadas, si quieres saber si una de estas lo está simplemente haces algo como ésto:

Código Delphi [-]
procedure TForm1.ListBox1Click(Sender: TObject);
begin
 with ListBox1 do
  if IsIconic(Cardinal(Items.Objects[ItemIndex])) then
   MessageBox(0, 'La ventana esta minimizada!', nil, 0)
  else
   MessageBox(0, 'La ventana NO esta minimizada', nil, 0);
end;

Tambien es de consideracion el hecho de algunas aplicaciones utilizan el 'SysTray' (los iconos que están al lado del reloj)... si quieres considerar a éstos tambien, haz el siguiente reemplazo en la primera parte del código que te deje:

Código Delphi [-]
 IsWindowVisible(hWnd)
por
 (GetWindow(hWnd, GW_CHILD) <> 0)

Espero haya sido ilustrador, Suerte!

[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