Карта сайтаСсылкиКонтакты

Хостинг


Как скопировать рабочий стол Windows в Bitmap

PDF Печать
Статьи

Вот кусок кода Delphi, при помощи которого можно захватывать изображение рабочего стола Windows в объект TBitmap:


procedure ScreenShot(DestBitmap : TBitmap) ;
 var
    DC : HDC;
 begin
   DC := GetDC (GetDesktopWindow) ;
   try
    DestBitmap.Width := GetDeviceCaps (DC, HORZRES) ;
    DestBitmap.Height := GetDeviceCaps (DC, VERTRES) ;
    BitBlt(DestBitmap.Canvas.Handle,
           0,
           0,
           DestBitmap.Width,
           DestBitmap.Height,
           DC,
           0,
           0,
           SRCCOPY) ;
   finally
    ReleaseDC (GetDesktopWindow, DC) ;
   end;
 end;

 

Добавить комментарий


Защитный код
Обновить