Function CreateCopyImageRect(ByVal hWin As HWND,ByVal x As long,ByVal y As Long,ByVal w As Long,ByVal h As Long ,ByVal iFlag as Long = 0) As HBITMAP
Создает скриншот выбранной области указанного окна, и возвращает хендл битмапа
hwnd - Хендл окна
x,y,w,h - расположение и размеры области для снимка
flag - только для Linux. Определяет какой тип окна передается в 1 параметре GTKWidget или GDKWindow. Если 0 , то GTKWidget , иначе GDKWindow. Окно , созданное с помощью OpenWindow является GTKWidget :)
Windows , Linux
#Include "window9.bi"
Var hwnd=OpenWindow("",100,100,200,200)
#ifdef __FB_WIN32__
var d = GetDesktopWindow()
#Else
var d = gdk_get_default_root_window()
#EndIf
Var hbitmap=CreateCopyImageRect(d,100,100,100,100 , 1)
ImageGadget(1,0,0,200,200)
SetImageGadget(1, hbitmap)
Do : Loop until WaitEvent= EventClose
Created with the Personal Edition of HelpNDoc: Easily create iPhone documentation