Form - Capturar area cliente

Top  Previous  Next

Pegando o conteudo do desktop:

*****************************

 

 

procedure TForm1.FormResize(Sender: TObject);

var

  R    : TRect;

  DC   : HDc;

  Canv : TCanvas;

begin

  R           := Rect( 00, Screen.Width, Screen.Height );

  DC          := GetWindowDC( GetDeskTopWindow );

  Canv        := TCanvas.Create;

  Canv.Handle := DC;

  Canvas.CopyRect( R, Canv, R );

  ReleaseDC( GetDeskTopWindow, DC );

end;