ffi-wingui-core 0.1.0

data/lib/ffi-wingui-core.rb

@@ -0,0 +1,1019 @@
+require 'ffi'
+
+module WinGUI
+	extend FFI::Library
+
+	INVALID_HANDLE_VALUE = FFI::Pointer.new(-1)
+
+	def MAKEWORD(low, high)
+		(low & 0xff) | ((high & 0xff) << 8)
+	end
+
+	def LOBYTE(w)
+		w & 0xff
+	end
+
+	def HIBYTE(w)
+		(w >> 8) & 0xff
+	end
+
+	def MAKELONG(low, high)
+		(low & 0xffff) | ((high & 0xffff) << 16)
+	end
+
+	def LOWORD(l)
+		l & 0xffff
+	end
+
+	def HIWORD(l)
+		(l >> 16) & 0xffff
+	end
+
+	module_function \
+		:MAKEWORD, :LOBYTE, :HIBYTE,
+		:MAKELONG, :LOWORD, :HIWORD
+
+	class POINT < FFI::Struct
+		layout \
+			:x, :long,
+			:y, :long
+	end
+
+	class SIZE < FFI::Struct
+		layout \
+			:cx, :long,
+			:cy, :long
+	end
+
+	class RECT < FFI::Struct
+		layout \
+			:left, :long,
+			:top, :long,
+			:right, :long,
+			:bottom, :long
+	end
+
+	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
+		layout \
+			:dwOSVersionInfoSize, :ulong,
+			:dwMajorVersion, :ulong,
+			:dwMinorVersion, :ulong,
+			:dwBuildNumber, :ulong,
+			:dwPlatformId, :ulong,
+			:szCSDVersion, [:char, 128],
+			:wServicePackMajor, :ushort,
+			:wServicePackMinor, :ushort,
+			:wSuiteMask, :ushort,
+			:wProductType, :uchar,
+			:wReserved, :uchar
+	end
+
+	attach_function :GetVersionEx, :GetVersionExA, [
+		:pointer
+	], :int
+
+	VERSION = OSVERSIONINFOEX.new.tap { |ovi|
+		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(VERSION[:wServicePackMinor], VERSION[:wServicePackMajor]),
+		MAKEWORD(VERSION[:dwMinorVersion], VERSION[:dwMajorVersion])
+	)
+
+	#{ WINxxx
+	WIN2K = 0x0500
+	WINXP = 0x0501
+	WINVISTA = 0x0600
+	WIN7 = 0x0601
+	#}
+
+	WINVER = HIWORD(NTDDI_VERSION)
+
+	attach_function :GetModuleHandle, :GetModuleHandleA, [
+		:string
+	], :pointer
+
+	attach_function :LoadLibrary, :LoadLibraryA, [
+		:string
+	], :pointer
+
+	attach_function :FreeLibrary, [
+		:pointer
+	], :int
+
+	if WINVER >= WINXP
+		class ACTCTX < FFI::Struct
+			layout \
+				:cbSize, :ulong,
+				:dwFlags, :ulong,
+				:lpSource, :pointer,
+				:wProcessorArchitecture, :ushort,
+				:wLangId, :ushort,
+				:lpAssemblyDirectory, :pointer,
+				:lpResourceName, :pointer,
+				:lpApplicationName, :pointer,
+				:hModule, :pointer
+		end
+
+		attach_function :CreateActCtx, :CreateActCtxA, [
+			:pointer
+		], :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']}/Microsoft.Windows.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
+		}
+
+		ac = ACTCTX.new
+
+		ac[:cbSize] = ac.size
+		ac[:lpSource] = source = FFI::MemoryPointer.from_string(
+			File.expand_path(manifest)
+		)
+
+		COMMON_CONTROLS_ACTCTX[:handle] =
+			DetonateLastError(INVALID_HANDLE_VALUE, :CreateActCtx,
+				ac
+			) { source.free }
+
+		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
+
+	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
+
+	class LOGFONT < FFI::Struct
+		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, [:char, 32]
+	end
+
+	attach_function :CreateFontIndirect, :CreateFontIndirectA, [
+		:pointer
+	], :pointer
+
+	attach_function :DeleteObject, [
+		:pointer
+	], :int
+
+	attach_function :SelectObject, [
+		:pointer,
+		:pointer
+	], :pointer
+
+	attach_function :SetBkColor, [
+		:pointer,
+		:ulong
+	], :ulong
+
+	attach_function :GetBkColor, [
+		:pointer
+	], :ulong
+
+	attach_function :SetTextColor, [
+		:pointer,
+		:ulong
+	], :ulong
+
+	attach_function :GetTextColor, [
+		:pointer
+	], :ulong
+
+	attach_function :MoveToEx, [
+		:pointer,
+		:int,
+		:int,
+		:pointer
+	], :int
+
+	attach_function :LineTo, [
+		:pointer,
+		:int,
+		:int
+	], :int
+
+	ffi_lib 'user32'
+	ffi_convention :stdcall
+
+	#{ 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
+	#}
+
+	attach_function :MessageBox, :MessageBoxA, [
+		:pointer,
+		:string,
+		:string,
+		:uint
+	], :int
+
+	#{ 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, :DefWindowProcA, [
+		:pointer,
+		:uint,
+		:uint,
+		:long
+	], :long
+
+	#{ IDI_xxx
+	IDI_APPLICATION = FFI::Pointer.new(32512)
+	#}
+
+	attach_function :LoadIcon, :LoadIconA, [
+		:pointer,
+		:pointer
+	], :pointer
+
+	#{ IDC_xxx
+	IDC_ARROW = FFI::Pointer.new(32512)
+	IDC_WAIT = FFI::Pointer.new(32514)
+	IDC_APPSTARTING = FFI::Pointer.new(32650)
+	IDC_HAND = FFI::Pointer.new(32649)
+	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, :LoadCursorA, [
+		:pointer,
+		:pointer
+	], :pointer
+
+	#{ COLOR/CTLCOLOR_xxx
+	COLOR_DESKTOP = 1
+	COLOR_APPWORKSPACE = 12
+	COLOR_WINDOW = 5
+	CTLCOLOR_DLG = 4
+	#}
+
+	class WNDCLASSEX < FFI::Struct
+		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, :RegisterClassExA, [
+		:pointer
+	], :ushort
+
+	attach_function :UnregisterClass, :UnregisterClassA, [
+		:pointer,
+		:pointer
+	], :int
+
+	attach_function :GetClassInfoEx, :GetClassInfoExA, [
+		:pointer,
+		:pointer,
+		:pointer
+	], :int
+
+	#{ 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_CLIPSIBLINGS = 0x04000000
+	WS_GROUP = 0x00020000
+	WS_TABSTOP = 0x00010000
+
+	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, :CreateWindowExA, [
+		:ulong,
+		:string,
+		:string,
+		: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, :SetClassLongA, [
+		:pointer,
+		:int,
+		:long
+	], :ulong
+
+	attach_function :GetClassLong, :GetClassLongA, [
+		:pointer,
+		:int
+	], :ulong
+
+	attach_function :GetClassName, :GetClassNameA, [
+		:pointer,
+		:pointer,
+		:int
+	], :int
+
+	#{ GWL_xxx
+	GWL_EXSTYLE = -20
+	GWL_STYLE = -16
+	GWL_HWNDPARENT = -8
+	GWL_ID = -12
+	GWL_HINSTANCE = -6
+	GWL_USERDATA = -21
+	GWL_WNDPROC = -4
+	#}
+
+	attach_function :SetWindowLong, :SetWindowLongA, [
+		:pointer,
+		:int,
+		:long
+	], :long
+
+	attach_function :GetWindowLong, :GetWindowLongA, [
+		:pointer,
+		:int
+	], :long
+
+	attach_function :IsWindowEnabled, [
+		:pointer
+	], :int
+
+	attach_function :EnableWindow, [
+		:pointer,
+		:int
+	], :int
+
+	attach_function :IsWindowVisible, [
+		:pointer
+	], :int
+
+	#{ SW_xxx
+	SW_HIDE = 0
+	SW_SHOW = 5
+	SW_SHOWNA = 8
+	SW_SHOWNORMAL = 1
+	SW_SHOWNOACTIVATE = 4
+	SW_SHOWMINIMIZED = 2
+	SW_SHOWMINNOACTIVE = 7
+	SW_SHOWMAXIMIZED = 3
+	SW_RESTORE = 9
+	#}
+
+	attach_function :ShowWindow, [
+		:pointer,
+		:int
+	], :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_NOSIZE = 0x0001
+	SWP_NOMOVE = 0x0002
+	SWP_NOZORDER = 0x0004
+	SWP_NOREDRAW = 0x0008
+	SWP_NOACTIVATE = 0x0010
+	SWP_FRAMECHANGED = 0x0020
+	SWP_SHOWWINDOW = 0x0040
+	SWP_HIDEWINDOW = 0x0080
+	SWP_NOCOPYBITS = 0x0100
+	SWP_NOOWNERZORDER = 0x0200
+	SWP_NOSENDCHANGING = 0x0400
+	SWP_DRAWFRAME = SWP_FRAMECHANGED
+	SWP_NOREPOSITION = SWP_NOOWNERZORDER
+	SWP_DEFERERASE = 0x2000
+	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
+
+	attach_function :GetWindowRect, [
+		:pointer,
+		:pointer
+	], :int
+
+	attach_function :GetClientRect, [
+		:pointer,
+		:pointer
+	], :int
+
+	attach_function :GetCursorPos, [
+		:pointer
+	], :int
+
+	attach_function :ScreenToClient, [
+		:pointer,
+		:pointer
+	], :int
+
+	attach_function :ClientToScreen, [
+		:pointer,
+		:pointer
+	], :int
+
+	attach_function :InvalidateRect, [
+		:pointer,
+		:pointer,
+		:int
+	], :int
+
+	attach_function :UpdateWindow, [
+		:pointer
+	], :int
+
+	class PAINTSTRUCT < FFI::Struct
+		layout \
+			:hdc, :pointer,
+			:fErase, :int,
+			:rcPaint, RECT,
+			:fRestore, :int,
+			:fIncUpdate, :int,
+			:rgbReserved, [:uchar, 32]
+	end
+
+	attach_function :BeginPaint, [
+		:pointer,
+		:pointer
+	], :pointer
+
+	attach_function :EndPaint, [
+		:pointer,
+		:pointer
+	], :int
+
+	attach_function :SetMenu, [
+		:pointer,
+		:pointer
+	], :int
+
+	attach_function :GetMenu, [
+		:pointer
+	], :pointer
+
+	attach_function :DrawMenuBar, [
+		:pointer
+	], :int
+
+	attach_function :GetDlgItem, [
+		:pointer,
+		:int
+	], :pointer
+
+	#{ HWND_xxx
+	HWND_BROADCAST = FFI::Pointer.new(0xffff)
+	#}
+
+	#{ WM_xxx
+	class CREATESTRUCT < FFI::Struct
+		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_SETFONT = 0x0030
+	WM_GETFONT = 0x0031
+
+	WM_PAINT = 0x000F
+
+	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
+	WM_MOUSEMOVE = 0x0200
+
+	WM_COMMAND = 0x0111
+
+	class NMHDR < FFI::Struct
+		layout \
+			:hwndFrom, :pointer,
+			:idFrom, :uint,
+			:code, :uint
+	end
+
+	WM_NOTIFY = 0x004E
+
+	WM_APP = 0x8000
+	#}
+
+	attach_function :SendMessage, :SendMessageA, [
+		:pointer,
+		:uint,
+		:uint,
+		:long
+	], :long
+
+	attach_function :PostMessage, :PostMessageA, [
+		:pointer,
+		:uint,
+		:uint,
+		:long
+	], :int
+
+	class MSG < FFI::Struct
+		layout \
+			:hwnd, :pointer,
+			:message, :uint,
+			:wParam, :uint,
+			:lParam, :long,
+			:time, :ulong,
+			:pt, POINT
+	end
+
+	attach_function :GetMessage, :GetMessageA, [
+		:pointer,
+		:pointer,
+		:uint,
+		:uint
+	], :int
+
+	attach_function :IsDialogMessage, [
+		:pointer,
+		:pointer
+	], :int
+
+	attach_function :TranslateAccelerator, :TranslateAcceleratorA, [
+		:pointer,
+		:pointer,
+		:pointer
+	], :int
+
+	attach_function :TranslateMessage, [
+		:pointer
+	], :int
+
+	attach_function :DispatchMessage, :DispatchMessageA, [
+		:pointer
+	], :long
+
+	attach_function :PostQuitMessage, [
+		:int
+	], :void
+
+	attach_function :CreateMenu, [
+
+	], :pointer
+
+	attach_function :CreatePopupMenu, [
+
+	], :pointer
+
+	attach_function :DestroyMenu, [
+		:pointer
+	], :int
+
+	#{ MF/MFT_xxx
+	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_ENABLED = 0x00000000
+	MF_DISABLED = 0x00000002
+	MF_GRAYED = 0x00000001
+	MF_CHECKED = 0x00000008
+	MFT_RADIOCHECK = 0x00000200
+	MF_UNCHECKED = 0x00000000
+	MF_HILITE = 0x00000080
+	MF_UNHILITE = 0x00000000
+	#}
+
+	attach_function :AppendMenu, :AppendMenuA, [
+		:pointer,
+		:uint,
+		:uint,
+		:string
+	], :int
+
+	#{ MF_xxx
+	MF_BYCOMMAND = 0x00000000
+	MF_BYPOSITION = 0x00000400
+	#}
+
+	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
+
+	#{ Fxxx
+	FVIRTKEY = 1
+	FCONTROL = 0x08
+	FSHIFT = 0x04
+	FALT = 0x10
+	#}
+
+	class ACCEL < FFI::Struct
+		layout \
+			:fVirt, :uchar,
+			:key, :ushort,
+			:cmd, :ushort
+	end
+
+	attach_function :CreateAcceleratorTable, :CreateAcceleratorTableA, [
+		:pointer,
+		:int
+	], :pointer
+
+	attach_function :DestroyAcceleratorTable, [
+		:pointer
+	], :int
+
+	#{ SPI_xxx
+	class NONCLIENTMETRICS < FFI::Struct
+		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, :SystemParametersInfoA, [
+		:uint,
+		:uint,
+		:pointer,
+		:uint
+	], :int
+end