Как сделать снимок всего экрана?

Снимок экрана, в расположенный на форме Image, можно сделать следующей процедурой:

procedure TForm1.Button1Click(Sender: TObject);
var
DeskTopDC: HDc;
DeskTopCanvas: TCanvas;
DeskTopRect: TRect;
 
 
begin
DeskTopDC := GetWindowDC(GetDeskTopWindow);
DeskTopCanvas := TCanvas.Create;
DeskTopCanvas.Handle := DeskTopDC;
 
 
DeskTopRect := Rect(0,0,Screen.Width,Screen.Height);
 
 
Image1.Canvas.CopyRect(DeskTopRect,DeskTopCanvas,DeskTopRect);
 
 
ReleaseDC(GetDeskTopWindow,DeskTopDC);
 
end;

Последние комментарии

  • generic cialis no doctor's prescription https://cialmen.com prices of cialis buy viagra cialis order cialis cialis and interaction with ibutinib
  • Guys just made a web-page for me, look at the link: https://beachbags-11.webself.net/ Tell me your credentials. Thank you.
  • Guys just made a website for me, look at the link: http://ternogradu0.bloguetechno.com/--29077808 Tell me your prescriptions. Thanks.

Счетчики