Веб программирование

Снимаем скрин окна своей проги

 
 

Часто бывает нужно иметь скрин окна своей проги, например, чтобы куда-нибудь запостить.

Делать prntScr и править в паинте утомительно, поэтому я как-то раз набрал вот такой код:


procedure TForm1.Button2Click(Sender: TObject);
var
   GetScreenDC: HDC;
   GetScreenBMP: TBitmap;
begin
   GetScreenDC := GetwindowDC(form1.Handle); // получаем указатель на канву окна
   GetScreenBMP:= TBitmap.Create;            // создаем заготовку картинки 
   GetScreenBMP.Width:=form1.Width;       
   GetScreenBMP.Height:=form1.Height;
   // переносим битовую маску на канву картинки
   bitblt(GetScreenBMP.Canvas.Handle, 0, 0, form1.Width, form1.Height,GetScreenDC, 0, 0, SRCCOPY);
   getscreenbmp.SaveToFile('C:\4324324234.bmp');  // сохраняем картинку в файл и освобождаем ресурсы.
   GetScreenBMP.Free;
end;

Простой и компактный код. Из минусов - размер картинки получается большим - около 2-3 мб.


Есть вопросы? Спроси на нашем форуме!!
Нет комментариев

Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.