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

Снимок экрана, в расположенный на форме 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;

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

  • buy cialis online in australia http://tadmedz.com cheap levitra pills http://cialisxtl.com cheap viagra 100mg
  • buy viagra over counter uk how to get cialis samples buy generic cialis uk
  • Трудно себе представить современного человека, ни разу не пробовавшего сыр. Этот продукт настолько привычен в нашем рационе, что мы даже не задумываемся, как он впервые попал на наш стол и какова история его появления. На нашем сайте собрано больше 50 сортов сыра с описаниями. Детальную информацию...

Счетчики