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

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

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

  • как называется рыжая панда >>>>> https://youtu.be/sUHmEL93qhQ
  • Отправка сообщений в более чем 450 000 форм обратной связи (только Россия и СНГ) за 3000р Ваше сообщение получат администраторы сайтов Вы можете прорекламировать Ваши товары и услуги! Ваше письмо будет прочитано. Заявки и вопросы писать только сюда: form2017form @ yandex.ru ( убрать пробелы )
  • Is this website alive? Or....NOT?! Thanks. I Need XEvil. XEvil 4.0 can break Google ReCaptcha-2!

Счетчики