Capturar Area da desktop

Question

Alguem ai podia me explicar como pegar uma area por exemplo de 100x100 no centro da desktop e passar para um Bit Map...

Carnette · Answer

Experimente isto...� s� ir mechendo nos valores do Rect

procedure TForm1.FormResize(Sender: TObject);
var
R : TRect;
DC : HDc;
Canv : TCanvas;
begin
R := Rect( 0, 0, Screen.Width, Screen.Height );
DC := GetWindowDC( GetDeskTopWindow );
Canv := TCanvas.Create;
Canv.Handle := DC;
Canvas.CopyRect( R, Canv, R );
ReleaseDC( GetDeskTopWindow, DC );
end;