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

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

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

  • Отправка Вашего сообщения в более чем 1 200 000 форм обратной связи России Это отправка по формам с сайтов в разделе контакты, которые заполняются нашим роботом. Далее письмо с вашим предложением приходит на контактный E-mail организации. При отправку через форму каждый сайт отправляет сообщение...
  • Здравствуйте, меня зовут Пакалов Алексей, я являюсь руководителем Благотворительного Фонда Помоги Детям http://pomogi-detjam.ru Мы занимаемся помощью детям-сиротам, детям-инвалидам,детям из неблагополучных семей,основным родом нашей деятельности являются дети больные детским церебральным параличом....
  • shopg39 shopg81 shopg82 shopg42 shopg63 Добро пожаловать в сексшоп алматы shopg24 shopg68 shopg29 shopg88 shopg36

Счетчики