ffi-wingui-core 0.6.0 → 1.0.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: 350e500580c8bd926466b10016b6cb7b4c353b2e
+  data.tar.gz: 84488d64a995b856f64196e3e21c99adce1100aa
+SHA512:
+  metadata.gz: fd766f1fff480891c6de1dd17b4fbbbe5781306565f2e66377a53366422eae4400a3fefc72d6ecb7f4f5b79a8a06778fa7168bf15455b817719eb031d85652d7
+  data.tar.gz: efce385e13a9b23797787afb45f816b65571bbfcae5d399f991aaa434f86aa0b671d25c2e90db4906d0ac51ace297aab841b0424486357689319a76fec1d7e36

data/LICENSE

@@ -1,6 +1,6 @@
 The MIT License
 
-Copyright (c) 2011 Radoslav Peev
+Copyright (c) 2011-2013 Radoslav Peev
 
 Permission is hereby granted, free of charge, to any person obtaining a copy
 of this software and associated documentation files (the "Software"), to deal

data/examples/Command.rbw

@@ -1,5 +1,4 @@
 require 'ffi-wingui-core'
-require 'ffi-wingui-core/ocra'
 
 include WinGUI
 
@@ -29,7 +28,7 @@ def onCreate(hwnd,
 	]
 
 	FFI::MemoryPointer.new(ACCEL, accels.count) { |paccels|
-		accels.each.with_index { |data, i|
+		accels.each_with_index { |data, i|
 			accel = ACCEL.new(paccels + i * ACCEL.size)
 
 			accel[:fVirt], accel[:key], accel[:cmd] = data
@@ -162,7 +161,7 @@ begin
 
 	when WM_ACTIVATE
 		onActivate(hwnd,
-			LOWORD(wParam), HIWORD(wParam) > 0,
+			LOWORD(wParam), HIWORD(wParam) != 0,
 			FFI::Pointer.new(lParam)
 		)
 

data/examples/Hello.rbw

@@ -1,5 +1,4 @@
 require 'ffi-wingui-core'
-require 'ffi-wingui-core/ocra'
 
 include WinGUI
 

data/examples/HelloOptout.rbw

@@ -2,7 +2,6 @@ WINGUI_VISUAL_STYLES = false
 WINGUI_DPI_AWARE = false
 
 require 'ffi-wingui-core'
-require 'ffi-wingui-core/ocra'
 
 include WinGUI
 

data/examples/HelloTimeout.rbw

@@ -1,5 +1,4 @@
 require 'ffi-wingui-core'
-require 'ffi-wingui-core/ocra'
 
 include WinGUI
 

data/examples/Layered.rbw

@@ -1,5 +1,4 @@
 require 'ffi-wingui-core'
-require 'ffi-wingui-core/ocra'
 
 include WinGUI
 

data/examples/LifeCycle.rbw

@@ -1,5 +1,4 @@
 require 'ffi-wingui-core'
-require 'ffi-wingui-core/ocra'
 
 include WinGUI
 

data/examples/LifeCycleNC.rbw

@@ -1,5 +1,4 @@
 require 'ffi-wingui-core'
-require 'ffi-wingui-core/ocra'
 
 include WinGUI
 

data/examples/Menu.rbw

@@ -1,5 +1,4 @@
 require 'ffi-wingui-core'
-require 'ffi-wingui-core/ocra'
 
 include WinGUI
 

data/examples/MenuContext.rbw

@@ -1,5 +1,4 @@
 require 'ffi-wingui-core'
-require 'ffi-wingui-core/ocra'
 
 include WinGUI
 

data/examples/MenuPARGB32.rbw

@@ -1,5 +1,4 @@
 require 'ffi-wingui-core'
-require 'ffi-wingui-core/ocra'
 
 include WinGUI
 

data/examples/MinMax.rbw

@@ -1,5 +1,4 @@
 require 'ffi-wingui-core'
-require 'ffi-wingui-core/ocra'
 
 include WinGUI
 

data/examples/Minimal.rbw

@@ -1,5 +1,4 @@
 require 'ffi-wingui-core'
-require 'ffi-wingui-core/ocra'
 
 include WinGUI
 

data/examples/Paint.rbw

@@ -0,0 +1,151 @@
+require 'ffi-wingui-core'
+
+include WinGUI
+
+WndExtra = Struct.new(
+	:hfont
+)
+
+def onCreate(hwnd,
+	cs
+)
+	xtra = Util::Id2Ref[GetWindowLong(hwnd, GWL_USERDATA)]
+
+	LOGFONT.new { |lf|
+		lf[:lfHeight] = DPIAwareFontHeight(24)
+		lf[:lfItalic] = 1
+		lf[:lfFaceName].to_ptr.put_bytes(0, L('Verdana'))
+
+		xtra[:hfont] = CreateFontIndirect(lf)
+	}
+
+	0
+end
+
+def onDestroy(hwnd)
+	xtra = Util::Id2Ref[GetWindowLong(hwnd, GWL_USERDATA)]
+
+	DeleteObject(xtra[:hfont])
+
+	PostQuitMessage(0); 0
+end
+
+def onPaint(hwnd,
+	ps
+)
+	xtra = Util::Id2Ref[GetWindowLong(hwnd, GWL_USERDATA)]
+
+	SetBkColor(ps[:hdc], RGB(255, 0, 0))
+	SetTextColor(ps[:hdc], RGB(255, 255, 255))
+
+	UseObjects(ps[:hdc], xtra[:hfont]) {
+		RECT.new { |rect|
+			GetClientRect(hwnd, rect)
+
+			DrawText(ps[:hdc],
+				L('The quick brown fox jumps over the lazy dog. 1234567890'), -1,
+				rect, DT_SINGLELINE | DT_CENTER | DT_VCENTER
+			)
+		}
+	}
+
+	0
+end
+
+WindowProc = FFI::Function.new(:long,
+	[:pointer, :uint, :uint, :long],
+	convention: :stdcall
+) { |hwnd, uMsg, wParam, lParam|
+begin
+	result = case uMsg
+	when WM_NCCREATE
+		DefWindowProc(hwnd, uMsg, wParam, lParam)
+
+		SetWindowLong(hwnd,
+			GWL_USERDATA,
+			CREATESTRUCT.new(FFI::Pointer.new(lParam))[:lpCreateParams].to_i
+		)
+
+		1
+	when WM_CREATE
+		onCreate(hwnd, CREATESTRUCT.new(FFI::Pointer.new(lParam)))
+	when WM_DESTROY
+		onDestroy(hwnd)
+
+	when WM_PAINT
+		DoPaint(hwnd) { |ps| result = onPaint(hwnd, ps) }
+	when WM_PRINTCLIENT
+		DoPrintClient(hwnd, wParam) { |ps| result = onPaint(hwnd, ps) }
+	end
+
+	result || DefWindowProc(hwnd, uMsg, wParam, lParam)
+rescue SystemExit => ex
+	PostQuitMessage(ex.status)
+rescue
+	case MessageBox(hwnd,
+		L(Util.FormatException($!)),
+		APPNAME,
+		MB_ABORTRETRYIGNORE | MB_ICONERROR
+	)
+	when IDABORT
+		PostQuitMessage(2)
+	when IDRETRY
+		retry
+	end
+end
+}
+
+def main
+	Util.Id2RefTrack(xtra = WndExtra.new)
+
+	WNDCLASSEX.new { |wc|
+		wc[:cbSize] = wc.size
+		wc[:style] = CS_HREDRAW | CS_VREDRAW
+		wc[:lpfnWndProc] = WindowProc
+		wc[:cbWndExtra] = FFI::Type::Builtin::POINTER.size
+		wc[:hInstance] = GetModuleHandle(nil)
+		wc[:hIcon] = LoadIcon(nil, IDI_APPLICATION)
+		wc[:hCursor] = LoadCursor(nil, IDC_ARROW)
+		wc[:hbrBackground] = FFI::Pointer.new(COLOR_WINDOW + 1)
+
+		PWSTR(APPNAME) { |className|
+			wc[:lpszClassName] = className
+
+			DetonateLastError(0, :RegisterClassEx,
+				wc
+			)
+		}
+	}
+
+	hwnd = CreateWindowEx(
+		WS_EX_CLIENTEDGE, APPNAME, APPNAME, WS_OVERLAPPEDWINDOW | WS_CLIPCHILDREN,
+		CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT,
+		nil, nil, GetModuleHandle(nil), FFI::Pointer.new(xtra.object_id)
+	)
+
+	raise "CreateWindowEx failed (last error: #{GetLastError()})" if
+		hwnd.null? && GetLastError() != 0
+
+	exit(0) if hwnd.null?
+
+	AnimateWindow(hwnd, 1000, AW_ACTIVATE | AW_BLEND)
+
+	MSG.new { |msg|
+		until DetonateLastError(-1, :GetMessage,
+			msg, nil, 0, 0
+		) == 0
+			TranslateMessage(msg)
+			DispatchMessage(msg)
+		end
+
+		exit(msg[:wParam])
+	}
+rescue
+	MessageBox(hwnd,
+		L(Util.FormatException($!)),
+		APPNAME,
+		MB_ICONERROR
+	); exit(1)
+end
+
+main

data/examples/Region.rbw

@@ -1,5 +1,4 @@
 require 'ffi-wingui-core'
-require 'ffi-wingui-core/ocra'
 
 include WinGUI
 

data/examples/Scribble.rbw

@@ -1,11 +1,11 @@
 require 'ffi-wingui-core'
-require 'ffi-wingui-core/ocra'
 
 include WinGUI
 
 WndExtra = Struct.new(
-	:scribbles,
-	:hpen
+	:hpen,
+	:curpos,
+	:scribbles
 )
 
 def onCreate(hwnd,
@@ -13,15 +13,15 @@ def onCreate(hwnd,
 )
 	xtra = Util::Id2Ref[GetWindowLong(hwnd, GWL_USERDATA)]
 
-	xtra[:scribbles] = []
-
 	LOGPEN.new { |lp|
-		lp[:lopnWidth][:x] = DPIAwareX(4)
+		lp[:lopnWidth][:x] = DPIAwareX(10)
 		lp[:lopnColor] = RGB(255, 0, 0)
 
 		xtra[:hpen] = CreatePenIndirect(lp)
 	}
 
+	xtra[:scribbles] = []
+
 	0
 end
 
@@ -38,36 +38,32 @@ def onPaint(hwnd,
 )
 	xtra = Util::Id2Ref[GetWindowLong(hwnd, GWL_USERDATA)]
 
-	hdefpen = SelectObject(ps[:hdc], xtra[:hpen])
-
-	xtra[:scribbles].each { |scribble|
-		MoveToEx(ps[:hdc], *scribble[0], nil)
+	UseObjects(ps[:hdc], xtra[:hpen]) {
+		xtra[:scribbles].each { |scribble|
+			MoveToEx(ps[:hdc], *scribble[0], nil)
 
-		scribble.each { |x, y|
-			LineTo(ps[:hdc], x, y)
+			scribble.each { |x, y|
+				LineTo(ps[:hdc], x, y)
+			}
 		}
 	}
 
 	0
-ensure
-	SelectObject(ps[:hdc], hdefpen)
 end
 
 def onLButtonDown(hwnd,
 	x, y
 )
-	xtra = Util::Id2Ref[GetWindowLong(hwnd, GWL_USERDATA)]
-
 	SetCapture(hwnd)
 
-	(xtra[:scribbles] << []).last << [x, y]
+	xtra = Util::Id2Ref[GetWindowLong(hwnd, GWL_USERDATA)]
+
+	xtra[:curpos] = [x, y]
+	xtra[:scribbles] << [[x, y]]
 
 	RECT.new { |rect|
-		rect[:left] = x - DPIAwareX(2)
-		rect[:top] = y - DPIAwareY(2)
-		rect[:right] = x + DPIAwareX(2)
-		rect[:bottom] = y + DPIAwareY(2)
-
+		SetRect(rect, x, y, x, y)
+		InflateRect(rect, *DPIAwareXY(5, 5))
 		InvalidateRect(hwnd, rect, 1)
 	}
 
@@ -91,7 +87,14 @@ def onMouseMove(hwnd,
 
 	xtra[:scribbles].last << [x, y]
 
-	InvalidateRect(hwnd, nil, 0)
+	UseDC(hwnd) { |hdc|
+		UseObjects(hdc, xtra[:hpen]) {
+			MoveToEx(hdc, *xtra[:curpos], nil)
+			LineTo(hdc, x, y)
+
+			xtra[:curpos] = [x, y]
+		}
+	}
 
 	0
 end
@@ -131,19 +134,7 @@ begin
 		onDestroy(hwnd)
 
 	when WM_PAINT
-		r = nil
-
-		if GetUpdateRect(hwnd, nil, 0) != 0
-			PAINTSTRUCT.new { |ps|
-				BeginPaint(hwnd, ps)
-
-				begin
-					r = onPaint(hwnd, ps)
-				ensure
-					EndPaint(hwnd, ps)
-				end
-			}
-		end
+		DoPaint(hwnd) { |ps| result = onPaint(hwnd, ps) }
 
 	when WM_LBUTTONDOWN
 		onLButtonDown(hwnd, LOSHORT(lParam), HISHORT(lParam))

data/examples/WndExtra.rbw

@@ -1,5 +1,4 @@
 require 'ffi-wingui-core'
-require 'ffi-wingui-core/ocra'
 
 include WinGUI
 

data/lib/ffi-wingui-core.rb

@@ -1,3396 +1,4 @@
-#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
-
-	#{ common
-	module Util
-		def FormatException(ex)
-			str, trace = ex.to_s, ex.backtrace
-
-			str << "\n\n-- backtrace --\n\n" << trace.join("\n") if trace
-
-			str
-		end
-
-		module_function :FormatException
-
-		Id2Ref = {}
-
-		def Id2RefTrack(object)
-			Id2Ref[object.object_id] = object
-
-			ObjectSpace.define_finalizer(object, -> id {
-				Id2Ref.delete(id)
-			})
-		end
-
-		module_function :Id2RefTrack
-
-		unless FFI::Struct.respond_to?(:by_ref)
-			class << FFI::Struct
-				def by_ref(*args)
-					FFI::Type::Builtin::POINTER
-				end
-			end
-		end
-
-		module ScopedStruct
-			def new(*args)
-				raise ArgumentError, 'Cannot accept both arguments and a block' if
-					args.length > 0 && block_given?
-
-				struct = super
-
-				return struct unless block_given?
-
-				begin
-					yield struct
-				ensure
-					struct.pointer.free
-
-					p "Native memory for #{struct} freed" if $DEBUG
-				end
-
-				nil
-			end
-		end
-	end
-
-	#{ INVALID_xxx
-	INVALID_HANDLE_VALUE = FFI::Pointer.new(-1)
-	#}
-
-	def MAKEWORD(lobyte, hibyte)
-		(lobyte & 0xff) | ((hibyte & 0xff) << 8)
-	end
-
-	def LOBYTE(word)
-		word & 0xff
-	end
-
-	def HIBYTE(word)
-		(word >> 8) & 0xff
-	end
-
-	module_function :MAKEWORD, :LOBYTE, :HIBYTE
-
-	def MAKELONG(loword, hiword)
-		(loword & 0xffff) | ((hiword & 0xffff) << 16)
-	end
-
-	def LOWORD(long)
-		long & 0xffff
-	end
-
-	def HIWORD(long)
-		(long >> 16) & 0xffff
-	end
-
-	def LOSHORT(long)
-		((loshort = LOWORD(long)) > 0x7fff) ? loshort - 0x1_0000 : loshort
-	end
-
-	def HISHORT(long)
-		((hishort = HIWORD(long)) > 0x7fff) ? hishort - 0x1_0000 : hishort
-	end
-
-	module_function :MAKELONG, :LOWORD, :HIWORD, :LOSHORT, :HISHORT
-
-	def L(str)
-		(str << "\0").encode!('utf-16le')
-	end
-
-	def PWSTR(wstr)
-		raise 'Invalid Unicode string' unless
-			wstr.encoding == Encoding::UTF_16LE && wstr[-1] == L('')
-
-		ptr = FFI::MemoryPointer.new(:ushort, wstr.length).
-			put_bytes(0, wstr)
-
-		return ptr unless block_given?
-
-		begin
-			yield ptr
-		ensure
-			ptr.free
-
-			p "Native copy of '#{wstr[0...-1].encode($0.encoding)}' freed" if $DEBUG
-		end
-
-		nil
-	end
-
-	module_function :L, :PWSTR
-
-	APPNAME = L(File.basename($0, '.rbw'))
-
-	class POINT < FFI::Struct
-		extend Util::ScopedStruct
-
-		layout \
-			:x, :long,
-			:y, :long
-	end
-
-	class SIZE < FFI::Struct
-		extend Util::ScopedStruct
-
-		layout \
-			:cx, :long,
-			:cy, :long
-	end
-
-	class RECT < FFI::Struct
-		extend Util::ScopedStruct
-
-		layout \
-			:left, :long,
-			:top, :long,
-			:right, :long,
-			:bottom, :long
-	end
-	#}
-
-	#{ kernel32
-	ffi_lib 'kernel32'
-	ffi_convention :stdcall
-
-	attach_function :SetLastError, [
-		:ulong
-	], :void
-
-	attach_function :GetLastError, [
-
-	], :ulong
-
-	def Detonate(on, name, *args)
-		raise "#{name} failed" if
-			(failed = [*on].include?(result = send(name, *args)))
-
-		result
-	ensure
-		yield failed if block_given?
-	end
-
-	def DetonateLastError(on, name, *args)
-		raise "#{name} failed (last error: #{GetLastError()})" if
-			(failed = [*on].include?(result = send(name, *args)))
-
-		result
-	ensure
-		yield failed if block_given?
-	end
-
-	module_function :Detonate, :DetonateLastError
-
-	class OSVERSIONINFOEX < FFI::Struct
-		extend Util::ScopedStruct
-
-		layout \
-			:dwOSVersionInfoSize, :ulong,
-			:dwMajorVersion, :ulong,
-			:dwMinorVersion, :ulong,
-			:dwBuildNumber, :ulong,
-			:dwPlatformId, :ulong,
-			:szCSDVersion, [:ushort, 128],
-			:wServicePackMajor, :ushort,
-			:wServicePackMinor, :ushort,
-			:wSuiteMask, :ushort,
-			:wProductType, :uchar,
-			:wReserved, :uchar
-	end
-
-	attach_function :GetVersionEx, :GetVersionExW, [
-		OSVERSIONINFOEX.by_ref
-	], :int
-
-	OSVERSION = OSVERSIONINFOEX.new.tap { |ovi|
-		at_exit { OSVERSION.pointer.free }
-
-		ovi[:dwOSVersionInfoSize] = ovi.size
-
-		DetonateLastError(0, :GetVersionEx,
-			ovi
-		)
-	}
-
-	#{ NTDDI_xxx
-	NTDDI_WIN2K = 0x05000000
-
-	NTDDI_WIN2KSP1 = 0x05000100
-	NTDDI_WIN2KSP2 = 0x05000200
-	NTDDI_WIN2KSP3 = 0x05000300
-	NTDDI_WIN2KSP4 = 0x05000400
-
-	NTDDI_WINXP = 0x05010000
-
-	NTDDI_WINXPSP1 = 0x05010100
-	NTDDI_WINXPSP2 = 0x05010200
-	NTDDI_WINXPSP3 = 0x05010300
-	NTDDI_WINXPSP4 = 0x05010400
-
-	NTDDI_WS03 = 0x05020000
-
-	NTDDI_WS03SP1 = 0x05020100
-	NTDDI_WS03SP2 = 0x05020200
-	NTDDI_WS03SP3 = 0x05020300
-	NTDDI_WS03SP4 = 0x05020400
-
-	NTDDI_VISTA = 0x06000000
-
-	NTDDI_VISTASP1 = 0x06000100
-	NTDDI_VISTASP2 = 0x06000200
-	NTDDI_VISTASP3 = 0x06000300
-	NTDDI_VISTASP4 = 0x06000400
-
-	NTDDI_WS08 = NTDDI_VISTASP1
-
-	NTDDI_WS08SP2 = NTDDI_VISTASP2
-	NTDDI_WS08SP3 = NTDDI_VISTASP3
-	NTDDI_WS08SP4 = NTDDI_VISTASP4
-
-	NTDDI_WIN7 = 0x06010000
-	#}
-
-	NTDDI_VERSION = MAKELONG(
-		MAKEWORD(OSVERSION[:wServicePackMinor], OSVERSION[:wServicePackMajor]),
-		MAKEWORD(OSVERSION[:dwMinorVersion], OSVERSION[:dwMajorVersion])
-	)
-
-	#{ WINxxx
-	WIN2K = 0x0500
-	WINXP = 0x0501
-	WINVISTA = 0x0600
-	WIN7 = 0x0601
-	#}
-
-	WINVER = HIWORD(NTDDI_VERSION)
-
-	def TARGETVER(version, message)
-		version = MAKELONG(0x0000, version) if version < 0xffff
-
-		exit(-1) if NTDDI_VERSION < version &&
-			MessageBox(nil,
-				message,
-				APPNAME,
-				MB_YESNO | MB_ICONERROR | MB_DEFBUTTON2
-			) == IDNO
-	end
-
-	module_function :TARGETVER
-
-	attach_function :GetModuleHandle, :GetModuleHandleW, [
-		:buffer_in
-	], :pointer
-
-	attach_function :LoadLibrary, :LoadLibraryW, [
-		:buffer_in
-	], :pointer
-
-	attach_function :FreeLibrary, [
-		:pointer
-	], :int
-
-	if WINVER >= WINXP # ACTCTX
-		class ACTCTX < FFI::Struct
-			extend Util::ScopedStruct
-
-			layout \
-				:cbSize, :ulong,
-				:dwFlags, :ulong,
-				:lpSource, :pointer,
-				:wProcessorArchitecture, :ushort,
-				:wLangId, :ushort,
-				:lpAssemblyDirectory, :pointer,
-				:lpResourceName, :pointer,
-				:lpApplicationName, :pointer,
-				:hModule, :pointer
-		end
-
-		attach_function :CreateActCtx, :CreateActCtxW, [
-			ACTCTX.by_ref
-		], :pointer
-
-		attach_function :ReleaseActCtx, [
-			:pointer
-		], :void
-
-		attach_function :ActivateActCtx, [
-			:pointer,
-			:pointer
-		], :int
-
-		attach_function :DeactivateActCtx, [
-			:ulong,
-			:ulong
-		], :int
-
-		COMMON_CONTROLS_ACTCTX = {
-			handle: INVALID_HANDLE_VALUE,
-			cookie: FFI::MemoryPointer.new(:ulong),
-			activated: false
-		}
-
-		at_exit {
-			DeactivateActCtx(0, COMMON_CONTROLS_ACTCTX[:cookie].get_ulong(0)) if
-				COMMON_CONTROLS_ACTCTX[:activated]
-
-			ReleaseActCtx(COMMON_CONTROLS_ACTCTX[:handle]) unless
-				COMMON_CONTROLS_ACTCTX[:handle] == INVALID_HANDLE_VALUE
-
-			COMMON_CONTROLS_ACTCTX[:cookie].free
-		}
-	end
-
-	def EnableVisualStyles
-		return unless WINVER >= WINXP
-
-		raise 'Visual styles already enabled' if
-			COMMON_CONTROLS_ACTCTX[:activated]
-
-		manifest = "#{ENV['TEMP']}/WinGUI.Common-Controls.manifest"
-
-		File.open(manifest, 'w:utf-8') { |file|
-			file << <<-XML
-<?xml version='1.0' encoding='utf-8' standalone='yes' ?>
-<assembly xmlns='urn:schemas-microsoft-com:asm.v1' manifestVersion='1.0'>
-	<dependency>
-		<dependentAssembly>
-<assemblyIdentity
-	type='Win32'
-	name='Microsoft.Windows.Common-Controls'
-	version='6.0.0.0'
-	processorArchitecture='*'
-	publicKeyToken='6595b64144ccf1df'
-	language='*'
-/>
-		</dependentAssembly>
-	</dependency>
-</assembly>
-			XML
-		}
-
-		ACTCTX.new { |ac|
-			ac[:cbSize] = ac.size
-
-			PWSTR(L(manifest)) { |source|
-				ac[:lpSource] = source
-
-				COMMON_CONTROLS_ACTCTX[:handle] =
-					DetonateLastError(INVALID_HANDLE_VALUE, :CreateActCtx,
-						ac
-					)
-			}
-		}
-
-		DetonateLastError(0, :ActivateActCtx,
-			COMMON_CONTROLS_ACTCTX[:handle], COMMON_CONTROLS_ACTCTX[:cookie]
-		) { |failed|
-			next unless failed
-
-			ReleaseActCtx(COMMON_CONTROLS_ACTCTX[:handle])
-			COMMON_CONTROLS_ACTCTX[:handle] = INVALID_HANDLE_VALUE
-		}
-
-		COMMON_CONTROLS_ACTCTX[:activated] = true
-	end
-
-	module_function :EnableVisualStyles
-
-	EnableVisualStyles() if WINGUI_VISUAL_STYLES
-
-	attach_function :MulDiv, [
-		:int,
-		:int,
-		:int
-	], :int
-	#}
-
-	#{ gdi32
-	ffi_lib 'gdi32'
-	ffi_convention :stdcall
-
-	def RGB(r, g, b)
-		r | (g << 8) | (b << 16)
-	end
-
-	def GetRValue(rgb)
-		LOBYTE(rgb)
-	end
-
-	def GetGValue(rgb)
-		LOBYTE(rgb >> 8)
-	end
-
-	def GetBValue(rgb)
-		LOBYTE(rgb >> 16)
-	end
-
-	module_function :RGB, :GetRValue, :GetGValue, :GetBValue
-
-	attach_function :CreateCompatibleDC, [
-		:pointer
-	], :pointer
-
-	attach_function :DeleteDC, [
-		:pointer
-	], :int
-
-	#{ devCapIndex constants
-	LOGPIXELSX = 88
-	LOGPIXELSY = 90
-	#}
-
-	attach_function :GetDeviceCaps, [
-		:pointer,
-		: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
-
-		layout \
-			:lfHeight, :long,
-			:lfWidth, :long,
-			:lfEscapement, :long,
-			:lfOrientation, :long,
-			:lfWeight, :long,
-			:lfItalic, :uchar,
-			:lfUnderline, :uchar,
-			:lfStrikeOut, :uchar,
-			:lfCharSet, :uchar,
-			:lfOutPrecision, :uchar,
-			:lfClipPrecision, :uchar,
-			:lfQuality, :uchar,
-			:lfPitchAndFamily, :uchar,
-			:lfFaceName, [:ushort, 32]
-	end
-
-	attach_function :CreateFontIndirect, :CreateFontIndirectW, [
-		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
-
-		layout \
-			:lbStyle, :uint,
-			:lbColor, :ulong,
-			:lbHatch, :ulong
-	end
-
-	attach_function :CreateBrushIndirect, [
-		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
-
-		layout \
-			:lopnStyle, :uint,
-			:lopnWidth, POINT,
-			:lopnColor, :ulong
-	end
-
-	attach_function :CreatePenIndirect, [
-		LOGPEN.by_ref(:in)
-	], :pointer
-
-	attach_function :ExtCreatePen, [
-		:ulong,
-		:ulong,
-		LOGBRUSH.by_ref(:in),
-		:ulong,
-		:pointer
-	], :pointer
-
-	attach_function :CreateRectRgn, [
-		:int,
-		:int,
-		:int,
-		:int
-	], :pointer
-
-	attach_function :CreateRoundRectRgn, [
-		:int,
-		:int,
-		:int,
-		:int,
-		:int,
-		:int
-	], :pointer
-
-	attach_function :CreateEllipticRgn, [
-		:int,
-		:int,
-		:int,
-		:int
-	], :pointer
-
-	#{ 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 # in polyFillMode
-	], :pointer
-
-	attach_function :CreatePolyPolygonRgn, [
-		:pointer,
-		:pointer,
-		:int,
-		:int # in polyFillMode
-	], :pointer
-
-	attach_function :OffsetRgn, [
-		:pointer,
-		:int,
-		:int
-	], :int
-
-	#{ RGN_xxx
-	RGN_COPY = 5
-	RGN_DIFF = 4
-	RGN_AND = 1
-	RGN_OR = 2
-	RGN_XOR = 3
-	#}
-
-	#{ rgnType constants
-	ERROR = 0
-	NULLREGION = 1
-	SIMPLEREGION = 2
-	COMPLEXREGION = 3
-	#}
-
-	attach_function :CombineRgn, [
-		:pointer,
-		: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, [
-		:pointer
-	], :int
-
-	attach_function :GetObject, :GetObjectW, [
-		:pointer,
-		:int,
-		: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
-	], :ulong
-
-	attach_function :GetBkColor, [
-		:pointer
-	], :ulong
-
-	attach_function :SetTextColor, [
-		:pointer,
-		:ulong
-	], :ulong
-
-	attach_function :GetTextColor, [
-		:pointer
-	], :ulong
-
-	attach_function :SelectObject, [
-		:pointer,
-		: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,
-		:int,
-		:buffer_in,
-		:int
-	], :int
-
-	attach_function :MoveToEx, [
-		:pointer,
-		:int,
-		:int,
-		POINT.by_ref(:out)
-	], :int
-
-	attach_function :LineTo, [
-		:pointer,
-		: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
-
-	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
-
-		Detonate(0, :SetProcessDPIAware) if WINGUI_DPI_AWARE
-	end
-
-	attach_function :GetWindowDC, [
-		:pointer
-	], :pointer
-
-	attach_function :GetDC, [
-		:pointer
-	], :pointer
-
-	attach_function :ReleaseDC, [
-		:pointer,
-		:pointer
-	], :int
-
-	Detonate(FFI::Pointer::NULL, :GetDC, # DPIxxx
-		nil
-	).tap { |hdc|
-		DPIX = GetDeviceCaps(hdc, LOGPIXELSX)
-		DPIY = GetDeviceCaps(hdc, LOGPIXELSY)
-
-		ReleaseDC(nil, hdc)
-	}
-
-	def DPIAwareX(x)
-		MulDiv(x, DPIX, 96)
-	end
-
-	def DPIAwareY(y)
-		MulDiv(y, DPIY, 96)
-	end
-
-	def DPIAwareXY(*args)
-		raise ArgumentError, 'Expected two or more, even count arguments' if
-			args.length < 2 || args.length.odd?
-
-		args.each_with_index { |arg, i|
-			args[i] = (i.even?) ? DPIAwareX(arg) : DPIAwareY(arg)
-		}
-	end
-
-	module_function :DPIAwareX, :DPIAwareY, :DPIAwareXY
-
-	#{ SM_xxx
-	SM_CXSCREEN = 0
-	SM_CYSCREEN = 1
-	#}
-
-	attach_function :GetSystemMetrics, [
-		:int
-	], :int
-
-	#{ SPI_xxx
-	class NONCLIENTMETRICS < FFI::Struct
-		extend Util::ScopedStruct
-
-		layout *[
-			:cbSize, :uint,
-			:iBorderWidth, :int,
-			:iScrollWidth, :int,
-			:iScrollHeight, :int,
-			:iCaptionWidth, :int,
-			:iCaptionHeight, :int,
-			:lfCaptionFont, LOGFONT,
-			:iSmCaptionWidth, :int,
-			:iSmCaptionHeight, :int,
-			:lfSmCaptionFont, LOGFONT,
-			:iMenuWidth, :int,
-			:iMenuHeight, :int,
-			:lfMenuFont, LOGFONT,
-			:lfStatusFont, LOGFONT,
-			:lfMessageFont, LOGFONT,
-			(WINVER >= WINVISTA) ? [:iPaddedBorderWidth, :int] : nil
-		].tap { |layout|
-			layout.flatten!
-			layout.compact!
-		}
-	end
-
-	SPI_SETNONCLIENTMETRICS = 0x002a
-	SPI_GETNONCLIENTMETRICS = 0x0029
-	#}
-
-	attach_function :SystemParametersInfo, :SystemParametersInfoW, [
-		:uint,
-		:uint,
-		:pointer,
-		:uint
-	], :int
-
-	#{ MB_xxx
-	MB_OK = 0x00000000
-	MB_OKCANCEL = 0x00000001
-	MB_YESNO = 0x00000004
-	MB_YESNOCANCEL = 0x00000003
-	MB_RETRYCANCEL = 0x00000005
-	MB_ABORTRETRYIGNORE = 0x00000002
-	MB_CANCELTRYCONTINUE = 0x00000006
-	MB_HELP = 0x00004000
-
-	MB_ICONINFORMATION = 0x00000040
-	MB_ICONWARNING = 0x00000030
-	MB_ICONERROR = 0x00000010
-	MB_ICONQUESTION = 0x00000020
-
-	MB_DEFBUTTON1 = 0x00000000
-	MB_DEFBUTTON2 = 0x00000100
-	MB_DEFBUTTON3 = 0x00000200
-	MB_DEFBUTTON4 = 0x00000300
-
-	MB_APPLMODAL = 0x00000000
-	MB_TASKMODAL = 0x00002000
-	MB_SYSTEMMODAL = 0x00001000
-	#}
-
-	#{ IDxxx
-	IDOK = 1
-	IDCANCEL = 2
-	IDYES = 6
-	IDNO = 7
-	IDABORT = 3
-	IDRETRY = 4
-	IDIGNORE = 5
-	IDTRYAGAIN = 10
-	IDCONTINUE = 11
-	if WINVER >= WINXP
-		IDTIMEOUT = 32000
-	end
-	#}
-
-	attach_function :MessageBox, :MessageBoxW, [
-		:pointer,
-		:buffer_in,
-		:buffer_in,
-		:uint
-	], :int
-
-	if WINVER >= WINXP # MessageBoxTimeout
-		begin
-			attach_function :MessageBoxTimeout, :MessageBoxTimeoutW, [
-				:pointer,
-				:buffer_in,
-				:buffer_in,
-				:uint,
-				:ushort,
-				:ulong
-			], :int
-		rescue FFI::NotFoundError # MessageBoxTimeout is undocumented
-
-		end
-	end
-
-	#{ CS_xxx
-	CS_DBLCLKS = 0x0008
-	CS_HREDRAW = 0x0002
-	CS_VREDRAW = 0x0001
-	CS_PARENTDC = 0x0080
-	CS_CLASSDC = 0x0040
-	CS_OWNDC = 0x0020
-	CS_SAVEBITS = 0x0800
-	CS_NOCLOSE = 0x0200
-	if WINVER >= WINXP
-		CS_DROPSHADOW = 0x00020000
-	end
-	#}
-
-	callback :WNDPROC, [
-		:pointer,
-		:uint,
-		:uint,
-		:long
-	], :long
-
-	attach_function :DefWindowProc, :DefWindowProcW, [
-		:pointer,
-		:uint,
-		:uint,
-		:long
-	], :long
-
-	#{ IMAGE_xxx
-	IMAGE_BITMAP = 0
-	IMAGE_ICON = 1
-	IMAGE_CURSOR = 2
-	#}
-
-	#{ LR_xxx
-	LR_SHARED = 0x00008000
-	LR_LOADFROMFILE = 0x00000010
-	LR_CREATEDIBSECTION = 0x00002000
-	LR_LOADTRANSPARENT = 0x00000020
-	LR_LOADMAP3DCOLORS = 0x00001000
-	LR_DEFAULTSIZE = 0x00000040
-	#}
-
-	attach_function :LoadImage, :LoadImageW, [
-		:pointer,
-		:buffer_in,
-		:uint,
-		:int,
-		:int,
-		:uint
-	], :pointer
-
-	#{ IDI_xxx
-	IDI_WINLOGO = FFI::Pointer.new(32517)
-	IDI_APPLICATION = FFI::Pointer.new(32512)
-	if WINVER >= WINVISTA
-		IDI_SHIELD = FFI::Pointer.new(32518)
-	end
-
-	IDI_INFORMATION = FFI::Pointer.new(32516)
-	IDI_WARNING = FFI::Pointer.new(32515)
-	IDI_ERROR = FFI::Pointer.new(32513)
-	IDI_QUESTION = FFI::Pointer.new(32514)
-	#}
-
-	attach_function :LoadIcon, :LoadIconW, [
-		:pointer,
-		:buffer_in
-	], :pointer
-
-	attach_function :DestroyIcon, [
-		:pointer
-	], :int
-
-	begin # PrivateExtractIcons
-		attach_function :PrivateExtractIcons, :PrivateExtractIconsW, [
-			:buffer_in,
-			:int,
-			:int,
-			:int,
-			:pointer,
-			:pointer,
-			:uint,
-			:uint
-		], :uint
-	rescue FFI::NotFoundError # PrivateExtractIcons is not intended for general use
-
-	end
-
-	#{ IDC_xxx
-	IDC_WAIT = FFI::Pointer.new(32514)
-	IDC_APPSTARTING = FFI::Pointer.new(32650)
-
-	IDC_ARROW = FFI::Pointer.new(32512)
-	IDC_HAND = FFI::Pointer.new(32649)
-	IDC_IBEAM = FFI::Pointer.new(32513)
-	IDC_CROSS = FFI::Pointer.new(32515)
-	IDC_HELP = FFI::Pointer.new(32651)
-	IDC_NO = FFI::Pointer.new(32648)
-
-	IDC_SIZEALL = FFI::Pointer.new(32646)
-	IDC_SIZENS = FFI::Pointer.new(32645)
-	IDC_SIZEWE = FFI::Pointer.new(32644)
-	IDC_SIZENWSE = FFI::Pointer.new(32642)
-	IDC_SIZENESW = FFI::Pointer.new(32643)
-	#}
-
-	attach_function :LoadCursor, :LoadCursorW, [
-		:pointer,
-		:buffer_in
-	], :pointer
-
-	attach_function :DestroyCursor, [
-		:pointer
-	], :int
-
-	attach_function :SetCursor, [
-		:pointer
-	], :pointer
-
-	attach_function :GetCursor, [
-
-	], :pointer
-
-	attach_function :SetCursorPos, [
-		:int,
-		:int
-	], :int
-
-	attach_function :GetCursorPos, [
-		POINT.by_ref(:out)
-	], :int
-
-	attach_function :ShowCursor, [
-		:int
-	], :int
-
-	#{ COLOR_xxx
-	COLOR_DESKTOP = 1
-	COLOR_APPWORKSPACE = 12
-	COLOR_WINDOW = 5
-	if WINVER >= WINXP
-		COLOR_MENUBAR = 30
-	end
-	COLOR_MENU = 4
-	#}
-
-	class WNDCLASSEX < FFI::Struct
-		extend Util::ScopedStruct
-
-		layout \
-			:cbSize, :uint,
-			:style, :uint,
-			:lpfnWndProc, :WNDPROC,
-			:cbClsExtra, :int,
-			:cbWndExtra, :int,
-			:hInstance, :pointer,
-			:hIcon, :pointer,
-			:hCursor, :pointer,
-			:hbrBackground, :pointer,
-			:lpszMenuName, :pointer,
-			:lpszClassName, :pointer,
-			:hIconSm, :pointer
-	end
-
-	attach_function :RegisterClassEx, :RegisterClassExW, [
-		WNDCLASSEX.by_ref(:in)
-	], :ushort
-
-	attach_function :UnregisterClass, :UnregisterClassW, [
-		:buffer_in,
-		:pointer
-	], :int
-
-	attach_function :GetClassInfoEx, :GetClassInfoExW, [
-		:pointer,
-		:buffer_in,
-		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
-	WS_EX_STATICEDGE = 0x00020000
-	WS_EX_DLGMODALFRAME = 0x00000001
-	WS_EX_CONTEXTHELP = 0x00000400
-	WS_EX_ACCEPTFILES = 0x00000010
-
-	WS_EX_TOPMOST = 0x00000008
-	WS_EX_LAYERED = 0x00080000
-	if WINVER >= WINXP
-		WS_EX_COMPOSITED = 0x02000000
-	end
-	WS_EX_TRANSPARENT = 0x00000020
-
-	WS_EX_NOPARENTNOTIFY = 0x00000004
-
-	WS_EX_APPWINDOW = 0x00040000
-	WS_EX_OVERLAPPEDWINDOW = \
-		WS_EX_WINDOWEDGE | WS_EX_CLIENTEDGE
-	WS_EX_TOOLWINDOW = 0x00000080
-	WS_EX_PALETTEWINDOW = WS_EX_TOOLWINDOW |
-		WS_EX_WINDOWEDGE | WS_EX_TOPMOST
-	WS_EX_CONTROLPARENT = 0x00010000
-	#}
-
-	#{ WS_xxx
-	WS_BORDER = 0x00800000
-	WS_DLGFRAME = 0x00400000
-	WS_CAPTION = 0x00C00000
-	WS_SYSMENU = 0x00080000
-	WS_THICKFRAME = 0x00040000
-	WS_MINIMIZEBOX = 0x00020000
-	WS_MAXIMIZEBOX = 0x00010000
-	WS_HSCROLL = 0x00100000
-	WS_VSCROLL = 0x00200000
-
-	WS_DISABLED = 0x08000000
-	WS_VISIBLE = 0x10000000
-	WS_MINIMIZE = 0x20000000
-	WS_MAXIMIZE = 0x01000000
-	WS_CLIPCHILDREN = 0x02000000
-
-	WS_GROUP = 0x00020000
-	WS_TABSTOP = 0x00010000
-	WS_CLIPSIBLINGS = 0x04000000
-
-	WS_OVERLAPPED = 0x00000000
-	WS_OVERLAPPEDWINDOW = WS_OVERLAPPED |
-		WS_CAPTION | WS_SYSMENU |
-		WS_THICKFRAME | WS_MINIMIZEBOX | WS_MAXIMIZEBOX
-	WS_POPUP = 0x80000000
-	WS_POPUPWINDOW = WS_POPUP |
-		WS_BORDER | WS_SYSMENU
-	WS_CHILD = 0x40000000
-	WS_CHILDWINDOW = WS_CHILD
-	#}
-
-	#{ CW_xxx
-	CW_USEDEFAULT = -0x80000000
-	#}
-
-	#{ HWND_xxx
-	HWND_DESKTOP = FFI::Pointer.new(0)
-	HWND_MESSAGE = FFI::Pointer.new(-3)
-	#}
-
-	attach_function :CreateWindowEx, :CreateWindowExW, [
-		:ulong,
-		:buffer_in,
-		:buffer_in,
-		:ulong,
-		:int,
-		:int,
-		:int,
-		:int,
-		:pointer,
-		:pointer,
-		:pointer,
-		:pointer
-	], :pointer
-
-	attach_function :DestroyWindow, [
-		:pointer
-	], :int
-
-	#{ GCL/GCW_xxx
-	GCL_STYLE = -26
-	GCL_WNDPROC = -24
-	GCL_CBCLSEXTRA = -20
-	GCL_CBWNDEXTRA = -18
-	GCL_HMODULE = -16
-	GCL_HICON = -14
-	GCL_HCURSOR = -12
-	GCL_HBRBACKGROUND = -10
-	GCL_MENUNAME = -8
-	GCL_HICONSM = -34
-	GCW_ATOM = -32
-	#}
-
-	attach_function :SetClassLong, :SetClassLongW, [
-		:pointer,
-		:int,
-		:long
-	], :ulong
-
-	attach_function :GetClassLong, :GetClassLongW, [
-		:pointer,
-		:int
-	], :ulong
-
-	attach_function :GetClassName, :GetClassNameW, [
-		:pointer,
-		:buffer_out,
-		:int
-	], :int
-
-	#{ GWL_xxx
-	GWL_WNDPROC = -4
-	GWL_EXSTYLE = -20
-	GWL_STYLE = -16
-	GWL_HWNDPARENT = -8
-	GWL_ID = -12
-	GWL_HINSTANCE = -6
-	GWL_USERDATA = -21
-	#}
-
-	attach_function :SetWindowLong, :SetWindowLongW, [
-		:pointer,
-		:int,
-		:long
-	], :long
-
-	attach_function :GetWindowLong, :GetWindowLongW, [
-		:pointer,
-		:int
-	], :long
-
-	#{ LWA_xxx
-	LWA_COLORKEY = 0x00000001
-	LWA_ALPHA = 0x00000002
-	#}
-
-	attach_function :SetLayeredWindowAttributes, [
-		:pointer,
-		:ulong,
-		:uchar,
-		:ulong
-	], :int
-
-	if WINVER >= WINXP # GetLayeredWindowAttributes
-		attach_function :GetLayeredWindowAttributes, [
-			:pointer,
-			:pointer,
-			:pointer,
-			:pointer
-		], :int
-	end
-
-	attach_function :SetWindowRgn, [
-		:pointer,
-		:pointer,
-		:int
-	], :int
-
-	attach_function :GetWindowRgn, [
-		:pointer,
-		:pointer
-	], :int
-
-	attach_function :IsWindowEnabled, [
-		:pointer
-	], :int
-
-	attach_function :EnableWindow, [
-		:pointer,
-		:int
-	], :int
-
-	attach_function :SetActiveWindow, [
-		:pointer
-	], :pointer
-
-	attach_function :GetActiveWindow, [
-
-	], :pointer
-
-	attach_function :SetForegroundWindow, [
-		:pointer
-	], :int
-
-	attach_function :GetForegroundWindow, [
-
-	], :pointer
-
-	attach_function :SetFocus, [
-		:pointer
-	], :pointer
-
-	attach_function :GetFocus, [
-
-	], :pointer
-
-	attach_function :IsWindowVisible, [
-		:pointer
-	], :int
-
-	attach_function :IsIconic, [
-		:pointer
-	], :int
-
-	attach_function :IsZoomed, [
-		:pointer
-	], :int
-
-	#{ SW_xxx
-	SW_SHOWDEFAULT = 10
-	SW_HIDE = 0
-	SW_SHOW = 5
-	SW_SHOWNA = 8
-	SW_SHOWNORMAL = 1
-	SW_SHOWNOACTIVATE = 4
-	SW_SHOWMINIMIZED = 2
-	SW_SHOWMINNOACTIVE = 7
-	SW_MINIMIZE = 6
-	SW_FORCEMINIMIZE = 11
-	SW_SHOWMAXIMIZED = 3
-	SW_MAXIMIZE = 3
-	SW_RESTORE = 9
-	#}
-
-	attach_function :ShowWindow, [
-		:pointer,
-		:int
-	], :int
-
-	attach_function :ShowWindowAsync, [
-		:pointer,
-		: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)
-	HWND_TOPMOST = FFI::Pointer.new(-1)
-	HWND_NOTOPMOST = FFI::Pointer.new(-2)
-	#}
-
-	#{ SWP_xxx
-	SWP_FRAMECHANGED = 0x0020
-	SWP_NOACTIVATE = 0x0010
-	SWP_NOOWNERZORDER = 0x0200
-	SWP_NOZORDER = 0x0004
-	SWP_NOMOVE = 0x0002
-	SWP_NOSIZE = 0x0001
-	SWP_ASYNCWINDOWPOS = 0x4000
-	#}
-
-	attach_function :SetWindowPos, [
-		:pointer,
-		:pointer,
-		:int,
-		:int,
-		:int,
-		:int,
-		:uint
-	], :int
-
-	attach_function :BeginDeferWindowPos, [
-		:int
-	], :pointer
-
-	attach_function :DeferWindowPos, [
-		:pointer,
-		:pointer,
-		:pointer,
-		:int,
-		:int,
-		:int,
-		:int,
-		:uint
-	], :pointer
-
-	attach_function :EndDeferWindowPos, [
-		: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)
-	], :int
-
-	attach_function :GetClientRect, [
-		:pointer,
-		RECT.by_ref(:out)
-	], :int
-
-	attach_function :ScreenToClient, [
-		:pointer,
-		POINT.by_ref
-	], :int
-
-	attach_function :ClientToScreen, [
-		:pointer,
-		POINT.by_ref
-	], :int
-
-	attach_function :InvalidateRect, [
-		:pointer,
-		RECT.by_ref(:in),
-		:int
-	], :int
-
-	attach_function :GetUpdateRect, [
-		:pointer,
-		RECT.by_ref(:out),
-		:int
-	], :int
-
-	attach_function :UpdateWindow, [
-		:pointer
-	], :int
-
-	class PAINTSTRUCT < FFI::Struct
-		extend Util::ScopedStruct
-
-		layout \
-			:hdc, :pointer,
-			:fErase, :int,
-			:rcPaint, RECT,
-			:fRestore, :int,
-			:fIncUpdate, :int,
-			:rgbReserved, [:uchar, 32]
-	end
-
-	attach_function :BeginPaint, [
-		:pointer,
-		PAINTSTRUCT.by_ref(:out)
-	], :pointer
-
-	attach_function :EndPaint, [
-		:pointer,
-		PAINTSTRUCT.by_ref(:in)
-	], :int
-
-	attach_function :SetCapture, [
-		:pointer
-	], :pointer
-
-	attach_function :ReleaseCapture, [
-
-	], :int
-
-	attach_function :GetCapture, [
-
-	], :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
-	], :pointer
-
-	attach_function :SetMenu, [
-		:pointer,
-		:pointer
-	], :int
-
-	attach_function :GetMenu, [
-		:pointer
-	], :pointer
-
-	attach_function :DrawMenuBar, [
-		:pointer
-	], :int
-
-	attach_function :GetDlgItem, [
-		:pointer,
-		:int
-	], :pointer
-
-	attach_function :GetDlgCtrlID, [
-		:pointer
-	], :int
-
-	#{ HWND_xxx
-	HWND_BROADCAST = FFI::Pointer.new(0xffff)
-	#}
-
-	#{ WM_xxx
-	class CREATESTRUCT < FFI::Struct
-		extend Util::ScopedStruct
-
-		layout \
-			:lpCreateParams, :pointer,
-			:hInstance, :pointer,
-			:hMenu, :pointer,
-			:hwndParent, :pointer,
-			:cy, :int,
-			:cx, :int,
-			:y, :int,
-			:x, :int,
-			:style, :long,
-			:lpszName, :pointer,
-			:lpszClass, :pointer,
-			:dwExStyle, :ulong
-	end
-
-	WM_NCCREATE = 0x0081
-	WM_CREATE = 0x0001
-
-	WM_CLOSE = 0x0010
-
-	WM_DESTROY = 0x0002
-	WM_NCDESTROY = 0x0082
-
-	WM_QUIT = 0x0012
-
-	#{ ENDSESSION_xxx
-	ENDSESSION_CLOSEAPP = 0x00000001
-	ENDSESSION_CRITICAL = 0x40000000
-	ENDSESSION_LOGOFF = 0x80000000
-	#}
-
-	WM_QUERYENDSESSION = 0x0011
-	WM_ENDSESSION = 0x0016
-
-	class STYLESTRUCT < FFI::Struct
-		extend Util::ScopedStruct
-
-		layout \
-			:styleOld, :ulong,
-			:styleNew, :ulong
-	end
-
-	WM_STYLECHANGING = 0x007c
-	WM_STYLECHANGED = 0x007d
-
-	WM_ENABLE = 0x000a
-
-	#{ WA_xxx
-	WA_INACTIVE = 0
-	WA_ACTIVE = 1
-	WA_CLICKACTIVE = 2
-	#}
-
-	WM_ACTIVATE = 0x0006
-
-	WM_SETFOCUS = 0x0007
-	WM_KILLFOCUS = 0x0008
-
-	#{ SW_xxx
-	SW_PARENTOPENING = 3
-	SW_PARENTCLOSING = 1
-	SW_OTHERZOOM = 2
-	SW_OTHERUNZOOM = 4
-	#}
-
-	WM_SHOWWINDOW = 0x0018
-
-	class MINMAXINFO < FFI::Struct
-		extend Util::ScopedStruct
-
-		layout \
-			:ptReserved, POINT,
-			:ptMaxSize, POINT,
-			:ptMaxPosition, POINT,
-			:ptMinTrackSize, POINT,
-			:ptMaxTrackSize, POINT
-	end
-
-	WM_GETMINMAXINFO = 0x0024
-
-	class WINDOWPOS < FFI::Struct
-		extend Util::ScopedStruct
-
-		layout \
-			:hwnd, :pointer,
-			:hwndInsertAfter, :pointer,
-			:x, :int,
-			:y, :int,
-			:cx, :int,
-			:cy, :int,
-			:flags, :int
-	end
-
-	WM_WINDOWPOSCHANGING = 0x0046
-	WM_WINDOWPOSCHANGED = 0x0047
-
-	WM_MOVING = 0x0216
-	WM_MOVE = 0x0003
-
-	#{ WMSZ_xxx
-	WMSZ_LEFT = 1
-	WMSZ_TOP = 3
-	WMSZ_RIGHT = 2
-	WMSZ_BOTTOM = 6
-	WMSZ_TOPLEFT = 4
-	WMSZ_TOPRIGHT = 5
-	WMSZ_BOTTOMLEFT = 7
-	WMSZ_BOTTOMRIGHT = 8
-	#}
-
-	WM_SIZING = 0x0214
-
-	#{ SIZE_xxx
-	SIZE_MINIMIZED = 1
-	SIZE_MAXIMIZED = 2
-	SIZE_RESTORED = 0
-	SIZE_MAXHIDE = 4
-	SIZE_MAXSHOW = 3
-	#}
-
-	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
-	if WINVER >= WINXP
-		ICON_SMALL2 = 2
-	end
-	#}
-
-	WM_SETICON = 0x0080
-	WM_GETICON = 0x007f
-
-	WM_SETTEXT = 0x000c
-	WM_GETTEXT = 0x000d
-	WM_GETTEXTLENGTH = 0x000e
-
-	WM_SETFONT = 0x0030
-	WM_GETFONT = 0x0031
-
-	WM_ERASEBKGND = 0x0014
-
-	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
-	MK_LBUTTON = 0x0001
-	MK_RBUTTON = 0x0002
-	MK_MBUTTON = 0x0010
-	MK_XBUTTON1 = 0x0020
-	MK_XBUTTON2 = 0x0040
-
-	MK_CONTROL = 0x0008
-	MK_SHIFT = 0x0004
-	#}
-
-	WM_LBUTTONDOWN = 0x0201
-	WM_LBUTTONUP = 0x0202
-	WM_LBUTTONDBLCLK = 0x0203
-
-	WM_RBUTTONDOWN = 0x0204
-	WM_RBUTTONUP = 0x0205
-	WM_RBUTTONDBLCLK = 0x0206
-
-	WM_MBUTTONDOWN = 0x0207
-	WM_MBUTTONUP = 0x0208
-	WM_MBUTTONDBLCLK = 0x0209
-
-	#{ XBUTTONxxx
-	XBUTTON1 = 0x0001
-	XBUTTON2 = 0x0002
-	#}
-
-	WM_XBUTTONDOWN = 0x020b
-	WM_XBUTTONUP = 0x020c
-	WM_XBUTTONDBLCLK = 0x020d
-
-	#{ WHEEL_xxx
-	WHEEL_DELTA = 120
-	#}
-
-	WM_MOUSEWHEEL = 0x020a
-	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
-	WM_INITMENUPOPUP = 0x0117
-
-	WM_USER = 0x0400
-	WM_APP = 0x8000
-
-	#{ SC_xxx
-	SC_DEFAULT = 0xf160
-
-	SC_MOVE = 0xf010
-	SC_SIZE = 0xf000
-	SC_MINIMIZE = 0xf020
-	SC_MAXIMIZE = 0xf030
-	SC_RESTORE = 0xf120
-	SC_CLOSE = 0xf060
-
-	SC_HSCROLL = 0xf080
-	SC_VSCROLL = 0xf070
-
-	SC_NEXTWINDOW = 0xf040
-	SC_PREVWINDOW = 0xf050
-	SC_ARRANGE = 0xf110
-
-	SC_MOUSEMENU = 0xf090
-	SC_KEYMENU = 0xf100
-	SC_HOTKEY = 0xf150
-
-	SC_TASKLIST = 0xf130
-	SC_SCREENSAVE = 0xf140
-	SC_MONITORPOWER = 0xf170
-
-	SC_CONTEXTHELP = 0xf180
-	#}
-
-	(SYSID = {}).
-		instance_variable_set(:@last, 0xf00)
-
-	class << SYSID
-		private :[]=, :store
-
-		def [](key)
-			(id = fetch(key, nil)) ?
-				id :
-				self[key] = (@last -= 1) << 4
-		end
-	end
-
-	WM_SYSCOMMAND = 0x0112
-
-	(ID = {}).
-		instance_variable_set(:@last, WM_APP)
-
-	class << ID
-		private :[]=, :store
-
-		def [](key)
-			(id = fetch(key, nil)) ?
-				id :
-				self[key] = @last += 1
-		end
-	end
-
-	WM_COMMAND = 0x0111
-
-	class NMHDR < FFI::Struct
-		extend Util::ScopedStruct
-
-		layout \
-			:hwndFrom, :pointer,
-			:idFrom, :uint,
-			:code, :uint
-	end
-
-	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
-	#}
-
-	attach_function :SendMessage, :SendMessageW, [
-		:pointer,
-		:uint,
-		:uint,
-		:long
-	], :long
-
-	attach_function :PostMessage, :PostMessageW, [
-		:pointer,
-		:uint,
-		:uint,
-		:long
-	], :int
-
-	attach_function :PostQuitMessage, [
-		:int
-	], :void
-
-	class MSG < FFI::Struct
-		extend Util::ScopedStruct
-
-		layout \
-			:hwnd, :pointer,
-			:message, :uint,
-			:wParam, :uint,
-			:lParam, :long,
-			:time, :ulong,
-			:pt, POINT
-	end
-
-	#{ PM_xxx
-	PM_NOREMOVE = 0x0000
-	PM_REMOVE = 0x0001
-	PM_NOYIELD = 0x0002
-	#}
-
-	attach_function :PeekMessage, :PeekMessageW, [
-		MSG.by_ref(:out),
-		:pointer,
-		:uint,
-		:uint,
-		:uint
-	], :int
-
-	attach_function :GetMessage, :GetMessageW, [
-		MSG.by_ref(:out),
-		:pointer,
-		:uint,
-		:uint
-	], :int
-
-	attach_function :IsDialogMessage, [
-		:pointer,
-		MSG.by_ref(:in)
-	], :int
-
-	attach_function :TranslateAccelerator, :TranslateAcceleratorW, [
-		:pointer,
-		:pointer,
-		MSG.by_ref(:in)
-	], :int
-
-	attach_function :TranslateMessage, [
-		MSG.by_ref(:in)
-	], :int
-
-	attach_function :DispatchMessage, :DispatchMessageW, [
-		MSG.by_ref(:in)
-	], :long
-
-	attach_function :CreateMenu, [
-
-	], :pointer
-
-	attach_function :CreatePopupMenu, [
-
-	], :pointer
-
-	attach_function :DestroyMenu, [
-		:pointer
-	], :int
-
-	#{ MF_xxx
-	MF_BYCOMMAND = 0x00000000
-	MF_BYPOSITION = 0x00000400
-
-	MF_POPUP = 0x00000010
-	MF_STRING = 0x00000000
-	MF_BITMAP = 0x00000004
-	MF_OWNERDRAW = 0x00000100
-	MF_SEPARATOR = 0x00000800
-
-	MF_MENUBARBREAK = 0x00000020
-	MF_MENUBREAK = 0x00000040
-	MF_RIGHTJUSTIFY = 0x00004000
-
-	MF_DEFAULT = 0x00001000
-	MF_ENABLED = 0x00000000
-	MF_DISABLED = 0x00000002
-	MF_GRAYED = 0x00000001
-	MF_CHECKED = 0x00000008
-	MF_UNCHECKED = 0x00000000
-	MF_HILITE = 0x00000080
-	MF_UNHILITE = 0x00000000
-	#}
-
-	#{ MFT_xxx
-	MFT_RADIOCHECK = 0x00000200
-	#}
-
-	#{ MFS_xxx
-	MFS_GRAYED = 0x00000003
-	#}
-
-	attach_function :AppendMenu, :AppendMenuW, [
-		:pointer,
-		:uint,
-		:uint,
-		:buffer_in
-	], :int
-
-	attach_function :InsertMenu, :InsertMenuW, [
-		:pointer,
-		:uint,
-		:uint,
-		:uint,
-		:buffer_in
-	], :int
-
-	attach_function :ModifyMenu, :ModifyMenuW, [
-		:pointer,
-		:uint,
-		:uint,
-		:uint,
-		:buffer_in
-	], :int
-
-	attach_function :GetMenuItemID, [
-		:pointer,
-		:int
-	], :uint
-
-	attach_function :GetSubMenu, [
-		:pointer,
-		:int
-	], :pointer
-
-	attach_function :RemoveMenu, [
-		:pointer,
-		:uint,
-		:uint
-	], :int
-
-	attach_function :DeleteMenu, [
-		:pointer,
-		:uint,
-		:uint
-	], :int
-
-	attach_function :SetMenuDefaultItem, [
-		:pointer,
-		:uint,
-		:uint
-	], :int
-
-	#{ GMDI_xxx
-	GMDI_USEDISABLED = 0x0001
-	GMDI_GOINTOPOPUPS = 0x0002
-	#}
-
-	attach_function :GetMenuDefaultItem, [
-		:pointer,
-		:uint,
-		:uint
-	], :uint
-
-	attach_function :EnableMenuItem, [
-		:pointer,
-		:uint,
-		:uint
-	], :int
-
-	attach_function :CheckMenuItem, [
-		:pointer,
-		:uint,
-		:uint
-	], :ulong
-
-	attach_function :CheckMenuRadioItem, [
-		:pointer,
-		:uint,
-		:uint,
-		:uint,
-		:uint
-	], :int
-
-	attach_function :HiliteMenuItem, [
-		:pointer,
-		:pointer,
-		:uint,
-		:uint
-	], :int
-
-	attach_function :GetMenuState, [
-		:pointer,
-		:uint,
-		:uint
-	], :uint
-
-	#{ MIIM_xxx
-	MIIM_FTYPE = 0x00000100
-	MIIM_STATE = 0x00000001
-	MIIM_ID = 0x00000002
-	MIIM_SUBMENU = 0x00000004
-	MIIM_CHECKMARKS = 0x00000008
-	MIIM_DATA = 0x00000020
-	MIIM_STRING = 0x00000040
-	MIIM_BITMAP = 0x00000080
-	#}
-
-	class MENUITEMINFO < FFI::Struct
-		extend Util::ScopedStruct
-
-		layout \
-			:cbSize, :uint,
-			:fMask, :uint,
-			:fType, :uint,
-			:fState, :uint,
-			:wID, :uint,
-			:hSubMenu, :pointer,
-			:hbmpChecked, :pointer,
-			:hbmpUnchecked, :pointer,
-			:dwItemData, :ulong,
-			:dwTypeData, :pointer,
-			:cch, :uint,
-			:hbmpItem, :pointer
-	end
-
-	attach_function :InsertMenuItem, :InsertMenuItemW, [
-		:pointer,
-		:uint,
-		:int,
-		MENUITEMINFO.by_ref(:in)
-	], :int
-
-	attach_function :SetMenuItemInfo, :SetMenuItemInfoW, [
-		:pointer,
-		:uint,
-		:int,
-		MENUITEMINFO.by_ref(:in)
-	], :int
-
-	attach_function :GetMenuItemInfo, :GetMenuItemInfoW, [
-		:pointer,
-		:uint,
-		:int,
-		MENUITEMINFO.by_ref
-	], :int
-
-	#{ TPM_xxx
-	TPM_LEFTBUTTON = 0x0000
-	TPM_RIGHTBUTTON = 0x0002
-
-	TPM_LEFTALIGN = 0x0000
-	TPM_CENTERALIGN = 0x0004
-	TPM_RIGHTALIGN = 0x0008
-
-	TPM_TOPALIGN = 0x0000
-	TPM_VCENTERALIGN = 0x0010
-	TPM_BOTTOMALIGN = 0x0020
-
-	TPM_HORIZONTAL = 0x0000
-	TPM_VERTICAL = 0x0040
-
-	TPM_NONOTIFY = 0x0080
-	TPM_RETURNCMD = 0x0100
-
-	TPM_RECURSE = 0x0001
-	#}
-
-	attach_function :TrackPopupMenu, [
-		:pointer,
-		:uint,
-		:int,
-		:int,
-		:int,
-		:pointer,
-		RECT.by_ref(:in)
-	], :int
-
-	attach_function :EndMenu, [
-
-	], :int
-
-	#{ Fxxx
-	FVIRTKEY = 1
-	FCONTROL = 0x08
-	FSHIFT = 0x04
-	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
-
-		layout \
-			:fVirt, :uchar,
-			:key, :ushort,
-			:cmd, :ushort
-	end
-
-	attach_function :CreateAcceleratorTable, :CreateAcceleratorTableW, [
-		:pointer,
-		:int
-	], :pointer
-
-	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}"
+require_relative 'ffi-wingui-core/libc'
+require_relative 'ffi-wingui-core/kernel32'
+require_relative 'ffi-wingui-core/gdi32'
+require_relative 'ffi-wingui-core/user32'