ffi-wingui-core 0.5.0 → 0.6.0

data/examples/Command.rbw

@@ -19,8 +19,8 @@ def onCreate(hwnd,
 
 	hbar = CreateMenu()
 		hmenu1 = CreatePopupMenu()
-			InsertMenu(hmenu1, -1, MF_STRING, ID[:ITEM1], L("Item&1\tAlt+I"))
-		InsertMenu(hbar, -1, MF_POPUP, hmenu1.to_i, L('Menu&1'))
+			AppendMenu(hmenu1, MF_STRING, ID[:ITEM1], L("Item&1\tAlt+I"))
+		AppendMenu(hbar, MF_POPUP, hmenu1.to_i, L('Menu&1'))
 	SetMenu(hwnd, hbar)
 
 	accels = [

data/examples/Menu.rbw

@@ -14,32 +14,32 @@ def onCreate(hwnd,
 
 	hbar = CreateMenu()
 		hmenu1 = CreatePopupMenu()
-			InsertMenu(hmenu1, -1, MF_STRING, ID[:ITEM1], L('Item&1'))
+			AppendMenu(hmenu1, MF_STRING, ID[:ITEM1], L('Item&1'))
 			SetMenuDefaultItem(hmenu1, ID[:ITEM1], 0)
 
-			InsertMenu(hmenu1, -1, MF_STRING | MF_GRAYED, ID[:ITEM2], L('Item&2'))
-			InsertMenu(hmenu1, -1, MF_STRING | MF_CHECKED, ID[:ITEM3], L('Item&3'))
+			AppendMenu(hmenu1, MF_STRING | MF_GRAYED, ID[:ITEM2], L('Item&2'))
+			AppendMenu(hmenu1, MF_STRING | MF_CHECKED, ID[:ITEM3], L('Item&3'))
 
-			InsertMenu(hmenu1, -1, MF_SEPARATOR, 0, nil)
+			AppendMenu(hmenu1, MF_SEPARATOR, 0, nil)
 
-			InsertMenu(hmenu1, -1, MF_STRING | MF_CHECKED | MFT_RADIOCHECK,
+			AppendMenu(hmenu1, MF_STRING | MF_CHECKED | MFT_RADIOCHECK,
 				ID[:ITEM4], L('Item&4'))
-			InsertMenu(hmenu1, -1, MF_STRING, ID[:ITEM5], L('Item&5'))
+			AppendMenu(hmenu1, MF_STRING, ID[:ITEM5], L('Item&5'))
 
-			InsertMenu(hmenu1, -1, MF_SEPARATOR, 0, nil)
+			AppendMenu(hmenu1, MF_SEPARATOR, 0, nil)
 
 			hmenu2 = CreatePopupMenu()
-				InsertMenu(hmenu2, -1, MF_STRING | MF_CHECKED | MFT_RADIOCHECK,
+				AppendMenu(hmenu2, MF_STRING | MF_CHECKED | MFT_RADIOCHECK,
 					ID[:ITEM6], L('Item&6'))
-				InsertMenu(hmenu2, -1, MF_STRING, ID[:ITEM7], L('Item&7'))
-			InsertMenu(hmenu1, -1, MF_POPUP, hmenu2.to_i, L('Menu&2'))
-		InsertMenu(hbar, -1, MF_POPUP, hmenu1.to_i, L('Menu&1'))
+				AppendMenu(hmenu2, MF_STRING, ID[:ITEM7], L('Item&7'))
+			AppendMenu(hmenu1, MF_POPUP, hmenu2.to_i, L('Menu&2'))
+		AppendMenu(hbar, MF_POPUP, hmenu1.to_i, L('Menu&1'))
 
-		InsertMenu(hbar, -1, MF_STRING, ID[:ITEM8], L('Item&8'))
+		AppendMenu(hbar, MF_STRING, ID[:ITEM8], L('Item&8!'))
 
 		hmenu3 = CreatePopupMenu()
-			InsertMenu(hmenu3, -1, MF_STRING, ID[:ITEM9], L('Item&9'))
-		InsertMenu(hbar, -1, MF_POPUP | MF_RIGHTJUSTIFY, hmenu3.to_i, L('Menu&3'))
+			AppendMenu(hmenu3, MF_STRING, ID[:ITEM9], L('Item&9'))
+		AppendMenu(hbar, MF_POPUP | MF_RIGHTJUSTIFY, hmenu3.to_i, L('Menu&3'))
 	SetMenu(hwnd, hbar)
 
 	0

data/examples/MenuContext.rbw

@@ -13,7 +13,7 @@ def onCreate(hwnd,
 	xtra = Util::Id2Ref[GetWindowLong(hwnd, GWL_USERDATA)]
 
 	xtra[:hcm] = CreatePopupMenu()
-		InsertMenu(xtra[:hcm], -1, MF_STRING, ID[:ITEM1], L('Item&1'))
+		AppendMenu(xtra[:hcm], MF_STRING, ID[:ITEM1], L('Item&1'))
 
 	0
 end

data/examples/MenuPARGB32.rbw

@@ -31,45 +31,45 @@ def onCreate(hwnd,
 
 	hbar = CreateMenu()
 		hmenu1 = CreatePopupMenu()
-			InsertMenu(hmenu1, -1, MF_STRING, ID[:ITEM1], L('Item&1'))
+			AppendMenu(hmenu1, MF_STRING, ID[:ITEM1], L('Item&1'))
 			SetMenuDefaultItem(hmenu1, ID[:ITEM1], 0)
 			SetMenuItemInfo(hmenu1, ID[:ITEM1], 0, info)
 
-			InsertMenu(hmenu1, -1, MF_STRING | MF_GRAYED, ID[:ITEM2], L('Item&2'))
+			AppendMenu(hmenu1, MF_STRING | MF_GRAYED, ID[:ITEM2], L('Item&2'))
 			SetMenuItemInfo(hmenu1, ID[:ITEM2], 0, info)
 
-			InsertMenu(hmenu1, -1, MF_STRING | MF_CHECKED, ID[:ITEM3], L('Item&3'))
+			AppendMenu(hmenu1, MF_STRING | MF_CHECKED, ID[:ITEM3], L('Item&3'))
 			SetMenuItemInfo(hmenu1, ID[:ITEM3], 0, info)
 
-			InsertMenu(hmenu1, -1, MF_SEPARATOR, 0, nil)
+			AppendMenu(hmenu1, MF_SEPARATOR, 0, nil)
 
-			InsertMenu(hmenu1, -1, MF_STRING | MF_CHECKED | MFT_RADIOCHECK,
+			AppendMenu(hmenu1, MF_STRING | MF_CHECKED | MFT_RADIOCHECK,
 				ID[:ITEM4], L('Item&4'))
 			SetMenuItemInfo(hmenu1, ID[:ITEM4], 0, info)
 
-			InsertMenu(hmenu1, -1, MF_STRING, ID[:ITEM5], L('Item&5'))
+			AppendMenu(hmenu1, MF_STRING, ID[:ITEM5], L('Item&5'))
 			SetMenuItemInfo(hmenu1, ID[:ITEM5], 0, info)
 
-			InsertMenu(hmenu1, -1, MF_SEPARATOR, 0, nil)
+			AppendMenu(hmenu1, MF_SEPARATOR, 0, nil)
 
 			hmenu2 = CreatePopupMenu()
-				InsertMenu(hmenu2, -1, MF_STRING | MF_CHECKED | MFT_RADIOCHECK,
+				AppendMenu(hmenu2, MF_STRING | MF_CHECKED | MFT_RADIOCHECK,
 					ID[:ITEM6], L('Item&6'))
 				SetMenuItemInfo(hmenu2, ID[:ITEM6], 0, info)
 
-				InsertMenu(hmenu2, -1, MF_STRING, ID[:ITEM7], L('Item&7'))
+				AppendMenu(hmenu2, MF_STRING, ID[:ITEM7], L('Item&7'))
 				SetMenuItemInfo(hmenu2, ID[:ITEM7], 0, info)
-			InsertMenu(hmenu1, -1, MF_POPUP, hmenu2.to_i, L('Menu&2'))
+			AppendMenu(hmenu1, MF_POPUP, hmenu2.to_i, L('Menu&2'))
 			SetMenuItemInfo(hmenu1, 7, MF_BYPOSITION, info)
-		InsertMenu(hbar, -1, MF_POPUP, hmenu1.to_i, L('Menu&1'))
+		AppendMenu(hbar, MF_POPUP, hmenu1.to_i, L('Menu&1'))
 		SetMenuItemInfo(hbar, 0, MF_BYPOSITION, info)
 
-		InsertMenu(hbar, -1, MF_STRING, ID[:ITEM8], L('Item&8'))
+		AppendMenu(hbar, MF_STRING, ID[:ITEM8], L('Item&8!'))
 		SetMenuItemInfo(hbar, ID[:ITEM8], 0, info)
 
 		hmenu3 = CreatePopupMenu()
-			InsertMenu(hmenu3, -1, MF_BITMAP, ID[:ITEM9], xtra[:hbmp])
-		InsertMenu(hbar, -1, MF_POPUP | MF_BITMAP | MF_RIGHTJUSTIFY, hmenu3.to_i, xtra[:hbmp])
+			AppendMenu(hmenu3, MF_BITMAP, ID[:ITEM9], xtra[:hbmp])
+		AppendMenu(hbar, MF_POPUP | MF_BITMAP | MF_RIGHTJUSTIFY, hmenu3.to_i, xtra[:hbmp])
 	SetMenu(hwnd, hbar)
 
 	0

data/lib/ffi-wingui-core.rb

@@ -1,7 +1,11 @@
+#tstart = Time.now
 require 'ffi'
+#tffi = Time.now
 
+#{ WINGUI_xxx
 WINGUI_VISUAL_STYLES = true unless defined?(WINGUI_VISUAL_STYLES)
 WINGUI_DPI_AWARE = true unless defined?(WINGUI_DPI_AWARE)
+#}
 
 module WinGUI
 	extend FFI::Library
@@ -295,7 +299,7 @@ module WinGUI
 		:pointer
 	], :int
 
-	if WINVER >= WINXP
+	if WINVER >= WINXP # ACTCTX
 		class ACTCTX < FFI::Struct
 			extend Util::ScopedStruct
 
@@ -432,22 +436,96 @@ module WinGUI
 
 	module_function :RGB, :GetRValue, :GetGValue, :GetBValue
 
-	#{ GetDeviceCaps indices
+	attach_function :CreateCompatibleDC, [
+		:pointer
+	], :pointer
+
+	attach_function :DeleteDC, [
+		:pointer
+	], :int
+
+	#{ devCapIndex constants
 	LOGPIXELSX = 88
 	LOGPIXELSY = 90
 	#}
 
 	attach_function :GetDeviceCaps, [
 		:pointer,
-		:int
+		:int # in devCapIndex
 	], :int
 
+	attach_function :CreateCompatibleBitmap, [
+		:pointer,
+		:int,
+		:int
+	], :pointer
+
 	def DPIAwareFontHeight(pointSize)
 		-MulDiv(pointSize, DPIY, 72)
 	end
 
 	module_function :DPIAwareFontHeight
 
+	#{ FW_xxx
+	FW_DONTCARE = 0
+	FW_THIN = 100
+	FW_EXTRALIGHT = 200
+	FW_LIGHT = 300
+	FW_NORMAL = 400
+	FW_MEDIUM = 500
+	FW_SEMIBOLD = 600
+	FW_BOLD = 700
+	FW_EXTRABOLD = 800
+	FW_HEAVY = 900
+	#}
+
+	#{ xxx_CHARSET
+	DEFAULT_CHARSET = 1
+	ANSI_CHARSET = 0
+	#}
+
+	#{ OUT_xxx_PRECIS
+	OUT_DEFAULT_PRECIS = 0
+	OUT_DEVICE_PRECIS = 5
+	OUT_RASTER_PRECIS = 6
+	OUT_OUTLINE_PRECIS = 8
+	OUT_SCREEN_OUTLINE_PRECIS = 9
+	OUT_PS_ONLY_PRECIS = 10
+	OUT_TT_PRECIS = 4
+	OUT_TT_ONLY_PRECIS = 7
+	#}
+
+	#{ CLIP_xxx_PRECIS
+	CLIP_DEFAULT_PRECIS = 0
+	#}
+
+	#{ xxx_QUALITY
+	DEFAULT_QUALITY = 0
+	DRAFT_QUALITY = 1
+	PROOF_QUALITY = 2
+	NONANTIALIASED_QUALITY = 3
+	ANTIALIASED_QUALITY = 4
+	if WINVER >= WINXP
+		CLEARTYPE_QUALITY = 5
+		CLEARTYPE_NATURAL_QUALITY = 6
+	end
+	#}
+
+	#{ xxx_PITCH
+	DEFAULT_PITCH = 0
+	FIXED_PITCH = 1
+	VARIABLE_PITCH = 2
+	#}
+
+	#{ FF_xxx
+	FF_DONTCARE = 0 << 4
+	FF_MODERN = 3 << 4
+	FF_SWISS = 2 << 4
+	FF_ROMAN = 1 << 4
+	FF_SCRIPT = 4 << 4
+	FF_DECORATIVE = 5 << 4
+	#}
+
 	class LOGFONT < FFI::Struct
 		extend Util::ScopedStruct
 
@@ -472,6 +550,29 @@ module WinGUI
 		LOGFONT.by_ref(:in)
 	], :pointer
 
+	#{ BS_xxx
+	BS_NULL = 1
+	BS_SOLID = 0
+	BS_HATCHED = 2
+	BS_PATTERN = 3
+	BS_DIBPATTERN = 5
+	BS_DIBPATTERNPT = 6
+	#}
+
+	#{ DIB_xxx
+	DIB_RGB_COLORS = 0
+	DIB_PAL_COLORS = 1
+	#}
+
+	#{ HS_xxx
+	HS_HORIZONTAL = 0
+	HS_VERTICAL = 1
+	HS_FDIAGONAL = 2
+	HS_BDIAGONAL = 3
+	HS_CROSS = 4
+	HS_DIAGCROSS = 5
+	#}
+
 	class LOGBRUSH < FFI::Struct
 		extend Util::ScopedStruct
 
@@ -485,6 +586,29 @@ module WinGUI
 		LOGBRUSH.by_ref(:in)
 	], :pointer
 
+	#{ PS_xxx
+	PS_COSMETIC = 0x00000000
+	PS_GEOMETRIC = 0x00010000
+
+	PS_NULL = 5
+	PS_SOLID = 0
+	PS_DASH = 1
+	PS_DOT = 2
+	PS_DASHDOT = 3
+	PS_DASHDOTDOT = 4
+	PS_ALTERNATE = 8
+	PS_USERSTYLE = 7
+	PS_INSIDEFRAME = 6
+
+	PS_ENDCAP_FLAT = 0x00000200
+	PS_ENDCAP_SQUARE = 0x00000100
+	PS_ENDCAP_ROUND = 0x00000000
+
+	PS_JOIN_BEVEL = 0x00001000
+	PS_JOIN_MITER = 0x00002000
+	PS_JOIN_ROUND = 0x00000000
+	#}
+
 	class LOGPEN < FFI::Struct
 		extend Util::ScopedStruct
 
@@ -498,6 +622,14 @@ module WinGUI
 		LOGPEN.by_ref(:in)
 	], :pointer
 
+	attach_function :ExtCreatePen, [
+		:ulong,
+		:ulong,
+		LOGBRUSH.by_ref(:in),
+		:ulong,
+		:pointer
+	], :pointer
+
 	attach_function :CreateRectRgn, [
 		:int,
 		:int,
@@ -521,24 +653,39 @@ module WinGUI
 		:int
 	], :pointer
 
-	#{ POLYFILL_xxx
+	#{ polyFillMode constants
 	ALTERNATE = 1
 	WINDING = 2
 	#}
 
+	attach_function :SetPolyFillMode, [
+		:pointer,
+		:int # in polyFillMode
+	], :int
+
+	attach_function :GetPolyFillMode, [
+		:pointer
+	], :int # polyFillMode
+
 	attach_function :CreatePolygonRgn, [
 		:pointer,
 		:int,
-		:int
+		:int # in polyFillMode
 	], :pointer
 
 	attach_function :CreatePolyPolygonRgn, [
 		:pointer,
 		:pointer,
 		:int,
-		:int
+		:int # in polyFillMode
 	], :pointer
 
+	attach_function :OffsetRgn, [
+		:pointer,
+		:int,
+		:int
+	], :int
+
 	#{ RGN_xxx
 	RGN_COPY = 5
 	RGN_DIFF = 4
@@ -547,7 +694,7 @@ module WinGUI
 	RGN_XOR = 3
 	#}
 
-	#{ xxxREGION
+	#{ rgnType constants
 	ERROR = 0
 	NULLREGION = 1
 	SIMPLEREGION = 2
@@ -559,6 +706,41 @@ module WinGUI
 		:pointer,
 		:pointer,
 		:int
+	], :int # rgnType
+
+	attach_function :GetRgnBox, [
+		:pointer,
+		RECT.by_ref(:out)
+	], :int
+
+	attach_function :PtInRegion, [
+		:pointer,
+		:int,
+		:int
+	], :int
+
+	attach_function :RectInRegion, [
+		:pointer,
+		RECT.by_ref(:in)
+	], :int
+
+	attach_function :EqualRgn, [
+		:pointer,
+		:pointer
+	], :int
+
+	attach_function :FrameRgn, [
+		:pointer,
+		:pointer,
+		:pointer,
+		:int,
+		:int
+	], :int
+
+	attach_function :FillRgn, [
+		:pointer,
+		:pointer,
+		:pointer
 	], :int
 
 	attach_function :DeleteObject, [
@@ -571,6 +753,38 @@ module WinGUI
 		:pointer
 	], :int
 
+	#{ R2_xxx
+	R2_BLACK = 1
+	R2_WHITE = 16
+
+	R2_NOP = 11
+	R2_NOT = 6
+	R2_COPYPEN = 13
+	R2_NOTCOPYPEN = 4
+
+	R2_MERGEPEN = 15
+	R2_MERGENOTPEN = 12
+	R2_MERGEPENNOT = 14
+	R2_NOTMERGEPEN = 2
+
+	R2_MASKPEN = 9
+	R2_MASKNOTPEN = 3
+	R2_MASKPENNOT = 5
+	R2_NOTMASKPEN = 8
+
+	R2_XORPEN = 7
+	R2_NOTXORPEN = 10
+	#}
+
+	attach_function :SetROP2, [
+		:pointer,
+		:int
+	], :int
+
+	attach_function :GetROP2, [
+		:pointer
+	], :int
+
 	attach_function :SetBkColor, [
 		:pointer,
 		:ulong
@@ -594,6 +808,29 @@ module WinGUI
 		:pointer
 	], :pointer
 
+	#{ AD_xxx
+	AD_COUNTERCLOCKWISE = 1
+	AD_CLOCKWISE = 2
+	#}
+
+	attach_function :SetArcDirection, [
+		:pointer,
+		:int
+	], :int
+
+	attach_function :GetArcDirection, [
+		:int
+	], :int
+
+	attach_function :SaveDC, [
+		:pointer
+	], :int
+
+	attach_function :RestoreDC, [
+		:pointer,
+		:int
+	], :int
+
 	attach_function :TextOut, :TextOutW, [
 		:pointer,
 		:int,
@@ -614,13 +851,237 @@ module WinGUI
 		:int,
 		:int
 	], :int
+
+	attach_function :Polyline, [
+		:pointer,
+		:pointer,
+		:int
+	], :int
+
+	attach_function :PolylineTo, [
+		:pointer,
+		:pointer,
+		:ulong
+	], :int
+
+	attach_function :PolyPolyline, [
+		:pointer,
+		:pointer,
+		:pointer,
+		:ulong
+	], :int
+
+	attach_function :Arc, [
+		:pointer,
+		:int,
+		:int,
+		:int,
+		:int,
+		:int,
+		:int,
+		:int,
+		:int,
+	], :int
+
+	attach_function :ArcTo, [
+		:pointer,
+		:int,
+		:int,
+		:int,
+		:int,
+		:int,
+		:int,
+		:int,
+		:int,
+	], :int
+
+	attach_function :AngleArc, [
+		:pointer,
+		:int,
+		:int,
+		:ulong,
+		:float,
+		:float
+	], :int
+
+	attach_function :PolyBezier, [
+		:pointer,
+		:pointer,
+		:ulong
+	], :int
+
+	attach_function :PolyBezierTo, [
+		:pointer,
+		:pointer,
+		:ulong
+	], :int
+
+	#{ PT_xxx
+	PT_MOVETO = 0x06
+	PT_LINETO = 0x02
+	PT_BEZIERTO = 0x04
+	PT_CLOSEFIGURE = 0x01
+	#}
+
+	attach_function :PolyDraw, [
+		:pointer,
+		:pointer,
+		:pointer,
+		:int
+	], :int
+
+	attach_function :Rectangle, [
+		:pointer,
+		:int,
+		:int,
+		:int,
+		:int
+	], :int
+
+	attach_function :RoundRect, [
+		:pointer,
+		:int,
+		:int,
+		:int,
+		:int,
+		:int,
+		:int
+	], :int
+
+	attach_function :Ellipse, [
+		:pointer,
+		:int,
+		:int,
+		:int,
+		:int
+	], :int
+
+	attach_function :Pie, [
+		:pointer,
+		:int,
+		:int,
+		:int,
+		:int,
+		:int,
+		:int,
+		:int,
+		:int
+	], :int
+
+	attach_function :Chord, [
+		:pointer,
+		:int,
+		:int,
+		:int,
+		:int,
+		:int,
+		:int,
+		:int,
+		:int
+	], :int
+
+	attach_function :Polygon, [
+		:pointer,
+		:pointer,
+		:int
+	], :int
+
+	attach_function :PolyPolygon, [
+		:pointer,
+		:pointer,
+		:pointer,
+		:int
+	], :int
 	#}
 
 	#{ user32
 	ffi_lib 'user32'
 	ffi_convention :stdcall
 
-	if WINVER >= WINVISTA
+	attach_function :SetRect, [
+		RECT.by_ref(:out),
+		:int,
+		:int,
+		:int,
+		:int
+	], :int
+
+	attach_function :CopyRect, [
+		RECT.by_ref(:out),
+		RECT.by_ref(:in)
+	], :int
+
+	attach_function :OffsetRect, [
+		RECT.by_ref,
+		:int,
+		:int
+	], :int
+
+	attach_function :InflateRect, [
+		RECT.by_ref,
+		:int,
+		:int
+	], :int
+
+	attach_function :SubtractRect, [
+		RECT.by_ref(:out),
+		RECT.by_ref(:in),
+		RECT.by_ref(:in)
+	], :int
+
+	attach_function :IntersectRect, [
+		RECT.by_ref(:out),
+		RECT.by_ref(:in),
+		RECT.by_ref(:in)
+	], :int
+
+	attach_function :UnionRect, [
+		RECT.by_ref(:out),
+		RECT.by_ref(:in),
+		RECT.by_ref(:in)
+	], :int
+
+	attach_function :IsRectEmpty, [
+		RECT.by_ref(:in)
+	], :int
+
+	attach_function :PtInRect, [
+		RECT.by_ref(:in),
+		POINT.by_value
+	], :int
+
+	attach_function :EqualRect, [
+		RECT.by_ref(:in),
+		RECT.by_ref(:in)
+	], :int
+
+	def NormalizeRect(rect)
+		rect[:left], rect[:right] = rect[:right], rect[:left] if
+			rect[:left] > rect[:right]
+		rect[:top], rect[:bottom] = rect[:bottom], rect[:top] if
+			rect[:top] > rect[:bottom]
+	end
+
+	module_function :NormalizeRect
+
+	attach_function :DrawFocusRect, [
+		:pointer,
+		RECT.by_ref(:in)
+	], :int
+
+	attach_function :FrameRect, [
+		:pointer,
+		RECT.by_ref(:in),
+		:pointer
+	], :int
+
+	attach_function :FillRect, [
+		:pointer,
+		RECT.by_ref(:in),
+		:pointer
+	], :int
+
+	if WINVER >= WINVISTA # SetProcessDPIAware
 		attach_function :SetProcessDPIAware, [
 
 		], :int
@@ -628,6 +1089,10 @@ module WinGUI
 		Detonate(0, :SetProcessDPIAware) if WINGUI_DPI_AWARE
 	end
 
+	attach_function :GetWindowDC, [
+		:pointer
+	], :pointer
+
 	attach_function :GetDC, [
 		:pointer
 	], :pointer
@@ -637,8 +1102,7 @@ module WinGUI
 		:pointer
 	], :int
 
-	#{ DPIxxx
-	Detonate(FFI::Pointer::NULL, :GetDC,
+	Detonate(FFI::Pointer::NULL, :GetDC, # DPIxxx
 		nil
 	).tap { |hdc|
 		DPIX = GetDeviceCaps(hdc, LOGPIXELSX)
@@ -646,7 +1110,6 @@ module WinGUI
 
 		ReleaseDC(nil, hdc)
 	}
-	#}
 
 	def DPIAwareX(x)
 		MulDiv(x, DPIX, 96)
@@ -761,7 +1224,7 @@ module WinGUI
 		:uint
 	], :int
 
-	if WINVER >= WINXP
+	if WINVER >= WINXP # MessageBoxTimeout
 		begin
 			attach_function :MessageBoxTimeout, :MessageBoxTimeoutW, [
 				:pointer,
@@ -846,7 +1309,11 @@ module WinGUI
 		:buffer_in
 	], :pointer
 
-	begin
+	attach_function :DestroyIcon, [
+		:pointer
+	], :int
+
+	begin # PrivateExtractIcons
 		attach_function :PrivateExtractIcons, :PrivateExtractIconsW, [
 			:buffer_in,
 			:int,
@@ -861,10 +1328,6 @@ module WinGUI
 
 	end
 
-	attach_function :DestroyIcon, [
-		:pointer
-	], :int
-
 	#{ IDC_xxx
 	IDC_WAIT = FFI::Pointer.new(32514)
 	IDC_APPSTARTING = FFI::Pointer.new(32650)
@@ -956,6 +1419,61 @@ module WinGUI
 		WNDCLASSEX.by_ref(:out)
 	], :int
 
+	attach_function :FindWindow, :FindWindowW, [
+		:buffer_in,
+		:buffer_in
+	], :pointer
+
+	callback :WNDENUMPROC, [
+		:pointer,
+		:long
+	], :int
+
+	attach_function :EnumChildWindows, [
+		:pointer,
+		:WNDENUMPROC,
+		:long
+	], :int
+
+	attach_function :GetDesktopWindow, [
+
+	], :pointer
+
+	#{ GW_xxx
+	GW_HWNDFIRST = 0
+	GW_HWNDLAST = 1
+	GW_HWNDNEXT = 2
+	GW_HWNDPREV = 3
+	GW_OWNER = 4
+	GW_ENABLEDPOPUP = 6
+	GW_CHILD = 5
+	#}
+
+	attach_function :GetWindow, [
+		:pointer,
+		:uint
+	], :pointer
+
+	#{ GA_xxx
+	GA_PARENT = 1
+	GA_ROOT = 2
+	GA_ROOTOWNER = 3
+	#}
+
+	attach_function :GetAncestor, [
+		:pointer,
+		:uint
+	], :pointer
+
+	attach_function :SetParent, [
+		:pointer,
+		:pointer
+	], :pointer
+
+	attach_function :GetParent, [
+		:pointer
+	], :pointer
+
 	#{ WS_EX_xxx
 	WS_EX_WINDOWEDGE = 0x00000100
 	WS_EX_CLIENTEDGE = 0x00000200
@@ -1106,7 +1624,7 @@ module WinGUI
 		:ulong
 	], :int
 
-	if WINVER >= WINXP
+	if WINVER >= WINXP # GetLayeredWindowAttributes
 		attach_function :GetLayeredWindowAttributes, [
 			:pointer,
 			:pointer,
@@ -1197,6 +1715,24 @@ module WinGUI
 		:int
 	], :int
 
+	#{ AW_xxx
+	AW_HIDE = 0x00010000
+	AW_ACTIVATE = 0x00020000
+	AW_CENTER = 0x00000010
+	AW_SLIDE = 0x00040000
+	AW_HOR_POSITIVE = 0x00000001
+	AW_HOR_NEGATIVE = 0x00000002
+	AW_VER_POSITIVE = 0x00000004
+	AW_VER_NEGATIVE = 0x00000008
+	AW_BLEND = 0x00080000
+	#}
+
+	attach_function :AnimateWindow, [
+		:pointer,
+		:ulong,
+		:ulong
+	], :int
+
 	#{ HWND_xxx
 	HWND_TOP = FFI::Pointer.new(0)
 	HWND_BOTTOM = FFI::Pointer.new(1)
@@ -1243,6 +1779,98 @@ module WinGUI
 		:pointer
 	], :int
 
+	#{ SB_xxx
+	SB_HORZ = 0
+	SB_VERT = 1
+	SB_BOTH = 3
+	SB_CTL = 2
+	#}
+
+	#{ SIF_xxx
+	SIF_RANGE = 0x0001
+	SIF_PAGE = 0x0002
+	SIF_POS = 0x0004
+	SIF_TRACKPOS = 0x0010
+	SIF_ALL = SIF_RANGE | SIF_PAGE | SIF_POS | SIF_TRACKPOS
+	SIF_DISABLENOSCROLL = 0x0008
+	#}
+
+	class SCROLLINFO < FFI::Struct
+		extend Util::ScopedStruct
+
+		layout \
+			:cbSize, :uint,
+			:fMask, :uint,
+			:nMin, :int,
+			:nMax, :int,
+			:nPage, :uint,
+			:nPos, :int,
+			:nTrackPos, :int
+	end
+
+	attach_function :SetScrollInfo, [
+		:pointer,
+		:int,
+		SCROLLINFO.by_ref(:in),
+		:int
+	], :int
+
+	attach_function :GetScrollInfo, [
+		:pointer,
+		:int,
+		SCROLLINFO.by_ref
+	], :int
+
+	#{ ESB_xxx
+	ESB_DISABLE_LEFT = 0x0001
+	ESB_DISABLE_RIGHT = 0x0002
+	ESB_DISABLE_UP = 0x0001
+	ESB_DISABLE_DOWN = 0x0002
+
+	ESB_ENABLE_BOTH = 0x0000
+	ESB_DISABLE_BOTH = 0x0003
+	#}
+
+	attach_function :EnableScrollBar, [
+		:pointer,
+		:uint,
+		:uint
+	], :int
+
+	attach_function :ShowScrollBar, [
+		:pointer,
+		:int,
+		:int
+	], :int
+
+	attach_function :ScrollDC, [
+		:pointer,
+		:int,
+		:int,
+		RECT.by_ref(:in),
+		RECT.by_ref(:in),
+		:pointer,
+		RECT.by_ref(:out)
+	], :int
+
+	#{ SW_xxx
+	SW_INVALIDATE = 0x0002
+	SW_ERASE = 0x0004
+	SW_SCROLLCHILDREN = 0x0001
+	SW_SMOOTHSCROLL = 0x0010
+	#}
+
+	attach_function :ScrollWindowEx, [
+		:pointer,
+		:int,
+		:int,
+		RECT.by_ref(:in),
+		RECT.by_ref(:in),
+		:pointer,
+		RECT.by_ref(:out),
+		:uint
+	], :int
+
 	attach_function :GetWindowRect, [
 		:pointer,
 		RECT.by_ref(:out)
@@ -1313,6 +1941,114 @@ module WinGUI
 
 	], :pointer
 
+	attach_function :SetKeyboardState, [
+		:pointer
+	], :int
+
+	attach_function :GetKeyboardState, [
+		:pointer
+	], :int
+
+	attach_function :GetKeyState, [
+		:int
+	], :short
+
+	attach_function :GetAsyncKeyState, [
+		:int
+	], :short
+
+	#{ INPUT_xxx
+	INPUT_MOUSE = 0
+	INPUT_KEYBOARD = 1
+	INPUT_HARDWARE = 2
+	#}
+
+	#{ MOUSEEVENTF_xxx
+	MOUSEEVENTF_LEFTDOWN = 0x0002
+	MOUSEEVENTF_LEFTUP = 0x0004
+
+	MOUSEEVENTF_RIGHTDOWN = 0x0008
+	MOUSEEVENTF_RIGHTUP = 0x0010
+
+	MOUSEEVENTF_MIDDLEDOWN = 0x0020
+	MOUSEEVENTF_MIDDLEUP = 0x0040
+
+	MOUSEEVENTF_XDOWN = 0x0080
+	MOUSEEVENTF_XUP = 0x0100
+
+	MOUSEEVENTF_WHEEL = 0x0800
+	if WINVER >= WINVISTA
+		MOUSEEVENTF_HWHEEL = 0x01000
+	end
+
+	MOUSEEVENTF_MOVE = 0x0001
+	if WINVER >= WINVISTA
+		MOUSEEVENTF_MOVE_NOCOALESCE = 0x2000
+	end
+
+	MOUSEEVENTF_ABSOLUTE = 0x8000
+	MOUSEEVENTF_VIRTUALDESK = 0x4000
+	#}
+
+	class MOUSEINPUT < FFI::Struct
+		extend Util::ScopedStruct
+
+		layout \
+			:dx, :long,
+			:dy, :long,
+			:mouseData, :ulong,
+			:dwFlags, :ulong,
+			:time, :ulong,
+			:dwExtraInfo, :ulong
+	end
+
+	#{ KEYEVENTF_xxx
+	KEYEVENTF_SCANCODE = 0x0008
+	KEYEVENTF_EXTENDEDKEY = 0x0001
+	KEYEVENTF_KEYUP = 0x0002
+	KEYEVENTF_UNICODE = 0x0004
+	#}
+
+	class KEYBDINPUT < FFI::Struct
+		extend Util::ScopedStruct
+
+		layout \
+			:wVk, :ushort,
+			:wScan, :ushort,
+			:dwFlags, :ulong,
+			:time, :ulong,
+			:dwExtraInfo, :ulong
+	end
+
+	class HARDWAREINPUT < FFI::Struct
+		extend Util::ScopedStruct
+
+		layout \
+			:uMsg, :ulong,
+			:wParamL, :ushort,
+			:wParamH, :ushort
+	end
+
+	class INPUT < FFI::Struct
+		extend Util::ScopedStruct
+
+		layout \
+			:type, :ulong,
+
+			:_, Class.new(FFI::Union) {
+				layout \
+					:mi, MOUSEINPUT,
+					:ki, KEYBDINPUT,
+					:hi, HARDWAREINPUT
+			}
+	end
+
+	attach_function :SendInput, [
+		:uint,
+		:pointer,
+		:int
+	], :uint
+
 	attach_function :GetSystemMenu, [
 		:pointer,
 		:int
@@ -1371,6 +2107,8 @@ module WinGUI
 	WM_DESTROY = 0x0002
 	WM_NCDESTROY = 0x0082
 
+	WM_QUIT = 0x0012
+
 	#{ ENDSESSION_xxx
 	ENDSESSION_CLOSEAPP = 0x00000001
 	ENDSESSION_CRITICAL = 0x40000000
@@ -1380,8 +2118,6 @@ module WinGUI
 	WM_QUERYENDSESSION = 0x0011
 	WM_ENDSESSION = 0x0016
 
-	WM_QUIT = 0x0012
-
 	class STYLESTRUCT < FFI::Struct
 		extend Util::ScopedStruct
 
@@ -1470,6 +2206,31 @@ module WinGUI
 
 	WM_SIZE = 0x0005
 
+	#{ SB_xxx
+	SB_LEFT = 6
+	SB_TOP = 6
+	SB_RIGHT = 7
+	SB_BOTTOM = 7
+
+	SB_PAGELEFT = 2
+	SB_PAGERIGHT = 3
+	SB_PAGEUP = 2
+	SB_PAGEDOWN = 3
+
+	SB_LINELEFT = 0
+	SB_LINERIGHT = 1
+	SB_LINEUP = 0
+	SB_LINEDOWN = 1
+
+	SB_THUMBPOSITION = 4
+	SB_THUMBTRACK = 5
+
+	SB_ENDSCROLL = 8
+	#}
+
+	WM_HSCROLL = 0x0114
+	WM_VSCROLL = 0x0115
+
 	#{ ICON_xxx
 	ICON_SMALL = 0
 	ICON_BIG = 1
@@ -1492,6 +2253,18 @@ module WinGUI
 
 	WM_PAINT = 0x000f
 
+	#{ PRF_xxx
+	PRF_CHECKVISIBLE = 0x00000001
+	PRF_NONCLIENT = 0x00000002
+	PRF_CLIENT = 0x00000004
+	PRF_ERASEBKGND = 0x00000008
+	PRF_CHILDREN = 0x00000010
+	PRF_OWNED = 0x00000020
+	#}
+
+	WM_PRINT = 0x0317
+	WM_PRINTCLIENT = 0x0318
+
 	WM_CAPTURECHANGED = 0x0215
 
 	#{ MK_xxx
@@ -1500,6 +2273,7 @@ module WinGUI
 	MK_MBUTTON = 0x0010
 	MK_XBUTTON1 = 0x0020
 	MK_XBUTTON2 = 0x0040
+
 	MK_CONTROL = 0x0008
 	MK_SHIFT = 0x0004
 	#}
@@ -1530,12 +2304,24 @@ module WinGUI
 	#}
 
 	WM_MOUSEWHEEL = 0x020a
-	if WINVER >= WINVISTA
+	if WINVER >= WINVISTA # WM_MOUSEHWHEEL
 		WM_MOUSEHWHEEL = 0x020e
 	end
 
 	WM_MOUSEMOVE = 0x0200
 
+	WM_SYSKEYDOWN = 0x0104
+	WM_SYSKEYUP = 0x0105
+
+	WM_SYSCHAR = 0x0106
+	WM_SYSDEADCHAR = 0x0107
+
+	WM_KEYDOWN = 0x0100
+	WM_KEYUP = 0x0101
+
+	WM_CHAR = 0x0102
+	WM_DEADCHAR = 0x0103
+
 	WM_CONTEXTMENU = 0x007b
 
 	WM_INITMENU = 0x0116
@@ -1579,8 +2365,6 @@ module WinGUI
 		private :[]=, :store
 
 		def [](key)
-			return key if key.is_a?(Integer)
-
 			(id = fetch(key, nil)) ?
 				id :
 				self[key] = (@last -= 1) << 4
@@ -1596,8 +2380,6 @@ module WinGUI
 		private :[]=, :store
 
 		def [](key)
-			return key if key.is_a?(Integer)
-
 			(id = fetch(key, nil)) ?
 				id :
 				self[key] = @last += 1
@@ -1617,6 +2399,12 @@ module WinGUI
 
 	WM_NOTIFY = 0x004e
 
+	WM_CTLCOLORBTN = 0x0135
+	WM_CTLCOLORSTATIC = 0x0138
+	WM_CTLCOLOREDIT = 0x0133
+	WM_CTLCOLORLISTBOX = 0x0134
+	WM_CTLCOLORSCROLLBAR = 0x0137
+
 	attach_function :RegisterWindowMessage, :RegisterWindowMessageW, [
 		:buffer_in
 	], :uint
@@ -1736,6 +2524,13 @@ module WinGUI
 	MFS_GRAYED = 0x00000003
 	#}
 
+	attach_function :AppendMenu, :AppendMenuW, [
+		:pointer,
+		:uint,
+		:uint,
+		:buffer_in
+	], :int
+
 	attach_function :InsertMenu, :InsertMenuW, [
 		:pointer,
 		:uint,
@@ -1744,6 +2539,14 @@ module WinGUI
 		:buffer_in
 	], :int
 
+	attach_function :ModifyMenu, :ModifyMenuW, [
+		:pointer,
+		:uint,
+		:uint,
+		:uint,
+		:buffer_in
+	], :int
+
 	attach_function :GetMenuItemID, [
 		:pointer,
 		:int
@@ -1908,6 +2711,91 @@ module WinGUI
 	FALT = 0x10
 	#}
 
+	#{ VK_xxx
+	VK_LBUTTON = 0x01
+	VK_RBUTTON = 0x02
+	VK_MBUTTON = 0x04
+	VK_XBUTTON1 = 0x05
+	VK_XBUTTON2 = 0x06
+
+	VK_CONTROL = 0x11
+	VK_SHIFT = 0x10
+	VK_MENU = 0x12
+
+	VK_LCONTROL = 0xa2
+	VK_RCONTROL = 0xa3
+	VK_LSHIFT = 0xa0
+	VK_RSHIFT = 0xa1
+	VK_LMENU = 0xa4
+	VK_RMENU = 0xa5
+	VK_LWIN = 0x5b
+	VK_RWIN = 0x5c
+
+	VK_F1 = 0x70
+	VK_F2 = 0x71
+	VK_F3 = 0x72
+	VK_F4 = 0x73
+	VK_F5 = 0x74
+	VK_F6 = 0x75
+	VK_F7 = 0x76
+	VK_F8 = 0x77
+	VK_F9 = 0x78
+	VK_F10 = 0x79
+	VK_F11 = 0x7a
+	VK_F12 = 0x7b
+
+	VK_SNAPSHOT = 0x2c
+	VK_PAUSE = 0x13
+	VK_CANCEL = 0x03
+
+	VK_CAPITAL = 0x14
+	VK_NUMLOCK = 0x90
+	VK_SCROLL = 0x91
+
+	VK_ESCAPE = 0x1b
+	VK_RETURN = 0x0d
+	VK_TAB = 0x09
+	VK_SPACE = 0x20
+
+	VK_INSERT = 0x2d
+	VK_DELETE = 0x2e
+	VK_BACK = 0x08
+
+	VK_HOME = 0x24
+	VK_END = 0x23
+	VK_PRIOR = 0x21
+	VK_NEXT = 0x22
+	VK_LEFT = 0x25
+	VK_RIGHT = 0x27
+	VK_UP = 0x26
+	VK_DOWN = 0x28
+
+	VK_NUMPAD0 = 0x60
+	VK_NUMPAD1 = 0x61
+	VK_NUMPAD2 = 0x62
+	VK_NUMPAD3 = 0x63
+	VK_NUMPAD4 = 0x64
+	VK_NUMPAD5 = 0x65
+	VK_NUMPAD6 = 0x66
+	VK_NUMPAD7 = 0x67
+	VK_NUMPAD8 = 0x68
+	VK_NUMPAD9 = 0x69
+	VK_DECIMAL = 0x6e
+	VK_ADD = 0x6b
+	VK_SUBTRACT = 0x6d
+	VK_MULTIPLY = 0x6a
+	VK_DIVIDE = 0x6f
+
+	VK_MEDIA_PLAY_PAUSE = 0xb3
+	VK_MEDIA_STOP = 0xb2
+	VK_MEDIA_NEXT_TRACK = 0xb0
+	VK_MEDIA_PREV_TRACK = 0xb1
+
+	VK_VOLUME_MUTE = 0xad
+	VK_VOLUME_UP = 0xaf
+	VK_VOLUME_DOWN = 0xae
+	#}
+
 	class ACCEL < FFI::Struct
 		extend Util::ScopedStruct
 
@@ -1925,5 +2813,584 @@ module WinGUI
 	attach_function :DestroyAcceleratorTable, [
 		:pointer
 	], :int
+
+	attach_function :CopyAcceleratorTable, :CopyAcceleratorTableW, [
+		:pointer,
+		:pointer,
+		:int
+	], :int
+
+	#{ BS_xxx
+	BS_PUSHBUTTON = 0x00000000
+	BS_DEFPUSHBUTTON = 0x00000001
+
+	BS_CHECKBOX = 0x00000002
+	BS_AUTOCHECKBOX = 0x00000003
+
+	BS_3STATE = 0x00000005
+	BS_AUTO3STATE = 0x00000006
+
+	BS_RADIOBUTTON = 0x00000004
+	BS_AUTORADIOBUTTON = 0x00000009
+
+	BS_GROUPBOX = 0x00000007
+
+	BS_TEXT = 0x00000000
+	BS_BITMAP = 0x00000080
+	BS_ICON = 0x00000040
+	BS_OWNERDRAW = 0x0000000b
+
+	BS_LEFT = 0x00000100
+	BS_CENTER = 0x00000300
+	BS_RIGHT = 0x00000200
+
+	BS_TOP = 0x00000400
+	BS_VCENTER = 0x00000c00
+	BS_BOTTOM = 0x00000800
+
+	BS_MULTILINE = 0x00002000
+
+	BS_LEFTTEXT = 0x00000020
+
+	BS_FLAT = 0x00008000
+	BS_PUSHLIKE = 0x00001000
+
+	BS_NOTIFY = 0x00004000
+	#}
+
+	#{ BM_xxx
+	BM_SETSTYLE = 0x00f4
+
+	BM_SETIMAGE = 0x00f7
+	BM_GETIMAGE = 0x00f6
+
+	#{ BST_xxx
+	BST_FOCUS = 0x0008
+	BST_PUSHED = 0x0004
+	BST_UNCHECKED = 0x0000
+	BST_CHECKED = 0x0001
+	BST_INDETERMINATE = 0x0002
+	#}
+
+	BM_SETSTATE = 0x00f3
+	BM_GETSTATE = 0x00f2
+
+	BM_SETCHECK = 0x00f1
+	BM_GETCHECK = 0x00f0
+
+	BM_CLICK = 0x00f5
+	if WINVER >= WINVISTA
+		BM_SETDONTCLICK = 0x00f8
+	end
+	#}
+
+	#{ BN_xxx
+	BN_SETFOCUS = 6
+	BN_KILLFOCUS = 7
+
+	BN_CLICKED = 0
+	BN_DBLCLK = 5
+	#}
+
+	#{ SS_xxx
+	SS_NOPREFIX = 0x00000080
+	SS_ENDELLIPSIS = 0x00004000
+	SS_WORDELLIPSIS = 0x0000c000
+	SS_PATHELLIPSIS = 0x00008000
+	SS_EDITCONTROL = 0x00002000
+
+	SS_SIMPLE = 0x0000000b
+	SS_BITMAP = 0x0000000e
+	SS_ICON = 0x00000003
+	SS_OWNERDRAW = 0x0000000d
+
+	SS_LEFT = 0x00000000
+	SS_LEFTNOWORDWRAP = 0x0000000c
+	SS_CENTER = 0x00000001
+	SS_CENTERIMAGE = 0x00000200
+	SS_RIGHT = 0x00000002
+	SS_RIGHTJUST = 0x00000400
+
+	SS_SUNKEN = 0x00001000
+
+	SS_ETCHEDHORZ = 0x00000010
+	SS_ETCHEDVERT = 0x00000011
+	SS_ETCHEDFRAME = 0x00000012
+
+	SS_BLACKFRAME = 0x00000007
+	SS_GRAYFRAME = 0x00000008
+	SS_WHITEFRAME = 0x00000009
+
+	SS_BLACKRECT = 0x00000004
+	SS_GRAYRECT = 0x00000005
+	SS_WHITERECT = 0x00000006
+
+	if WINVER >= WINXP
+		SS_REALSIZECONTROL = 0x00000040
+	end
+	SS_REALSIZEIMAGE = 0x00000800
+
+	SS_NOTIFY = 0x00000100
+	#}
+
+	#{ STM_xxx
+	STM_SETIMAGE = 0x0172
+	STM_GETIMAGE = 0x0173
+
+	STM_SETICON = 0x0170
+	STM_GETICON = 0x0171
+	#}
+
+	#{ STN_xxx
+	STN_ENABLE = 2
+	STN_DISABLE = 3
+
+	STN_CLICKED = 0
+	STN_DBLCLK = 1
+	#}
+
+	#{ ES_xxx
+	ES_NUMBER = 0x2000
+	ES_LOWERCASE = 0x0010
+	ES_UPPERCASE = 0x0008
+	ES_PASSWORD = 0x0020
+	ES_MULTILINE = 0x0004
+	ES_WANTRETURN = 0x1000
+
+	ES_LEFT = 0x0000
+	ES_CENTER = 0x0001
+	ES_RIGHT = 0x0002
+
+	ES_AUTOHSCROLL = 0x0080
+	ES_AUTOVSCROLL = 0x0040
+	ES_NOHIDESEL = 0x0100
+	ES_READONLY = 0x0800
+	#}
+
+	#{ EM_xxx
+	EM_SETLIMITTEXT = 0x00c5
+	EM_GETLIMITTEXT = 0x00d5
+
+	EM_SETPASSWORDCHAR = 0x00cc
+	EM_GETPASSWORDCHAR = 0x00d2
+
+	EM_SETTABSTOPS = 0x00cb
+	EM_FMTLINES = 0x00c8
+
+	EM_SETSEL = 0x00b1
+	EM_GETSEL = 0x00b0
+
+	EM_REPLACESEL = 0x00c2
+
+	EM_SETRECT = 0x00b3
+	EM_SETRECTNP = 0x00b4
+	EM_GETRECT = 0x00b2
+
+	#{ EC_xxx
+	EC_LEFTMARGIN = 0x0001
+	EC_RIGHTMARGIN = 0x0002
+	EC_USEFONTINFO = 0xffff
+	#}
+
+	EM_SETMARGINS = 0x00d3
+	EM_GETMARGINS = 0x00d4
+
+	EM_SETHANDLE = 0x00bc
+	EM_GETHANDLE = 0x00bd
+
+	#{ WB_xxx
+	WB_LEFT = 0
+	WB_RIGHT = 1
+	WB_ISDELIMITER = 2
+	#}
+
+	callback :EDITWORDBREAKPROC, [
+		:buffer_in,
+		:int,
+		:int,
+		:int
+	], :int
+
+	EM_SETWORDBREAKPROC = 0x00d0
+	EM_GETWORDBREAKPROC = 0x00d1
+
+	EM_SETMODIFY = 0x00b9
+	EM_GETMODIFY = 0x00b8
+
+	EM_CANUNDO = 0x00c6
+	EM_UNDO = 0x00c7
+	EM_EMPTYUNDOBUFFER = 0x00cd
+
+	EM_SCROLL = 0x00b5
+	EM_LINESCROLL = 0x00b6
+	EM_SCROLLCARET = 0x00b7
+	EM_GETTHUMB = 0x00be
+
+	EM_GETLINECOUNT = 0x00ba
+	EM_LINELENGTH = 0x00c1
+	EM_GETLINE = 0x00c4
+	EM_GETFIRSTVISIBLELINE = 0x00ce
+	EM_LINEINDEX = 0x00bb
+	EM_LINEFROMCHAR = 0x00c9
+
+	EM_POSFROMCHAR = 0x00d6
+	EM_CHARFROMPOS = 0x00d7
+
+	EM_SETREADONLY = 0x00cf
+	#}
+
+	#{ EN_xxx
+	EN_ERRSPACE = 0x0500
+	EN_MAXTEXT = 0x0501
+
+	EN_SETFOCUS = 0x0100
+	EN_KILLFOCUS = 0x0200
+
+	EN_UPDATE = 0x0400
+	EN_CHANGE = 0x0300
+
+	EN_HSCROLL = 0x0601
+	EN_VSCROLL = 0x0602
+	#}
+
+	#{ LBS_xxx
+	LBS_USETABSTOPS = 0x0080
+	LBS_MULTICOLUMN = 0x0200
+	LBS_MULTIPLESEL = 0x0008
+	LBS_EXTENDEDSEL = 0x0800
+	LBS_WANTKEYBOARDINPUT = 0x0400
+	LBS_COMBOBOX = 0x8000
+
+	LBS_HASSTRINGS = 0x0040
+	LBS_OWNERDRAWFIXED = 0x0010
+	LBS_OWNERDRAWVARIABLE = 0x0020
+
+	LBS_SORT = 0x0002
+
+	LBS_DISABLENOSCROLL = 0x1000
+	LBS_NOINTEGRALHEIGHT = 0x0100
+	LBS_NODATA = 0x2000
+	LBS_NOSEL = 0x4000
+	LBS_NOREDRAW = 0x0004
+
+	LBS_NOTIFY = 0x0001
+
+	LBS_STANDARD = WS_BORDER | WS_VSCROLL | LBS_SORT | LBS_NOTIFY
+	#}
+
+	attach_function :GetListBoxInfo, [
+		:pointer
+	], :ulong
+
+	#{ DDL_xxx
+	DDL_DRIVES = 0x4000
+	DDL_DIRECTORY = 0x0010
+	DDL_EXCLUSIVE = 0x8000
+
+	DDL_READWRITE = 0x0000
+	DDL_READONLY = 0x0001
+	DDL_HIDDEN = 0x0002
+	DDL_SYSTEM = 0x0004
+	DDL_ARCHIVE = 0x0020
+
+	DDL_POSTMSGS = 0x2000
+	#}
+
+	attach_function :DlgDirList, :DlgDirListW, [
+		:pointer,
+		:buffer_inout,
+		:int,
+		:int,
+		:uint
+	], :int
+
+	attach_function :DlgDirSelectEx, :DlgDirSelectExW, [
+		:pointer,
+		:buffer_out,
+		:int,
+		:int
+	], :int
+
+	#{ LB_xxx
+	LB_OKAY = 0
+	LB_ERR = -1
+	LB_ERRSPACE = -2
+
+	LB_INITSTORAGE = 0x01a8
+
+	LB_SETCOUNT = 0x01a7
+	LB_GETCOUNT = 0x018b
+
+	LB_ADDSTRING = 0x0180
+	LB_INSERTSTRING = 0x0181
+	LB_DIR = 0x018d
+	LB_ADDFILE = 0x0196
+
+	LB_DELETESTRING = 0x0182
+	LB_RESETCONTENT = 0x0184
+
+	LB_SETCURSEL = 0x0186
+	LB_GETCURSEL = 0x0188
+
+	LB_SELECTSTRING = 0x018c
+
+	LB_FINDSTRING = 0x018f
+	LB_FINDSTRINGEXACT = 0x01a2
+
+	LB_GETTEXTLEN = 0x018a
+	LB_GETTEXT = 0x0189
+
+	LB_SETITEMDATA = 0x019a
+	LB_GETITEMDATA = 0x0199
+
+	LB_SETSEL = 0x0185
+	LB_GETSEL = 0x0187
+
+	LB_GETSELCOUNT = 0x0190
+	LB_GETSELITEMS = 0x0191
+
+	LB_SELITEMRANGEEX = 0x0183
+
+	LB_SETLOCALE = 0x01a5
+	LB_GETLOCALE = 0x01a6
+
+	LB_SETTABSTOPS = 0x0192
+	LB_SETCOLUMNWIDTH = 0x0195
+	if WINVER >= WINXP
+		LB_GETLISTBOXINFO = 0x01b2
+	end
+
+	LB_SETHORIZONTALEXTENT = 0x0194
+	LB_GETHORIZONTALEXTENT = 0x0193
+
+	LB_SETTOPINDEX = 0x0197
+	LB_GETTOPINDEX = 0x018e
+
+	LB_SETANCHORINDEX = 0x019c
+	LB_GETANCHORINDEX = 0x019d
+
+	LB_SETCARETINDEX = 0x019e
+	LB_GETCARETINDEX = 0x019f
+
+	LB_SETITEMHEIGHT = 0x01a0
+	LB_GETITEMHEIGHT = 0x01a1
+
+	LB_GETITEMRECT = 0x0198
+	LB_ITEMFROMPOINT = 0x01a9
+	#}
+
+	#{ LBN_xxx
+	LBN_ERRSPACE = -2
+
+	LBN_SETFOCUS = 4
+	LBN_KILLFOCUS = 5
+
+	LBN_SELCHANGE = 1
+	LBN_SELCANCEL = 3
+
+	LBN_DBLCLK = 2
+	#}
+
+	#{ CBS_xxx
+	CBS_SIMPLE = 0x0001
+	CBS_DROPDOWN = 0x0002
+	CBS_DROPDOWNLIST = 0x0003
+	CBS_LOWERCASE = 0x4000
+	CBS_UPPERCASE = 0x2000
+
+	CBS_HASSTRINGS = 0x0200
+	CBS_OWNERDRAWFIXED = 0x0010
+	CBS_OWNERDRAWVARIABLE = 0x0020
+
+	CBS_SORT = 0x0100
+
+	CBS_AUTOHSCROLL = 0x0040
+	CBS_DISABLENOSCROLL = 0x0800
+	CBS_NOINTEGRALHEIGHT = 0x0400
+	#}
+
+	class COMBOBOXINFO < FFI::Struct
+		extend Util::ScopedStruct
+
+		layout \
+			:cbSize, :ulong,
+			:rcItem, RECT,
+			:rcButton, RECT,
+			:stateButton, :ulong,
+			:hwndCombo, :pointer,
+			:hwndItem, :pointer,
+			:hwndList, :pointer
+	end
+
+	attach_function :GetComboBoxInfo, [
+		:pointer,
+		COMBOBOXINFO.by_ref
+	], :int
+
+	attach_function :DlgDirListComboBox, :DlgDirListComboBoxW, [
+		:pointer,
+		:buffer_inout,
+		:int,
+		:int,
+		:uint
+	], :int
+
+	attach_function :DlgDirSelectComboBoxEx, :DlgDirSelectComboBoxExW, [
+		:pointer,
+		:buffer_out,
+		:int,
+		:int
+	], :int
+
+	#{ CB_xxx
+	CB_OKAY = 0
+	CB_ERR = -1
+	CB_ERRSPACE = -2
+
+	CB_LIMITTEXT = 0x0141
+
+	CB_INITSTORAGE = 0x0161
+
+	CB_GETCOUNT = 0x0146
+
+	CB_ADDSTRING = 0x0143
+	CB_INSERTSTRING = 0x014a
+	CB_DIR = 0x0145
+
+	CB_DELETESTRING = 0x0144
+	CB_RESETCONTENT = 0x014b
+
+	CB_SETCURSEL = 0x014e
+	CB_GETCURSEL = 0x0147
+
+	CB_SELECTSTRING = 0x014d
+
+	CB_FINDSTRING = 0x014c
+	CB_FINDSTRINGEXACT = 0x0158
+
+	CB_GETLBTEXTLEN = 0x0149
+	CB_GETLBTEXT = 0x0148
+
+	CB_SETITEMDATA = 0x0151
+	CB_GETITEMDATA = 0x0150
+
+	CB_SETEDITSEL = 0x0142
+	CB_GETEDITSEL = 0x0140
+
+	CB_SETLOCALE = 0x0159
+	CB_GETLOCALE = 0x015a
+
+	if WINVER >= WINXP
+		CB_GETCOMBOBOXINFO = 0x0164
+	end
+
+	CB_SETHORIZONTALEXTENT = 0x015e
+	CB_GETHORIZONTALEXTENT = 0x015d
+
+	CB_SETTOPINDEX = 0x015c
+	CB_GETTOPINDEX = 0x015b
+
+	CB_SETITEMHEIGHT = 0x0153
+	CB_GETITEMHEIGHT = 0x0154
+
+	CB_SETDROPPEDWIDTH = 0x0160
+	CB_GETDROPPEDWIDTH = 0x015f
+
+	CB_GETDROPPEDSTATE = 0x0157
+	CB_GETDROPPEDCONTROLRECT = 0x0152
+
+	CB_SHOWDROPDOWN = 0x014f
+
+	CB_SETEXTENDEDUI = 0x0155
+	CB_GETEXTENDEDUI = 0x0156
+	#}
+
+	#{ CBN_xxx
+	CBN_ERRSPACE = -1
+
+	CBN_SETFOCUS = 3
+	CBN_KILLFOCUS = 4
+
+	CBN_EDITUPDATE = 6
+	CBN_EDITCHANGE = 5
+
+	CBN_SELCHANGE = 1
+	CBN_SELENDOK = 9
+	CBN_SELENDCANCEL = 10
+
+	CBN_DBLCLK = 2
+
+	CBN_DROPDOWN = 7
+	CBN_CLOSEUP = 8
+	#}
+
+	#{ SBS_xxx
+	SBS_HORZ = 0x0000
+	SBS_VERT = 0x0001
+
+	SBS_TOPALIGN = 0x0002
+	SBS_BOTTOMALIGN = 0x0004
+	SBS_LEFTALIGN = 0x0002
+	SBS_RIGHTALIGN = 0x0004
+
+	SBS_SIZEBOX = 0x0008
+	SBS_SIZEGRIP = 0x0010
+
+	SBS_SIZEBOXTOPLEFTALIGN = 0x0002
+	SBS_SIZEBOXBOTTOMRIGHTALIGN = 0x0004
+	#}
+
+	#{ OBJID_xxx
+	OBJID_HSCROLL = 0xffff_fffa - 0x1_0000_0000
+	OBJID_VSCROLL = 0xffff_fffb - 0x1_0000_0000
+	OBJID_CLIENT = 0xffff_fffc - 0x1_0000_0000
+	#}
+
+	class SCROLLBARINFO < FFI::Struct
+		extend Util::ScopedStruct
+
+		layout \
+			:cbSize, :ulong,
+			:rcScrollBar, RECT,
+			:dxyLineButton, :int,
+			:xyThumbTop, :int,
+			:xyThumbBottom, :int,
+			:reserved, :int,
+
+			# 0 - scroll bar itself
+			# 1 - top/right arrow button
+			# 2 - page up/page right region
+			# 3 - scroll box
+			# 4 - page down/page left region
+			# 5 - bottom/left arrow button
+			:rgstate, [:ulong, 6]
+	end
+
+	attach_function :GetScrollBarInfo, [
+		:pointer,
+		:long,
+		SCROLLBARINFO.by_ref
+	], :int
+
+	#{ SBM_xxx
+	SBM_ENABLE_ARROWS = 0x00e4
+
+	SBM_SETRANGE = 0x00e2
+	SBM_SETRANGEREDRAW = 0x00e6
+	SBM_GETRANGE = 0x00e3
+
+	SBM_SETPOS = 0x00e0
+	SBM_GETPOS = 0x00e1
+
+	SBM_SETSCROLLINFO = 0x00e9
+	SBM_GETSCROLLINFO = 0x00ea
+
+	if WINVER >= WINXP
+		SBM_GETSCROLLBARINFO = 0x00eb
+	end
+	#}
 	#}
 end
+
+#tend = Time.now
+#p "ffi: #{tffi - tstart}, rest: #{tend - tffi}, total: #{tend - tstart}"