Capturar la imagen del escritorio en un TImage

Enviado Por: Q3 Team
Web : http://www.q3.nu
Email: dlib@q3.nu
Fecha: 22/01/00

Truco accedido 143 veces

Pon un TImage (Image1) y un TButton (Button1) en tu form

Pon este código dentro del OnClick de Button1:

 procedure TForm1.Button1Click(Sender: TObject);
 var
   DeskTop : TCanvas ;
 begin
   DeskTop := TCanvas.Create ;
   try
     with DeskTop do
       Handle := GetWindowDC (GetDesktopWindow) ;

     with Image1.Canvas do
       CopyRect (Rect (0, 0, 200, 200),
                 DeskTop,
                 Rect (0, 0, 200, 200))
   finally
     DeskTop.Free
   end
 end;

Puedes dibujar en cualquier objeto que tenga canvas (en tu Form, en un TPaintBox, etc...)