Hi,
There is a list of windows (handles). Is it possible to make thumbnails of these windows ?
FUNCTION FindIcon(nHandle)
LOCAL nIcon
LOCAL ICON_SMALL:=0
LOCAL ICON_BIG:=1
LOCAL GCL_HICONSM:=-34
LOCAL GCL_HICON:=-14
LOCAL IDI_WINLOGO:=32517
nIcon := SendMessageA(nHandle, WM_GETICON, ICON_BIG, 0)
if nIcon != 0
RETURN nIcon
endif
nIcon := SendMessageA(nHandle, WM_GETICON, ICON_SMALL, 0)
if nIcon != 0
RETURN nIcon
endif
nIcon := GetClassLongA(nHandle, GCL_HICON)
if nIcon != 0
RETURN nIcon
endif
nIcon := GetClassLongA(nHandle, GCL_HICONSM)
if nIcon != 0
RETURN nIcon
endif
nIcon:=LoadIconA( 0, IDI_WINLOGO )
RETURN nIcon
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 38 guests