fzeet 0.6.3 → 0.6.4

data/lib/fzeet/windows/ole.rb

@@ -16,6 +16,7 @@ module Fzeet
 
 		module_function :InitializeOle
 
+		attach_function :CoTaskMemAlloc, [:ulong], :pointer
 		attach_function :CoTaskMemFree, [:pointer], :void
 
 		VT_EMPTY = 0
@@ -281,5 +282,191 @@ module Fzeet
 		end
 
 		attach_function :PropVariantClear, [:pointer], :long
+
+		ffi_lib 'oleaut32'
+		ffi_convention :stdcall
+
+		attach_function :SysAllocString, [:buffer_in], :pointer
+		attach_function :SysFreeString, [:pointer], :void
+		attach_function :SysStringLen, [:pointer], :uint
+
+		OLEIVERB_PRIMARY = 0
+		OLEIVERB_SHOW = -1
+		OLEIVERB_OPEN = -2
+		OLEIVERB_HIDE = -3
+		OLEIVERB_UIACTIVATE = -4
+		OLEIVERB_INPLACEACTIVATE = -5
+		OLEIVERB_DISCARDUNDOSTATE = -6
+
+		IOleWindow = COM::Interface[IUnknown,
+			GUID['00000114-0000-0000-C000-000000000046'],
+
+			GetWindow: [[:pointer], :long],
+			ContextSensitiveHelp: [[:int], :long]
+		]
+
+		OleWindow = COM::Instance[IOleWindow]
+
+		IOleInPlaceObject = COM::Interface[IOleWindow,
+			GUID['00000113-0000-0000-C000-000000000046'],
+
+			InPlaceDeactivate: [[], :long],
+			UIDeactivate: [[], :long],
+			SetObjectRects: [[:pointer, :pointer], :long],
+			ReactivateAndUndo: [[], :long]
+		]
+
+		OleInPlaceObject = COM::Instance[IOleInPlaceObject]
+
+		IOleInPlaceSite = COM::Interface[IOleWindow,
+			GUID['00000119-0000-0000-C000-000000000046'],
+
+			CanInPlaceActivate: [[], :long],
+			OnInPlaceActivate: [[], :long],
+			OnUIActivate: [[], :long],
+			GetWindowContext: [[:pointer, :pointer, :pointer, :pointer, :pointer], :long],
+			Scroll: [[:long_long], :long],
+			OnUIDeactivate: [[:int], :long],
+			OnInPlaceDeactivate: [[], :long],
+			DiscardUndoState: [[], :long],
+			DeactivateAndUndo: [[], :long],
+			OnPosRectChange: [[:pointer], :long]
+		]
+
+		OleInPlaceSite = COM::Callback[IOleInPlaceSite]
+
+		IOleClientSite = COM::Interface[IUnknown,
+			GUID['00000118-0000-0000-C000-000000000046'],
+
+			SaveObject: [[], :long],
+			GetMoniker: [[:ulong, :ulong, :pointer], :long],
+			GetContainer: [[:pointer], :long],
+			ShowObject: [[], :long],
+			OnShowWindow: [[:int], :long],
+			RequestNewObjectLayout: [[], :long]
+		]
+
+		OleClientSite = COM::Callback[IOleClientSite]
+
+		OLEGETMONIKER_ONLYIFTHERE = 1
+		OLEGETMONIKER_FORCEASSIGN = 2
+		OLEGETMONIKER_UNASSIGN = 3
+		OLEGETMONIKER_TEMPFORUSER = 4
+
+		OLEWHICHMK_CONTAINER = 1
+		OLEWHICHMK_OBJREL = 2
+		OLEWHICHMK_OBJFULL = 3
+
+		USERCLASSTYPE_FULL = 1
+		USERCLASSTYPE_SHORT = 2
+		USERCLASSTYPE_APPNAME = 3
+
+		OLEMISC_RECOMPOSEONRESIZE = 0x00000001
+		OLEMISC_ONLYICONIC = 0x00000002
+		OLEMISC_INSERTNOTREPLACE = 0x00000004
+		OLEMISC_STATIC = 0x00000008
+		OLEMISC_CANTLINKINSIDE = 0x00000010
+		OLEMISC_CANLINKBYOLE1 = 0x00000020
+		OLEMISC_ISLINKOBJECT = 0x00000040
+		OLEMISC_INSIDEOUT = 0x00000080
+		OLEMISC_ACTIVATEWHENVISIBLE = 0x00000100
+		OLEMISC_RENDERINGISDEVICEINDEPENDENT = 0x00000200
+		OLEMISC_INVISIBLEATRUNTIME = 0x00000400
+		OLEMISC_ALWAYSRUN = 0x00000800
+		OLEMISC_ACTSLIKEBUTTON = 0x00001000
+		OLEMISC_ACTSLIKELABEL = 0x00002000
+		OLEMISC_NOUIACTIVATE = 0x00004000
+		OLEMISC_ALIGNABLE = 0x00008000
+		OLEMISC_SIMPLEFRAME = 0x00010000
+		OLEMISC_SETCLIENTSITEFIRST = 0x00020000
+		OLEMISC_IMEMODE = 0x00040000
+		OLEMISC_IGNOREACTIVATEWHENVISIBLE = 0x00080000
+		OLEMISC_WANTSTOMENUMERGE = 0x00100000
+		OLEMISC_SUPPORTSMULTILEVELUNDO = 0x00200000
+
+		OLECLOSE_SAVEIFDIRTY = 0
+		OLECLOSE_NOSAVE = 1
+		OLECLOSE_PROMPTSAVE = 2
+
+		IOleObject = COM::Interface[IUnknown,
+			GUID['00000112-0000-0000-C000-000000000046'],
+
+			SetClientSite: [[:pointer], :long],
+			GetClientSite: [[:pointer], :long],
+			SetHostNames: [[:pointer, :pointer], :long],
+			Close: [[:ulong], :long],
+			SetMoniker: [[:ulong, :pointer], :long],
+			GetMoniker: [[:ulong, :ulong, :pointer], :long],
+			InitFromData: [[:pointer, :int, :ulong], :long],
+			GetClipboardData: [[:ulong, :pointer], :long],
+			DoVerb: [[:long, :pointer, :pointer, :long, :pointer, :pointer], :long],
+			EnumVerbs: [[:pointer], :long],
+			Update: [[], :long],
+			IsUpToDate: [[], :long],
+			GetUserClassID: [[:pointer], :long],
+			GetUserType: [[:ulong, :pointer], :long],
+			SetExtent: [[:ulong, :pointer], :long],
+			GetExtent: [[:ulong, :pointer], :long],
+			Advise: [[:pointer, :pointer], :long],
+			Unadvise: [[:ulong], :long],
+			EnumAdvise: [[:pointer], :long],
+			GetMiscStatus: [[:ulong, :pointer], :long],
+			SetColorScheme: [[:pointer], :long]
+		]
+
+		OleObject = COM::Instance[IOleObject]
+
+		class PARAMDATA < FFI::Struct
+			layout \
+				:szName, :pointer,
+				:vt, :ushort
+		end
+
+		CC_FASTCALL = 0
+		CC_CDECL = 1
+		CC_MSCPASCAL = CC_CDECL + 1
+		CC_PASCAL = CC_MSCPASCAL
+		CC_MACPASCAL = CC_PASCAL + 1
+		CC_STDCALL = CC_MACPASCAL + 1
+		CC_FPFASTCALL = CC_STDCALL + 1
+		CC_SYSCALL = CC_FPFASTCALL + 1
+		CC_MPWCDECL = CC_SYSCALL + 1
+		CC_MPWPASCAL = CC_MPWCDECL + 1
+		CC_MAX = CC_MPWPASCAL + 1
+
+		DISPATCH_METHOD = 0x1
+		DISPATCH_PROPERTYGET = 0x2
+		DISPATCH_PROPERTYPUT = 0x4
+		DISPATCH_PROPERTYPUTREF = 0x8
+
+		class METHODDATA < FFI::Struct
+			layout \
+				:szName, :pointer,
+				:ppdata, :pointer,
+				:dispid, :long,
+				:iMeth, :uint,
+				:cc, :uint,
+				:cArgs, :uint,
+				:wFlags, :ushort,
+				:vtReturn, :ushort
+		end
+
+		class INTERFACEDATA < FFI::Struct
+			layout \
+				:pmethdata, :pointer,
+				:cMembers, :uint
+		end
+
+		attach_function :CreateDispTypeInfo, [:pointer, :ulong, :pointer], :long
+
+		class DISPPARAMS < FFI::Struct
+			layout \
+				:rgvarg, :pointer,
+				:rgdispidNamedArgs, :pointer,
+				:cArgs, :uint,
+				:cNamedArgs, :uint
+		end
+
+		attach_function :DispInvoke, [:pointer, :pointer, :long, :ushort, :pointer, :pointer, :pointer, :pointer], :long
 	end
 end

data/lib/fzeet/windows/shdocvw - Copy.rb

@@ -0,0 +1,171 @@
+require_relative 'com'
+
+module Fzeet
+	module Windows
+		ffi_lib 'shdocvw'
+		ffi_convention :stdcall
+
+		NavOpenInNewWindow = 0x0001
+		NavNoHistory = 0x0002
+		NavNoReadFromCache = 0x0004
+		NavNoWriteToCache = 0x0008
+		NavAllowAutosearch = 0x0010
+		NavBrowserBar = 0x0020
+		NavHyperlink = 0x0040
+		NavEnforceRestricted = 0x0080
+		NavNewWindowsManaged = 0x0100
+		NavUntrustedForDownload = 0x0200
+		NavTrustedForActiveX = 0x0400
+		NavOpenInNewTab = 0x0800
+		NavOpenInBackgroundTab = 0x1000
+		NavKeepWordWheelText = 0x2000
+		NavVirtualTab = 0x4000
+		NavBlockRedirectsXDomain = 0x8000
+		NavOpenNewForegroundTab = 0x10000
+
+		REFRESH_NORMAL = 0
+		REFRESH_IFEXPIRED = 1
+		REFRESH_COMPLETELY = 3
+
+		IWebBrowser = COM::Interface[IDispatch,
+			GUID['EAB22AC1-30C1-11CF-A7EB-0000C05BAE0B'],
+
+			GoBack: [[], :long],
+			GoForward: [[], :long],
+			GoHome: [[], :long],
+			GoSearch: [[], :long],
+			Navigate: [[:pointer, :pointer, :pointer, :pointer, :pointer], :long],
+			Refresh: [[], :long],
+			Refresh2: [[:pointer], :long],
+			Stop: [[], :long],
+			get_Application: [[:pointer], :long],
+			get_Parent: [[:pointer], :long],
+			get_Container: [[:pointer], :long],
+			get_Document: [[:pointer], :long],
+			get_TopLevelContainer: [[:pointer], :long],
+			get_Type: [[:pointer], :long],
+			get_Left: [[:pointer], :long],
+			put_Left: [[:long], :long],
+			get_Top: [[:pointer], :long],
+			put_Top: [[:long], :long],
+			get_Width: [[:pointer], :long],
+			put_Width: [[:long], :long],
+			get_Height: [[:pointer], :long],
+			put_Height: [[:long], :long],
+			get_LocationName: [[:pointer], :long],
+			get_LocationURL: [[:pointer], :long],
+			get_Busy: [[:pointer], :long]
+		]
+
+		WebBrowser = COM::Factory[IWebBrowser, GUID['EAB22AC3-30C1-11CF-A7EB-0000C05BAE0B']]
+
+		DWebBrowserEvents = COM::Interface[IDispatch,
+			GUID['EAB22AC2-30C1-11CF-A7EB-0000C05BAE0B'],
+
+			BeforeNavigate: [[:pointer, :long, :pointer, :pointer, :pointer, :pointer], :long],
+			NavigateComplete: [[:pointer], :long],
+			StatusTextChange: [[:pointer], :long],
+			ProgressChange: [[:long, :long], :long],
+			DownloadComplete: [[], :long],
+			CommandStateChange: [[:long, :short], :long],
+			DownloadBegin: [[], :long],
+			NewWindow: [[:pointer, :long, :pointer, :pointer, :pointer, :pointer], :long],
+			TitleChange: [[:pointer], :long],
+			FrameBeforeNavigate: [[:pointer, :long, :pointer, :pointer, :pointer, :pointer], :long],
+			FrameNavigateComplete: [[:pointer], :long],
+			FrameNewWindow: [[:pointer, :long, :pointer, :pointer, :pointer, :pointer], :long],
+			Quit: [[:pointer], :long],
+			WindowMove: [[], :long],
+			WindowResize: [[], :long],
+			WindowActivate: [[], :long],
+			PropertyChange: [[:pointer], :long]
+		]
+
+		WebBrowserEvents = COM::Callback[DWebBrowserEvents]
+
+		class DOCHOSTUIINFO < FFI::Struct
+			layout \
+				:cbSize, :ulong,
+				:dwFlags, :ulong,
+				:dwDoubleClick, :ulong,
+				:pchHostCss, :pointer,
+				:pchHostNS, :pointer
+		end
+
+		IDocHostUIHandler = COM::Interface[IUnknown,
+			GUID['bd3f23c0-d43e-11cf-893b-00aa00bdce1a'],
+
+			ShowContextMenu: [[:ulong, :pointer, :pointer, :pointer], :long],
+			GetHostInfo: [[:pointer], :long],
+			ShowUI: [[:ulong, :pointer, :pointer, :pointer, :pointer], :long],
+			HideUI: [[], :long],
+			UpdateUI: [[], :long],
+			EnableModeless: [[:int], :long],
+			OnDocWindowActivate: [[:int], :long],
+			OnFrameWindowActivate: [[:int], :long],
+			ResizeBorder: [[:pointer, :pointer, :int], :long],
+			TranslateAccelerator: [[:pointer, :pointer, :ulong], :long],
+			GetOptionKeyPath: [[:pointer, :ulong], :long],
+			GetDropTarget: [[:pointer, :pointer], :long],
+			GetExternal: [[:pointer], :long],
+			TranslateUrl: [[:ulong, :pointer, :pointer], :long],
+			FilterDataObject: [[:pointer, :pointer], :long]
+		]
+
+		DocHostUIHandler = COM::Callback[IDocHostUIHandler]
+
+		#~ IWebBrowserApp = COM::Interface[IWebBrowser,
+			#~ GUID['0002DF05-0000-0000-C000-000000000046'],
+
+			#~ ClientToWindow: [[:pointer, :pointer], :long],
+			#~ PutProperty: [[:pointer, PROPVARIANT], :long],
+			#~ GetProperty: [[:pointer, :pointer], :long],
+			#~ get_Name: [[:pointer], :long],
+			#~ get_HWND: [[:pointer], :long],
+			#~ get_FullName: [[:pointer], :long],
+			#~ get_Path: [[:pointer], :long],
+			#~ get_Visible: [[:pointer], :long],
+			#~ put_Visible: [[:short], :long],
+			#~ get_StatusBar: [[:pointer], :long],
+			#~ put_StatusBar: [[:short], :long],
+			#~ get_StatusText: [[:pointer], :long],
+			#~ put_StatusText: [[:pointer], :long],
+			#~ get_ToolBar: [[:pointer], :long],
+			#~ put_ToolBar: [[:int], :long],
+			#~ get_MenuBar: [[:pointer], :long],
+			#~ put_MenuBar: [[:short], :long],
+			#~ get_FullScreen: [[:pointer], :long],
+			#~ put_FullScreen: [[:short], :long]
+    #~ ]
+
+		#~ IWebBrowser2 = COM::Interface[IWebBrowserApp,
+			#~ GUID['D30C1661-CDAF-11d0-8A3E-00C04FC9E26E'],
+
+			#~ Quit: [[], :long],
+
+        #~ HRESULT Navigate2([in] VARIANT * URL,
+        #~ HRESULT QueryStatusWB([in] OLECMDID cmdID, [out, retval] OLECMDF * pcmdf);
+        #~ HRESULT ExecWB([in] OLECMDID cmdID, [in] OLECMDEXECOPT cmdexecopt, [in, optional, unique] VARIANT * pvaIn, [in, out, optional, unique] VARIANT * pvaOut);
+        #~ HRESULT ShowBrowserBar( [in] VARIANT * pvaClsid,
+                                #~ [in, optional, unique] VARIANT * pvarShow,
+                                #~ [in, optional, unique] VARIANT * pvarSize );
+        #~ HRESULT ReadyState([retval, out] READYSTATE * plReadyState);
+        #~ HRESULT Offline([out, retval] VARIANT_BOOL * pbOffline);
+        #~ HRESULT Offline([in] VARIANT_BOOL bOffline);
+        #~ HRESULT Silent([out, retval] VARIANT_BOOL * pbSilent);
+        #~ HRESULT Silent([in] VARIANT_BOOL bSilent);
+        #~ HRESULT RegisterAsBrowser([out, retval] VARIANT_BOOL * pbRegister);
+        #~ HRESULT RegisterAsBrowser([in] VARIANT_BOOL bRegister);
+        #~ HRESULT RegisterAsDropTarget([out, retval] VARIANT_BOOL * pbRegister);
+        #~ HRESULT RegisterAsDropTarget([in] VARIANT_BOOL bRegister);
+        #~ HRESULT TheaterMode([out, retval] VARIANT_BOOL * pbRegister);
+        #~ HRESULT TheaterMode([in] VARIANT_BOOL bRegister);
+        #~ HRESULT AddressBar([out, retval] VARIANT_BOOL * Value);
+        #~ HRESULT AddressBar([in] VARIANT_BOOL Value);
+        #~ HRESULT Resizable([out, retval] VARIANT_BOOL * Value);
+        #~ HRESULT Resizable([in] VARIANT_BOOL Value);
+    #~ ]
+
+		#~ WebBrowser = COM::Factory[IWebBrowser, GUID['8856F961-340A-11D0-A96B-00C04FD705A2']]
+	end
+end

data/lib/fzeet/windows/shdocvw.rb

@@ -0,0 +1,102 @@
+require_relative 'com'
+
+module Fzeet
+	module Windows
+		ffi_lib 'shdocvw'
+		ffi_convention :stdcall
+
+		DISPID_BEFORENAVIGATE = 100
+		DISPID_NAVIGATECOMPLETE = 101
+		DISPID_STATUSTEXTCHANGE = 102
+		DISPID_QUIT = 103
+		DISPID_DOWNLOADCOMPLETE = 104
+		DISPID_COMMANDSTATECHANGE = 105
+		DISPID_DOWNLOADBEGIN = 106
+		DISPID_NEWWINDOW = 107
+		DISPID_PROGRESSCHANGE = 108
+		DISPID_WINDOWMOVE = 109
+		DISPID_WINDOWRESIZE = 110
+		DISPID_WINDOWACTIVATE = 111
+		DISPID_PROPERTYCHANGE = 112
+		DISPID_TITLECHANGE = 113
+		DISPID_TITLEICONCHANGE = 114
+
+		DWebBrowserEvents = COM::Interface[IDispatch,
+			GUID['EAB22AC2-30C1-11CF-A7EB-0000C05BAE0B'],
+
+			BeforeNavigate: [[:pointer, :long, :pointer, :pointer, :pointer, :pointer], :void],
+			NavigateComplete: [[:pointer], :void],
+			StatusTextChange: [[:pointer], :void],
+			ProgressChange: [[:long, :long], :void],
+			DownloadComplete: [[], :void],
+			CommandStateChange: [[:long, :short], :void],
+			DownloadBegin: [[], :void],
+			NewWindow: [[:pointer, :long, :pointer, :pointer, :pointer, :pointer], :void],
+			TitleChange: [[:pointer], :void],
+			FrameBeforeNavigate: [[:pointer, :long, :pointer, :pointer, :pointer, :pointer], :void],
+			FrameNavigateComplete: [[:pointer], :void],
+			FrameNewWindow: [[:pointer, :long, :pointer, :pointer, :pointer, :pointer], :void],
+			Quit: [[:pointer], :void],
+			WindowMove: [[], :void],
+			WindowResize: [[], :void],
+			WindowActivate: [[], :void],
+			PropertyChange: [[:pointer], :void]
+		]
+
+		WebBrowserEvents = COM::Callback[DWebBrowserEvents]
+
+		NavOpenInNewWindow = 0x0001
+		NavNoHistory = 0x0002
+		NavNoReadFromCache = 0x0004
+		NavNoWriteToCache = 0x0008
+		NavAllowAutosearch = 0x0010
+		NavBrowserBar = 0x0020
+		NavHyperlink = 0x0040
+		NavEnforceRestricted = 0x0080
+		NavNewWindowsManaged = 0x0100
+		NavUntrustedForDownload = 0x0200
+		NavTrustedForActiveX = 0x0400
+		NavOpenInNewTab = 0x0800
+		NavOpenInBackgroundTab = 0x1000
+		NavKeepWordWheelText = 0x2000
+		NavVirtualTab = 0x4000
+		NavBlockRedirectsXDomain = 0x8000
+		NavOpenNewForegroundTab = 0x10000
+
+		REFRESH_NORMAL = 0
+		REFRESH_IFEXPIRED = 1
+		REFRESH_COMPLETELY = 3
+
+		IWebBrowser = COM::Interface[IDispatch,
+			GUID['EAB22AC1-30C1-11CF-A7EB-0000C05BAE0B'],
+
+			GoBack: [[], :long],
+			GoForward: [[], :long],
+			GoHome: [[], :long],
+			GoSearch: [[], :long],
+			Navigate: [[:pointer, :pointer, :pointer, :pointer, :pointer], :long],
+			Refresh: [[], :long],
+			Refresh2: [[:pointer], :long],
+			Stop: [[], :long],
+			get_Application: [[:pointer], :long],
+			get_Parent: [[:pointer], :long],
+			get_Container: [[:pointer], :long],
+			get_Document: [[:pointer], :long],
+			get_TopLevelContainer: [[:pointer], :long],
+			get_Type: [[:pointer], :long],
+			get_Left: [[:pointer], :long],
+			put_Left: [[:long], :long],
+			get_Top: [[:pointer], :long],
+			put_Top: [[:long], :long],
+			get_Width: [[:pointer], :long],
+			put_Width: [[:long], :long],
+			get_Height: [[:pointer], :long],
+			put_Height: [[:long], :long],
+			get_LocationName: [[:pointer], :long],
+			get_LocationURL: [[:pointer], :long],
+			get_Busy: [[:pointer], :long]
+		]
+
+		WebBrowser = COM::Factory[IWebBrowser, GUID['EAB22AC3-30C1-11CF-A7EB-0000C05BAE0B']]
+	end
+end

data/lib/fzeet/windows/shell/Common.rb

@@ -108,5 +108,186 @@ module Fzeet
 		]
 
 		ModalWindow = COM::Instance[IModalWindow]
+
+		IExplorerBrowserEvents = COM::Interface[IUnknown,
+			GUID['361bbdc7-e6ee-4e13-be58-58e2240c810f'],
+
+			OnNavigationPending: [[:pointer], :long],
+			OnViewCreated: [[:pointer], :long],
+			OnNavigationComplete: [[:pointer], :long],
+			OnNavigationFailed: [[:pointer], :long]
+		]
+
+		ExplorerBrowserEvents = COM::Callback[IExplorerBrowserEvents]
+
+		EBO_NONE = 0x00000000
+		EBO_NAVIGATEONCE = 0x00000001
+		EBO_SHOWFRAMES = 0X00000002
+		EBO_ALWAYSNAVIGATE = 0x00000004
+		EBO_NOTRAVELLOG = 0x00000008
+		EBO_NOWRAPPERWINDOW = 0x00000010
+		EBO_HTMLSHAREPOINTVIEW = 0x00000020
+
+		EBF_NONE = 0x0000000
+		EBF_SELECTFROMDATAOBJECT = 0x0000100
+		EBF_NODROPTARGET = 0x0000200
+
+		IExplorerBrowser = COM::Interface[IUnknown,
+			GUID['dfd3b6b5-c10c-4be9-85f6-a66969f402f6'],
+
+			Initialize: [[:pointer, :pointer, :pointer], :long],
+			Destroy: [[], :long],
+			SetRect: [[:pointer, RECT], :long],
+			SetPropertyBag: [[:buffer_in], :long],
+			SetEmptyText: [[:buffer_in], :long],
+			SetFolderSettings: [[:pointer], :long],
+			Advise: [[:pointer, :pointer], :long],
+			Unadvise: [[:ulong], :long],
+			SetOptions: [[:ulong], :long],
+			GetOptions: [[:pointer], :long],
+			BrowseToIDList: [[:pointer, :uint], :long],
+			BrowseToObject: [[:pointer, :uint], :long],
+			FillFromObject: [[:pointer, :ulong], :long],
+			RemoveAll: [[], :long],
+			GetCurrentView: [[:pointer, :pointer], :long]
+		]
+
+		ExplorerBrowser = COM::Factory[IExplorerBrowser, GUID['71f96385-ddd6-48d3-a0c1-ae06e8b055fb']]
+
+		FOLDERID_NetworkFolder = GUID['D20BEEC4-5CA8-4905-AE3B-BF251EA09B53']
+		FOLDERID_ComputerFolder = GUID['0AC0837C-BBF8-452A-850D-79D08E667CA7']
+		FOLDERID_InternetFolder = GUID['4D9F7874-4E0C-4904-967B-40B0D20C3E4B']
+		FOLDERID_ControlPanelFolder = GUID['82A74AEB-AEB4-465C-A014-D097EE346D63']
+		FOLDERID_PrintersFolder = GUID['76FC4E2D-D6AD-4519-A663-37BD56068185']
+		FOLDERID_SyncManagerFolder = GUID['43668BF8-C14E-49B2-97C9-747784D784B7']
+		FOLDERID_SyncSetupFolder = GUID['0F214138-B1D3-4a90-BBA9-27CBC0C5389A']
+		FOLDERID_ConflictFolder = GUID['4bfefb45-347d-4006-a5be-ac0cb0567192']
+		FOLDERID_SyncResultsFolder = GUID['289a9a43-be44-4057-a41b-587a76d7e7f9']
+		FOLDERID_RecycleBinFolder = GUID['B7534046-3ECB-4C18-BE4E-64CD4CB7D6AC']
+		FOLDERID_ConnectionsFolder = GUID['6F0CD92B-2E97-45D1-88FF-B0D186B8DEDD']
+		FOLDERID_Fonts = GUID['FD228CB7-AE11-4AE3-864C-16F3910AB8FE']
+		FOLDERID_Desktop = GUID['B4BFCC3A-DB2C-424C-B029-7FE99A87C641']
+		FOLDERID_Startup = GUID['B97D20BB-F46A-4C97-BA10-5E3608430854']
+		FOLDERID_Programs = GUID['A77F5D77-2E2B-44C3-A6A2-ABA601054A51']
+		FOLDERID_StartMenu = GUID['625B53C3-AB48-4EC1-BA1F-A1EF4146FC19']
+		FOLDERID_Recent = GUID['AE50C081-EBD2-438A-8655-8A092E34987A']
+		FOLDERID_SendTo = GUID['8983036C-27C0-404B-8F08-102D10DCFD74']
+		FOLDERID_Documents = GUID['FDD39AD0-238F-46AF-ADB4-6C85480369C7']
+		FOLDERID_Favorites = GUID['1777F761-68AD-4D8A-87BD-30B759FA33DD']
+		FOLDERID_NetHood = GUID['C5ABBF53-E17F-4121-8900-86626FC2C973']
+		FOLDERID_PrintHood = GUID['9274BD8D-CFD1-41C3-B35E-B13F55A758F4']
+		FOLDERID_Templates = GUID['A63293E8-664E-48DB-A079-DF759E0509F7']
+		FOLDERID_CommonStartup = GUID['82A5EA35-D9CD-47C5-9629-E15D2F714E6E']
+		FOLDERID_CommonPrograms = GUID['0139D44E-6AFE-49F2-8690-3DAFCAE6FFB8']
+		FOLDERID_CommonStartMenu = GUID['A4115719-D62E-491D-AA7C-E74B8BE3B067']
+		FOLDERID_PublicDesktop = GUID['C4AA340D-F20F-4863-AFEF-F87EF2E6BA25']
+		FOLDERID_ProgramData = GUID['62AB5D82-FDC1-4DC3-A9DD-070D1D495D97']
+		FOLDERID_CommonTemplates = GUID['B94237E7-57AC-4347-9151-B08C6C32D1F7']
+		FOLDERID_PublicDocuments = GUID['ED4824AF-DCE4-45A8-81E2-FC7965083634']
+		FOLDERID_RoamingAppData = GUID['3EB685DB-65F9-4CF6-A03A-E3EF65729F3D']
+		FOLDERID_LocalAppData = GUID['F1B32785-6FBA-4FCF-9D55-7B8E7F157091']
+		FOLDERID_LocalAppDataLow = GUID['A520A1A4-1780-4FF6-BD18-167343C5AF16']
+		FOLDERID_InternetCache = GUID['352481E8-33BE-4251-BA85-6007CAEDCF9D']
+		FOLDERID_Cookies = GUID['2B0F765D-C0E9-4171-908E-08A611B84FF6']
+		FOLDERID_History = GUID['D9DC8A3B-B784-432E-A781-5A1130A75963']
+		FOLDERID_System = GUID['1AC14E77-02E7-4E5D-B744-2EB1AE5198B7']
+		FOLDERID_SystemX86 = GUID['D65231B0-B2F1-4857-A4CE-A8E7C6EA7D27']
+		FOLDERID_Windows = GUID['F38BF404-1D43-42F2-9305-67DE0B28FC23']
+		FOLDERID_Profile = GUID['5E6C858F-0E22-4760-9AFE-EA3317B67173']
+		FOLDERID_Pictures = GUID['33E28130-4E1E-4676-835A-98395C3BC3BB']
+		FOLDERID_ProgramFilesX86 = GUID['7C5A40EF-A0FB-4BFC-874A-C0F2E0B9FA8E']
+		FOLDERID_ProgramFilesCommonX86 = GUID['DE974D24-D9C6-4D3E-BF91-F4455120B917']
+		FOLDERID_ProgramFilesX64 = GUID['6D809377-6AF0-444b-8957-A3773F02200E']
+		FOLDERID_ProgramFilesCommonX64 = GUID['6365D5A7-0F0D-45e5-87F6-0DA56B6A4F7D']
+		FOLDERID_ProgramFiles = GUID['905e63b6-c1bf-494e-b29c-65b732d3d21a']
+		FOLDERID_ProgramFilesCommon = GUID['F7F1ED05-9F6D-47A2-AAAE-29D317C6F066']
+		FOLDERID_UserProgramFiles = GUID['5cd7aee2-2219-4a67-b85d-6c9ce15660cb']
+		FOLDERID_UserProgramFilesCommon = GUID['bcbd3057-ca5c-4622-b42d-bc56db0ae516']
+		FOLDERID_AdminTools = GUID['724EF170-A42D-4FEF-9F26-B60E846FBA4F']
+		FOLDERID_CommonAdminTools = GUID['D0384E7D-BAC3-4797-8F14-CBA229B392B5']
+		FOLDERID_Music = GUID['4BD8D571-6D19-48D3-BE97-422220080E43']
+		FOLDERID_Videos = GUID['18989B1D-99B5-455B-841C-AB7C74E4DDFC']
+		FOLDERID_Ringtones = GUID['C870044B-F49E-4126-A9C3-B52A1FF411E8']
+		FOLDERID_PublicPictures = GUID['B6EBFB86-6907-413C-9AF7-4FC2ABF07CC5']
+		FOLDERID_PublicMusic = GUID['3214FAB5-9757-4298-BB61-92A9DEAA44FF']
+		FOLDERID_PublicVideos = GUID['2400183A-6185-49FB-A2D8-4A392A602BA3']
+		FOLDERID_PublicRingtones = GUID['E555AB60-153B-4D17-9F04-A5FE99FC15EC']
+		FOLDERID_ResourceDir = GUID['8AD10C31-2ADB-4296-A8F7-E4701232C972']
+		FOLDERID_LocalizedResourcesDir = GUID['2A00375E-224C-49DE-B8D1-440DF7EF3DDC']
+		FOLDERID_CommonOEMLinks = GUID['C1BAE2D0-10DF-4334-BEDD-7AA20B227A9D']
+		FOLDERID_CDBurning = GUID['9E52AB10-F80D-49DF-ACB8-4330F5687855']
+		FOLDERID_UserProfiles = GUID['0762D272-C50A-4BB0-A382-697DCD729B80']
+		FOLDERID_Playlists = GUID['DE92C1C7-837F-4F69-A3BB-86E631204A23']
+		FOLDERID_SamplePlaylists = GUID['15CA69B3-30EE-49C1-ACE1-6B5EC372AFB5']
+		FOLDERID_SampleMusic = GUID['B250C668-F57D-4EE1-A63C-290EE7D1AA1F']
+		FOLDERID_SamplePictures = GUID['C4900540-2379-4C75-844B-64E6FAF8716B']
+		FOLDERID_SampleVideos = GUID['859EAD94-2E85-48AD-A71A-0969CB56A6CD']
+		FOLDERID_PhotoAlbums = GUID['69D2CF90-FC33-4FB7-9A0C-EBB0F0FCB43C']
+		FOLDERID_Public = GUID['DFDF76A2-C82A-4D63-906A-5644AC457385']
+		FOLDERID_ChangeRemovePrograms = GUID['df7266ac-9274-4867-8d55-3bd661de872d']
+		FOLDERID_AppUpdates = GUID['a305ce99-f527-492b-8b1a-7e76fa98d6e4']
+		FOLDERID_AddNewPrograms = GUID['de61d971-5ebc-4f02-a3a9-6c82895e5c04']
+		FOLDERID_Downloads = GUID['374DE290-123F-4565-9164-39C4925E467B']
+		FOLDERID_PublicDownloads = GUID['3D644C9B-1FB8-4f30-9B45-F670235F79C0']
+		FOLDERID_SavedSearches = GUID['7d1d3a04-debb-4115-95cf-2f29da2920da']
+		FOLDERID_QuickLaunch = GUID['52a4f021-7b75-48a9-9f6b-4b87a210bc8f']
+		FOLDERID_Contacts = GUID['56784854-C6CB-462b-8169-88E350ACB882']
+		FOLDERID_SidebarParts = GUID['A75D362E-50FC-4fb7-AC2C-A8BEAA314493']
+		FOLDERID_SidebarDefaultParts = GUID['7B396E54-9EC5-4300-BE0A-2482EBAE1A26']
+		FOLDERID_PublicGameTasks = GUID['DEBF2536-E1A8-4c59-B6A2-414586476AEA']
+		FOLDERID_GameTasks = GUID['054FAE61-4DD8-4787-80B6-090220C4B700']
+		FOLDERID_SavedGames = GUID['4C5C32FF-BB9D-43b0-B5B4-2D72E54EAAA4']
+		FOLDERID_Games = GUID['CAC52C1A-B53D-4edc-92D7-6B2E8AC19434']
+		FOLDERID_SEARCH_MAPI = GUID['98ec0e18-2098-4d44-8644-66979315a281']
+		FOLDERID_SEARCH_CSC = GUID['ee32e446-31ca-4aba-814f-a5ebd2fd6d5e']
+		FOLDERID_Links = GUID['bfb9d5e0-c6a9-404c-b2b2-ae6db6af4968']
+		FOLDERID_UsersFiles = GUID['f3ce0f7c-4901-4acc-8648-d5d44b04ef8f']
+		FOLDERID_UsersLibraries = GUID['A302545D-DEFF-464b-ABE8-61C8648D939B']
+		FOLDERID_SearchHome = GUID['190337d1-b8ca-4121-a639-6d472d16972a']
+		FOLDERID_OriginalImages = GUID['2C36C0AA-5812-4b87-BFD0-4CD0DFB19B39']
+		FOLDERID_DocumentsLibrary = GUID['7b0db17d-9cd2-4a93-9733-46cc89022e7c']
+		FOLDERID_MusicLibrary = GUID['2112AB0A-C86A-4ffe-A368-0DE96E47012E']
+		FOLDERID_PicturesLibrary = GUID['A990AE9F-A03B-4e80-94BC-9912D7504104']
+		FOLDERID_VideosLibrary = GUID['491E922F-5643-4af4-A7EB-4E7A138D8174']
+		FOLDERID_RecordedTVLibrary = GUID['1A6FDBA2-F42D-4358-A798-B74D745926C5']
+		FOLDERID_HomeGroup = GUID['52528A6B-B9E3-4add-B60D-588C2DBA842D']
+		FOLDERID_DeviceMetadataStore = GUID['5CE4A5E9-E4EB-479D-B89F-130C02886155']
+		FOLDERID_Libraries = GUID['1B3EA5DC-B587-4786-B4EF-BD1DC332AEAE']
+		FOLDERID_PublicLibraries = GUID['48daf80b-e6cf-4f4e-b800-0e69d84ee384']
+		FOLDERID_UserPinned = GUID['9e3995ab-1f9c-4f13-b827-48b24b6c7174']
+		FOLDERID_ImplicitAppShortcuts = GUID['bcb5256f-79f6-4cee-b725-dc34e402fd46']
+
+		if WINVER.AtLeastWindowsVista?
+			attach_function :SHGetKnownFolderIDList, [:pointer, :ulong, :pointer, :pointer], :long
+		end
+
+		SBSP_DEFBROWSER = 0x0000
+		SBSP_SAMEBROWSER = 0x0001
+		SBSP_NEWBROWSER = 0x0002
+		SBSP_DEFMODE = 0x0000
+		SBSP_OPENMODE = 0x0010
+		SBSP_EXPLOREMODE = 0x0020
+		SBSP_HELPMODE = 0x0040
+		SBSP_NOTRANSFERHIST = 0x0080
+		SBSP_ABSOLUTE = 0x0000
+		SBSP_RELATIVE = 0x1000
+		SBSP_PARENT = 0x2000
+		SBSP_NAVIGATEBACK = 0x4000
+		SBSP_NAVIGATEFORWARD = 0x8000
+		SBSP_ALLOW_AUTONAVIGATE = 0x00010000
+		SBSP_KEEPSAMETEMPLATE = 0x00020000
+		SBSP_KEEPWORDWHEELTEXT = 0x00040000
+		SBSP_ACTIVATE_NOFOCUS = 0x00080000
+		SBSP_CREATENOHISTORY = 0x00100000
+		SBSP_PLAYNOSOUND = 0x00200000
+		SBSP_CALLERUNTRUSTED = 0x00800000
+		SBSP_TRUSTFIRSTDOWNLOAD = 0x01000000
+		SBSP_UNTRUSTEDFORDOWNLOAD = 0x02000000
+		SBSP_NOAUTOSELECT = 0x04000000
+		SBSP_WRITENOHISTORY = 0x08000000
+		SBSP_TRUSTEDFORACTIVEX = 0x10000000
+		SBSP_FEEDNAVIGATION = 0x20000000
+		SBSP_REDIRECT = 0x40000000
+		SBSP_INITIATEDBYHLINKFRAME = 0x80000000
 	end
 end

data/lib/fzeet/windows/user/Window.rb

@@ -445,6 +445,17 @@ module Fzeet
 
 		attach_function :GetDlgItem, [:pointer, :int], :pointer
 
+		GW_HWNDFIRST = 0
+		GW_HWNDLAST = 1
+		GW_HWNDNEXT = 2
+		GW_HWNDPREV = 3
+		GW_OWNER = 4
+		GW_CHILD = 5
+		GW_ENABLEDPOPUP = 6
+		GW_MAX = 6
+
+		attach_function :GetWindow, [:pointer, :uint], :pointer
+
 		callback :WNDENUMPROC, [:pointer, :long], :int
 
 		attach_function :EnumChildWindows, [:pointer, :WNDENUMPROC, :long], :int

data/lib/fzeet/windows.rb

@@ -13,6 +13,7 @@ require_relative 'windows/com'
 require_relative 'windows/ole'
 require_relative 'windows/shell'
 require_relative 'windows/shlwapi'
+require_relative 'windows/shdocvw'
 
 require_relative 'windows/propsys' if Fzeet::Windows::WINVER.AtLeastWindowsVista?