procedure TForm1.Button1Click(Sender: TObject);<br>var<br> DC: HDC;<br> Canvas: TCanvas;<br>begin<br> DC:=GetDC(0);<br> try<br> Canvas:=TCanvas.Create;<br> try<br> Canvas.Handle:=DC;<br> Image1.Canvas.CopyRect(Rect(0, 0, Screen.Width, Screen.Height), Canvas, Rect(0, 0, Screen.Width, Screen.Height));<br> finally<br> Canvas.Free<br> end<br> finally<br> ReleaseDC(0, DC)<br> end<br>end;<br>