Скриншот экрана

Предыдущая тема Следующая тема Перейти вниз

Скриншот экрана

Сообщение  trew в Вс Янв 30, 2011 5:03 pm

Пример скриншота экрана и отправка битмапа в буфер обмена:

Код:
#Include "windows.bi"

Dim as integer w, h
Dim as HWND DSKWND = GetDesktopWindow()

dim as RECT r
GetClientRect( DSKWND, @r ) 
w = r.right - r.left
h = r.bottom - r.top 

dim as HDC display_dc      = GetDC( DSKWND )
dim as HDC bitmap_dc      = CreateCompatibleDC( display_dc )
dim as HBITMAP bitmap      = CreateCompatibleBitmap( display_dc, w, h )
dim as HGDIOBJ null_bitmap = SelectObject( bitmap_dc, bitmap )

BitBlt( bitmap_dc, 0, 0, w, h, display_dc, 0, 0, SRCCOPY )
OpenClipboard(0)
EmptyClipboard()
SetClipboardData(CF_BITMAP,CopyImage(bitmap,IMAGE_BITMAP,0,0,LR_COPYRETURNORG))
CloseClipboard()

trew

Сообщения : 331
Дата регистрации : 2010-10-14

Посмотреть профиль

Вернуться к началу Перейти вниз

Предыдущая тема Следующая тема Вернуться к началу


 
Права доступа к этому форуму:
Вы не можете отвечать на сообщения