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

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()