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 97 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...)