Capturar ventana activa y guardarla

[StartKill]

Tenes razón, la combinacion de teclas funciona correctamente....

Pero lo que quiero es poder hacer esto desde código....

Para mas detalles:

1.-Hay una aplicación "servidor" el recibe ordenes de una aplicacion "cliente" (control-remoto)

2.-El "cliente" envia una orden al "servidor" indicando que capture solo la ventana activa para luego grabarla en un archivo gráfico.

3.-Como mencione antes, tengo la rutina para capturar todo el escritorio..., pero solo necesito la ventana activa.

//-------------------
Razon por la cual necesito hacerlo por codigo ya que no tendria acceso a la otra PC fisicamente para manipular el teclado.

A la espera de sus aportes, comentarios, regalos, maldiciones...

Your Friend,

StartKill
Lima-Perú

[keyboy]

¿Te sirve esto?

  (* Rutina para capturar la imaen de la ventana activa *)
  
  var
  	ActiveWnd: HWnd;
  	WinRect: TRect;
  	Bitmap: TBitmap;
  	Canvas: TCanvas;
  
  begin
  	{ Obtener ventana activa }
  	ActiveWnd := GetForegroundWindow();
  
  	{ Obtener dimensiones de la ventana activa }
  	GetWindowRect(ActiveWnd, WinRect);
  
  	{ Crear bitmap con las dimensiones de la ventana activa }
  	Bitmap := TBitmap.Create;
  	Bitmap.Width := WinRect.Right - WinRect.Left;
  	Bitmap.Height := WinRect.Bottom - WinRect.Top;
  
  	{ Obtener un canvas para la ventana activa }
  	Canvas := TCanvas.Create;
  	Canvas.Handle := GetWindowDc(ActiveWnd);
  
  	{ Copiar el canvas de la ventana activa al bitmap }
  	WinRect := Rect(0, 0, Bitmap.Width, Bitmap.Height);
  	Bitmap.Canvas.CopyRect(WinRect, Canvas, WinRect);
  
  	{ Guardar el bitmap en un archivo }
  	Bitmap.SaveToFile('window.bmp');
  
  	{ Liberar recursos }
  	Canvas.Free;
  	Bitmap.Free;
  end;

Bye

[StartKill]

Hola, keyboy--- gracias por este codigo funciono a la perfeccion.

jdangosto, si no habia forma de hacer en codigo estaba pensando en llenar el buffer de teclado con la combinacion de teclas que mecionabas, luego.....--gracias a ti tambien

Your friend,

StartKill
Lima-Perú

Nota: Señores moderadores, ayer respondi a este hilo---dando las gracias a keyboy jdangosto, pero veo que yo no he grabado bien o se han perdido datos en la pagina???