win-ffi 0.3.0

data/lib/win-ffi/functions/shell32/icon.rb

@@ -0,0 +1,49 @@
+module WinFFI
+  module Shell32
+    #HICON WINAPI DuplicateIcon(
+    #  _Reserved_  HINSTANCE hInst,
+    #  _In_        HICON hIcon )
+    attach_function 'DuplicateIcon', [:hinstance, :hicon], :hicon
+
+    #HICON WINAPI ExtractAssociatedIcon(
+    #  _Reserved_  HINSTANCE hInst,
+    #  _Inout_     LPTSTR lpIconPath,
+    #  _Inout_     WORD *lpiIcon )
+    attach_function 'ExtractAssociatedIconA', [:hinstance, :string, :pointer], :hicon
+    attach_function 'ExtractAssociatedIconW', [:hinstance, :string, :pointer], :hicon
+
+    #HICON WINAPI ExtractIcon(
+    #  _Reserved_  HINSTANCE hInst,
+    #  _In_        LPCTSTR lpszExeFileName,
+    #  _In_        UINT nIconIndex )
+    attach_function 'ExtractIconA', [:hinstance, :string, :uint], :hicon
+    attach_function 'ExtractIconW', [:hinstance, :string, :uint], :hicon
+
+    #UINT WINAPI ExtractIconEx(
+    #  _In_       LPCTSTR lpszFile,
+    #  _In_       int nIconIndex,
+    #  _Out_opt_  HICON *phiconLarge,
+    #  _Out_opt_  HICON *phiconSmall,
+    #  _In_       UINT nIcons )
+    attach_function 'ExtractIconExA', [:string, :int, :pointer, :pointer, :uint], :uint
+    attach_function 'ExtractIconExW', [:string, :int, :pointer, :pointer, :uint], :uint
+
+    begin
+      require 'win-ffi/enums/lr'
+
+      #[This function is not intended for general use. It may be altered or unavailable in subsequent versions of Windows.]
+      #UINT WINAPI PrivateExtractIcons(
+      #  _In_       LPCTSTR lpszFile,
+      #  _In_       int nIconIndex,
+      #  _In_       int cxIcon,
+      #  _In_       int cyIcon,
+      #  _Out_opt_  HICON *phicon,
+      #  _Out_opt_  UINT *piconid,
+      #  _In_       UINT nIcons,
+      #  _In_       UINT flags )
+      attach_function 'PrivateExtractIconsA', [:string, :int, :int, :int, :hicon, :pointer, :uint, LR], :uint
+      attach_function 'PrivateExtractIconsW', [:string, :int, :int, :int, :hicon, :pointer, :uint, LR], :uint
+    rescue FFI::NotFoundError
+    end
+  end
+end

data/lib/win-ffi/functions/shutdown.rb

@@ -0,0 +1,84 @@
+module WinFFI
+  module Shutdown
+    extend LibBase
+
+    ffi_lib 'Advapi32'
+
+    #BOOL WINAPI AbortSystemShutdown( _In_opt_  LPTSTR lpMachineName )
+    attach_function 'AbortSystemShutdownA', [:buffer_in], :bool
+    attach_function 'AbortSystemShutdownW', [:buffer_in], :bool
+
+    begin
+      #DWORD WINAPI InitiateShutdown(
+      #  _In_opt_  LPTSTR lpMachineName,
+      #  _In_opt_  LPTSTR lpMessage,
+      #  _In_      DWORD dwGracePeriod,
+      #  _In_      DWORD dwShutdownFlags,
+      #  _In_      DWORD dwReason )
+      attach_function 'InitiateShutdownA', [:buffer_in, :buffer_in, :dword, :dowrd, :dword], :dword
+      attach_function 'InitiateShutdownW', [:buffer_in, :buffer_in, :dword, :dowrd, :dword], :dword
+    rescue FFI::NotFoundError
+      # Windows Vista or later
+    end
+
+    begin
+      #BOOL WINAPI InitiateSystemShutdown(
+      #  _In_opt_  LPTSTR lpMachineName,
+      #  _In_opt_  LPTSTR lpMessage,
+      #  _In_      DWORD dwTimeout,
+      #  _In_      BOOL bForceAppsClosed,
+      #  _In_      BOOL bRebootAfterShutdown )
+      attach_function 'InitiateSystemShutdownA', [:buffer_in, :buffer_in, :dword, :bool, :bool], :bool
+      attach_function 'InitiateSystemShutdownA', [:buffer_in, :buffer_in, :dword, :bool, :bool], :bool
+
+      #BOOL WINAPI InitiateSystemShutdownEx(
+      #  _In_opt_  LPTSTR lpMachineName,
+      #  _In_opt_  LPTSTR lpMessage,
+      #  _In_      DWORD dwTimeout,
+      #  _In_      BOOL bForceAppsClosed,
+      #  _In_      BOOL bRebootAfterShutdown,
+      #  _In_      DWORD dwReason )
+      attach_function 'InitiateSystemShutdownExA', [:buffer_in, :buffer_in, :dword, :bool, :bool, :dword], :bool
+      attach_function 'InitiateSystemShutdownExW', [:buffer_in, :buffer_in, :dword, :bool, :bool, :dword], :bool
+    rescue FFI::NotFoundError
+      # Windows XP or later
+    end
+
+    ffi_lib 'user32'
+
+    begin
+
+      #BOOL WINAPI ExitWindowsEx(
+      #  _In_  UINT uFlags,
+      #  _In_  DWORD dwReason )
+      attach_function 'ExitWindowsEx', [:uint, :dword], :bool
+
+      #BOOL WINAPI LockWorkStation(void)
+      attach_function 'LockWorkStation', [], :bool
+
+    rescue FFI::NotFoundError
+      # Windows XP or later
+    end
+
+    begin
+
+      #BOOL WINAPI ShutdownBlockReasonCreate(
+      #  _In_  HWND hWnd,
+      #  _In_  LPCWSTR pwszReason )
+      attach_function 'ShutdownBlockReasonCreate', [:hwnd, :buffer_in], :bool
+
+      #BOOL WINAPI ShutdownBlockReasonDestroy( _In_  HWND hWnd )
+      attach_function 'ShutdownBlockReasonDestroy', [:hwnd], :bool
+
+      #BOOL WINAPI ShutdownBlockReasonQuery(
+      #  _In_       HWND hWnd,
+      #  _Out_opt_  LPWSTR pwszBuff,
+      #  _Inout_    DWORD *pcchBuff )
+      attach_function 'ShutdownBlockReasonQuery', [:hwnd , :buffer_out, :buffer_inout], :bool
+
+    rescue
+      # Window Vista or later
+    end
+
+  end
+end

data/lib/win-ffi/functions/thread.rb

@@ -0,0 +1,230 @@
+module WinFFI
+  module Thread
+    extend LibBase
+
+    SYNCHRONIZE                 = 0x00100000
+    THREAD_ALL_ACCESS           = 0x1F03FF
+    THREAD_DIRECT_IMPERSONATION = 0x0200
+    THREAD_GET_CONTEXT          = 0x0008
+    THREAD_IMPERSONATE          = 0x0100
+    THREAD_QUERY_INFORMATION    = 0x0040
+    THREAD_SET_CONTEXT          = 0x0010
+    THREAD_SET_INFORMATION      = 0x0020
+    THREAD_SET_THREAD_TOKEN     = 0x0080
+    THREAD_SUSPEND_RESUME       = 0x0002
+    THREAD_TERMINATE            = 0x0001
+
+    THREAD_PRIORITY_ABOVE_NORMAL  = 1
+    THREAD_PRIORITY_BELOW_NORMAL  = -1
+    THREAD_PRIORITY_HIGHEST       = 2
+    THREAD_PRIORITY_IDLE          = -15
+    THREAD_PRIORITY_LOWEST        = -2
+    THREAD_PRIORITY_NORMAL        = 0
+    THREAD_PRIORITY_TIME_CRITICAL = 15
+
+    if WindowsVersion >= 7
+
+      ffi_lib 'Avrt'
+
+      #BOOL WINAPI AvRevertMmThreadCharacteristics( _In_  HANDLE AvrtHandle )
+      attach_function 'AvRevertMmThreadCharacteristics', [:handle], :bool
+
+      #BOOL WINAPI AvRtCreateThreadOrderingGroup(
+      #  _Out_     PHANDLE Context,
+      #  _In_      PLARGE_INTEGER Period,
+      #  _Inout_   GUID *ThreadOrderingGuid,
+      #  _In_opt_  PLARGE_INTEGER Timeout )
+      attach_function 'AvRtCreateThreadOrderingGroup', [:pointer, :pointer, :pointer, :pointer], :bool
+
+      #BOOL WINAPI AvRtCreateThreadOrderingGroupEx(
+      #  _Out_     PHANDLE Context,
+      #  _In_      PLARGE_INTEGER Period,
+      #  _Inout_   GUID *ThreadOrderingGuid,
+      #  _In_opt_  PLARGE_INTEGER Timeout,
+      #  _In_      LPCTSTR TaskName )
+      attach_function 'AvRtCreateThreadOrderingGroupExA', [:pointer, :pointer, :pointer, :pointer, :string], :bool
+      attach_function 'AvRtCreateThreadOrderingGroupExW', [:pointer, :pointer, :pointer, :pointer, :string], :bool
+
+      #BOOL WINAPI AvRtDeleteThreadOrderingGroup( _In_  HANDLE Context )
+      attach_function 'AvRtDeleteThreadOrderingGroup', [:handle], :bool
+
+      #BOOL WINAPI AvRtJoinThreadOrderingGroup(
+      #  _Out_  PHANDLE Context,
+      #  _In_   GUID *ThreadOrderingGuid,
+      #  _In_   BOOL Before )
+      attach_function 'AvRtJoinThreadOrderingGroup', [:pointer, :pointer, :bool], :bool
+
+      #BOOL WINAPI AvRtWaitOnThreadOrderingGroup( _In_  HANDLE Context )
+      attach_function 'AvRtWaitOnThreadOrderingGroup', [:handle], :bool
+
+      #HANDLE WINAPI AvSetMmMaxThreadCharacteristics(
+      #  _In_     LPCTSTR FirstTask,
+      #  _In_     LPCTSTR SecondTask,
+      #  _Inout_  LPDWORD TaskIndex )
+      attach_function 'AvSetMmMaxThreadCharacteristicsA', [:string, :string, :pointer], :handle
+      attach_function 'AvSetMmMaxThreadCharacteristicsW', [:string, :string, :pointer], :handle
+
+      #HANDLE WINAPI AvSetMmThreadCharacteristics(
+      #  _In_     LPCTSTR TaskName,
+      #  _Inout_  LPDWORD TaskIndex )
+      attach_function 'AvSetMmThreadCharacteristicsA', [:string, :pointer], :handle
+      attach_function 'AvSetMmThreadCharacteristicsW', [:string, :pointer], :handle
+
+      #BOOL WINAPI AvSetMmThreadPriority(
+      #  _In_  HANDLE AvrtHandle,
+      #  _In_  AVRT_PRIORITY Priority )
+      attach_function 'AvSetMmThreadPriority', [:handle, :int], :bool
+
+    end
+
+    ffi_lib 'kernel32'
+
+    #HANDLE WINAPI CreateRemoteThread(
+    #  _In_   HANDLE hProcess,
+    #  _In_   LPSECURITY_ATTRIBUTES lpThreadAttributes,
+    #  _In_   SIZE_T dwStackSize,
+    #  _In_   LPTHREAD_START_ROUTINE lpStartAddress,
+    #  _In_   LPVOID lpParameter,
+    #  _In_   DWORD dwCreationFlags,
+    #  _Out_  LPDWORD lpThreadId )
+    attach_function 'CreateRemoteThread', [:handle, :pointer, :size_t, :pointer, :pointer, :dword, :pointer], :handle
+
+    #HANDLE WINAPI CreateThread(
+    #  _In_opt_   LPSECURITY_ATTRIBUTES lpThreadAttributes,
+    #  _In_       SIZE_T dwStackSize,
+    #  _In_       LPTHREAD_START_ROUTINE lpStartAddress,
+    #  _In_opt_   LPVOID lpParameter,
+    #  _In_       DWORD dwCreationFlags,
+    #  _Out_opt_  LPDWORD lpThreadId )
+    attach_function 'CreateThread', [:pointer, :size_t, :pointer, :pointer, :dword, :pointer], :handle
+
+    #VOID WINAPI ExitThread( _In_  DWORD dwExitCode )
+    attach_function 'ExitThread', [:dword], :void
+
+    #HANDLE WINAPI GetCurrentThread(void)
+    attach_function 'GetCurrentThread', [], :handle
+
+    #DWORD WINAPI GetCurrentThreadId(void)
+    attach_function 'GetCurrentThreadId', [], :ulong
+
+    #BOOL WINAPI GetExitCodeThread(
+    #  _In_   HANDLE hThread,
+    #  _Out_  LPDWORD lpExitCode )
+    attach_function 'GetExitCodeThread', [:handle, :pointer], :bool
+
+    #int WINAPI GetThreadPriority( _In_  HANDLE hThread )
+    attach_function 'GetThreadPriority', [:handle], :int
+
+    #BOOL WINAPI GetThreadPriorityBoost(
+    #  _In_   HANDLE hThread,
+    #  _Out_  PBOOL pDisablePriorityBoost )
+    attach_function 'GetThreadPriorityBoost', [:pointer, :pointer], :bool
+
+    #BOOL WINAPI GetThreadTimes(
+    #  _In_   HANDLE hThread,
+    #  _Out_  LPFILETIME lpCreationTime,
+    #  _Out_  LPFILETIME lpExitTime,
+    #  _Out_  LPFILETIME lpKernelTime,
+    #  _Out_  LPFILETIME lpUserTime )
+    attach_function 'GetThreadTimes', [:handle, :pointer, :pointer, :pointer, :pointer], :bool
+
+    #HANDLE WINAPI OpenThread(
+    #  _In_  DWORD dwDesiredAccess,
+    #  _In_  BOOL bInheritHandle,
+    #  _In_  DWORD dwThreadId )
+    attach_function 'OpenThread', [:dword, :bool, :dword], :handle
+
+    #DWORD WINAPI ResumeThread( _In_  HANDLE hThread )
+    attach_function 'ResumeThread', [:handle], :dword
+
+    #DWORD_PTR WINAPI SetThreadAffinityMask(
+    #  _In_  HANDLE hThread,
+    #  _In_  DWORD_PTR dwThreadAffinityMask )
+    attach_function 'SetThreadAffinityMask', [:handle, :pointer], :ulong
+
+    #DWORD WINAPI SetThreadIdealProcessor(
+    #  _In_  HANDLE hThread,
+    #  _In_  DWORD dwIdealProcessor )
+    attach_function 'SetThreadIdealProcessor', [:handle, :dword], :dword
+
+    #BOOL WINAPI SetThreadPriority(
+    #  _In_  HANDLE hThread,
+    #  _In_  int nPriority )
+    attach_function 'SetThreadPriority', [:handle, :int], :bool
+
+    #BOOL WINAPI SetThreadPriorityBoost(
+    #  _In_  HANDLE hThread,
+    #  _In_  BOOL DisablePriorityBoost )
+    attach_function 'SetThreadPriorityBoost', [:handle, :bool], :bool
+
+    #VOID WINAPI Sleep( _In_  DWORD dwMilliseconds )
+    attach_function 'Sleep', [:dword], :void
+
+    #DWORD WINAPI SleepEx(
+    #  _In_  DWORD dwMilliseconds,
+    #  _In_  BOOL bAlertable )
+    attach_function 'SleepEx', [:dword, :bool], :dword
+
+    #DWORD WINAPI SuspendThread( _In_  HANDLE hThread )
+    attach_function 'SuspendThread', [:handle], :dword
+
+    #BOOL WINAPI SwitchToThread(void)
+    attach_function 'SwitchToThread', [], :bool
+
+    #BOOL WINAPI TerminateThread(
+    #  _Inout_  HANDLE hThread,
+    #  _In_     DWORD dwExitCode )
+    attach_function 'TerminateThread', [:handle, :dword], :bool
+
+    #DWORD WINAPI TlsAlloc(void)
+    attach_function 'TlsAlloc', [], :dword
+
+    #BOOL WINAPI TlsFree( _In_  DWORD dwTlsIndex )
+    attach_function 'TlsFree', [:dword], :bool
+
+    #LPVOID WINAPI TlsGetValue( _In_  DWORD dwTlsIndex )
+    attach_function 'TlsGetValue', [:dword], :pointer
+
+    #BOOL WINAPI TlsSetValue(
+    #  _In_      DWORD dwTlsIndex,
+    #  _In_opt_  LPVOID lpTlsValue )
+    attach_function 'TlsSetValue', [:dword, :pointer], :bool
+
+    if WindowsVersion >= 7
+
+      #HANDLE CreateRemoteThreadEx(
+      #  _In_       HANDLE hProcess,
+      #  _In_opt_   LPSECURITY_ATTRIBUTES lpThreadAttributes,
+      #  _In_       SIZE_T dwStackSize,
+      #  _In_       LPTHREAD_START_ROUTINE lpStartAddress,
+      #  _In_opt_   LPVOID lpParameter,
+      #  _In_       DWORD dwCreationFlags,
+      #  _In_opt_   LPPROC_THREAD_ATTRIBUTE_LIST lpAttributeList,
+      #  _Out_opt_  LPDWORD lpThreadId )
+      attach_function 'CreateRemoteThreadEx', [:handle, :pointer, :size_t, :pointer, :pointer, :dword, :pointer, :pointer], :bool
+    end
+
+    if WindowsVersion >= :xp
+
+      ffi_lib 'user32'
+
+      #BOOL WINAPI AttachThreadInput(
+      #  _In_  DWORD idAttach,
+      #  _In_  DWORD idAttachTo,
+      #  _In_  BOOL fAttach )
+      attach_function 'AttachThreadInput', [:dword, :dword, :bool], :bool
+
+      if WindowsVersion.sp >= 1
+
+        ffi_lib 'kernel32'
+
+        #BOOL WINAPI GetThreadIOPendingFlag(
+        #  _In_     HANDLE hThread,
+        #  _Inout_  PBOOL lpIOIsPending )
+        attach_function 'GetThreadIOPendingFlag', [:ulong, :pointer], :bool
+
+      end
+
+    end
+  end
+end

data/lib/win-ffi/functions/user32/accessibility.rb

@@ -0,0 +1,23 @@
+require 'win-ffi/functions/user32'
+
+require 'win-ffi/enums/user32/pointer_input_type'
+
+module WinFFI
+  module User32
+    #BOOL WINAPI RegisterPointerInputTarget(
+    #  _In_  HWND hwnd,
+    #  _In_  POINTER_INPUT_TYPE  pointerType )
+    attach_function 'RegisterPointerInputTarget', [:hwnd, PointerInputType], :bool
+
+    #TODO
+    #LRESULT CALLBACK SoundSentryProc(
+    #  DWORD dwMillisec,
+    #  DWORD fdwEffect )
+
+
+    #BOOL WINAPI UnregisterPointerInputTarget(
+    #  _In_  HWND hwnd,
+    #  _In_  POINTER_INPUT_TYPE  pointerType )
+    attach_function 'UnregisterPointerInputTarget', [:hwnd, PointerInputType], :bool
+  end
+end

data/lib/win-ffi/functions/user32/authorization.rb

@@ -0,0 +1,19 @@
+require 'win-ffi/functions/user32'
+
+module WinFFI
+  module User32
+    #BOOL WINAPI GetUserObjectSecurity(
+    #  _In_         HANDLE hObj,
+    #  _In_         PSECURITY_INFORMATION pSIRequested,
+    #  _Inout_opt_  PSECURITY_DESCRIPTOR pSD,
+    #  _In_         DWORD nLength,
+    #  _Out_        LPDWORD lpnLengthNeeded )
+    attach_function 'GetUserObjectSecurity', [:handle, :pointer, :pointer, :dword, :pointer], :bool
+
+    #BOOL WINAPI SetUserObjectSecurity(
+    #  _In_  HANDLE hObj,
+    #  _In_  PSECURITY_INFORMATION pSIRequested,
+    #  _In_  PSECURITY_DESCRIPTOR pSID )
+    attach_function 'SetUserObjectSecurity', [:handle, :pointer, :pointer], :bool
+  end
+end

data/lib/win-ffi/functions/user32/bitmap.rb

@@ -0,0 +1,11 @@
+require 'win-ffi/functions/user32'
+
+module WinFFI
+  module User32
+    #HBITMAP LoadBitmap(
+    #  _In_  HINSTANCE hInstance,
+    #  _In_  LPCTSTR lpBitmapName )
+    attach_function 'LoadBitmapA', [:hinstance, :string], :hbitmap
+    attach_function 'LoadBitmapW', [:hinstance, :string], :hbitmap
+  end
+end

data/lib/win-ffi/functions/user32/brush.rb

@@ -0,0 +1,10 @@
+require 'win-ffi/functions/user32'
+
+require 'win-ffi/enums/color_types'
+
+module WinFFI
+  module User32
+    # HBRUSH GetSysColorBrush( _In_  int nIndex )
+    attach_function 'GetSysColorBrush', [ColorTypes], :int
+  end
+end

data/lib/win-ffi/functions/user32/caret.rb

@@ -0,0 +1,36 @@
+require 'win-ffi/functions/user32'
+
+module WinFFI
+  module User32
+    #BOOL WINAPI CreateCaret(
+    #  _In_      HWND hWnd,
+    #  _In_opt_  HBITMAP hBitmap,
+    #  _In_      int nWidth,
+    #  _In_      int nHeight )
+    attach_function 'CreateCaret', [:hwnd, :hbitmap, :int, :int], :bool
+
+    #BOOL WINAPI DestroyCaret(void)
+    attach_function 'DestroyCaret', [], :bool
+
+    #UINT WINAPI GetCaretBlinkTime(void)
+    attach_function 'GetCaretBlinkTime', [], :uint
+
+    #BOOL WINAPI GetCaretPos( _Out_  LPPOINT lpPoint )
+    attach_function 'GetCaretPos', [POINT.ptr], :bool
+
+    #BOOL WINAPI HideCaret( _In_opt_  HWND hWnd )
+    attach_function 'HideCaret', [:hwnd], :bool
+
+    #BOOL WINAPI SetCaretBlinkTime( _In_  UINT uMSeconds )
+    attach_function 'SetCaretBlinkTime', [:uint], :bool
+
+    #BOOL WINAPI SetCaretPos(
+    #  _In_  int X,
+    #  _In_  int Y )
+    attach_function 'SetCaretPos', [:int, :int], :bool
+
+    #BOOL WINAPI ShowCaret( _In_opt_  HWND hWnd )
+    attach_function 'ShowCaret', [:hwnd], :bool
+
+  end
+end

data/lib/win-ffi/functions/user32/clipboard.rb

@@ -0,0 +1,84 @@
+require 'win-ffi/functions/user32'
+
+require 'win-ffi/enums/user32/clipboard_formats'
+
+module WinFFI
+  module User32
+
+    #BOOL WINAPI ChangeClipboardChain(
+    #  _In_  HWND hWndRemove,
+    #  _In_  HWND hWndNewNext )
+    attach_function 'ChangeClipboardChain', [:hwnd, :hwnd], :bool
+
+    #BOOL WINAPI CloseClipboard(void)
+    attach_function 'CloseClipboard', [], :bool
+
+    #int WINAPI CountClipboardFormats(void)
+    attach_function 'CountClipboardFormats', [], :int
+
+    #BOOL WINAPI EmptyClipboard(void)
+    attach_function 'EmptyClipboard', [:bool], :void
+
+    #UINT WINAPI EnumClipboardFormats( _In_  UINT format )
+    attach_function 'EnumClipboardFormats', [:uint], :uint
+
+    #HANDLE WINAPI GetClipboardData( _In_  UINT uFormat )
+    attach_function 'GetClipboardData', [:uint], :handle
+
+    #int WINAPI GetClipboardFormatName(
+    #  _In_   UINT format,
+    #  _Out_  LPTSTR lpszFormatName,
+    #  _In_   int cchMaxCount )
+    attach_function 'GetClipboardFormatNameA', [:uint, :string, :int], :int
+    attach_function 'GetClipboardFormatNameW', [:uint, :string, :int], :int
+
+    #HWND WINAPI GetClipboardOwner(void)
+    attach_function 'GetClipboardOwner',[], :hwnd
+
+    #DWORD WINAPI GetClipboardSequenceNumber(void)
+    attach_function 'GetClipboardSequenceNumber', [], :dword
+
+    #HWND WINAPI GetClipboardViewer(void)
+    attach_function 'GetClipboardViewer', [], :hwnd
+
+    #HWND WINAPI GetOpenClipboardWindow(void)
+    attach_function 'GetOpenClipboardWindow', [], :hwnd
+
+    #int WINAPI GetPriorityClipboardFormat(
+    #  _In_  UINT *paFormatPriorityList,
+    #  _In_  int cFormats )
+    attach_function 'GetPriorityClipboardFormat', [ClipboardFormats, :int], :int
+
+    #BOOL WINAPI IsClipboardFormatAvailable( _In_  UINT format )
+    attach_function 'IsClipboardFormatAvailable', [:uint], :bool
+
+    #BOOL WINAPI OpenClipboard( _In_opt_  HWND hWndNewOwner )
+    attach_function 'OpenClipboard', [:hwnd], :bool
+
+    #UINT WINAPI RegisterClipboardFormat( _In_  LPCTSTR lpszFormat )
+    attach_function 'RegisterClipboardFormatA', [:string], :uint
+    attach_function 'RegisterClipboardFormatW', [:string], :uint
+
+    #HANDLE WINAPI SetClipboardData(
+    #  _In_      UINT uFormat,
+    #  _In_opt_  HANDLE hMem )
+    attach_function 'SetClipboardData', [:uint, :handle], :handle
+
+    #HWND WINAPI SetClipboardViewer( _In_  HWND hWndNewViewer )
+    attach_function 'SetClipboardViewer', [:hwnd], :hwnd
+
+    if WindowsVersion >= :vista
+      #BOOL WINAPI AddClipboardFormatListener( _In_  HWND hwnd )
+      attach_function 'AddClipboardFormatListener', [:hwnd], :bool
+
+      #BOOL WINAPI GetUpdatedClipboardFormats(
+      #  _Out_  PUINT lpuiFormats,
+      #  _In_   UINT cFormats,
+      #  _Out_  PUINT pcFormatsOut )
+      attach_function 'GetUpdatedClipboardFormats', [:pointer, :uint, :pointer], :bool
+
+      #BOOL WINAPI RemoveClipboardFormatListener( _In_  HWND hwnd )
+      attach_function 'RemoveClipboardFormatListener', [:hwnd], :bool
+    end
+  end
+end

data/lib/win-ffi/functions/user32/controls/button.rb

@@ -0,0 +1,23 @@
+require 'win-ffi/functions/user32'
+
+module WinFFI
+  module User32
+    #BOOL CheckDlgButton(
+    #  _In_  HWND hDlg,
+    #  _In_  int nIDButton,
+    #  _In_  UINT uCheck )
+    attach_function 'CheckDlgButton', [:hwnd, :int, :uint], :bool
+
+    #BOOL CheckRadioButton(
+    #  _In_  HWND hDlg,
+    #  _In_  int nIDFirstButton,
+    #  _In_  int nIDLastButton,
+    #  _In_  int nIDCheckButton )
+    attach_function 'CheckRadioButton', [:hwnd, :int, :int, :int], :bool
+
+    #UINT IsDlgButtonChecked(
+    #  _In_  HWND hDlg,
+    #  _In_  int nIDButton )
+    attach_function 'IsDlgButtonChecked', [:hwnd, :int], :uint
+  end
+end

data/lib/win-ffi/functions/user32/controls/combobox.rb

@@ -0,0 +1,29 @@
+require 'win-ffi/functions/user32'
+
+require 'win-ffi/structs/user32/controls/combobox_info'
+
+module WinFFI
+  module User32
+    #int DlgDirListComboBox(
+    #  _In_     HWND hDlg,
+    #  _Inout_  HWND lpPathSpec,
+    #  _In_     int nIDComboBox,
+    #  _In_     int nIDStaticPath,
+    #  _In_     UINT uFiletype )
+    attach_function 'DlgDirListComboBoxA', [:hwnd, :string, :int, :int, :uint], :int
+    attach_function 'DlgDirListComboBoxW', [:hwnd, :string, :int, :int, :uint], :int
+
+    #BOOL DlgDirSelectComboBoxEx(
+    #  _In_   HWND hDlg,
+    #  _Out_  LPTSTR lpString,
+    #  _In_   int nCount,
+    #  _In_   int nIDComboBox )
+    attach_function 'DlgDirSelectComboBoxExA', [:hwnd, :string, :int, :int], :bool
+    attach_function 'DlgDirSelectComboBoxExW', [:hwnd, :string, :int, :int], :bool
+
+    #BOOL GetComboBoxInfo(
+    #  _In_   HWND hwndCombo,
+    #  _Out_  PCOMBOBOXINFO pcbi )
+    attach_function 'GetComboBoxInfo', [:hwnd, COMBOBOXINFO.ptr], :bool
+  end
+end

data/lib/win-ffi/functions/user32/controls/listbox.rb

@@ -0,0 +1,25 @@
+require 'win-ffi/functions/user32'
+
+module WinFFI
+  module User32
+    #int DlgDirList(
+    #  _In_     HWND hDlg,
+    #  _Inout_  LPTSTR lpPathSpec,
+    #  _In_     int nIDListBox,
+    #  _In_     int nIDStaticPath,
+    #  _In_     UINT uFileType )
+    attach_function 'DlgDirListA', [:hwnd, :string, :int, :int, :uint], :int
+    attach_function 'DlgDirListW', [:hwnd, :string, :int, :int, :uint], :int
+
+    #BOOL DlgDirSelectEx(
+    #  _In_   HWND hDlg,
+    #  _Out_  LPTSTR lpString,
+    #  _In_   int nCount,
+    #  _In_   int nIDListBox )
+    attach_function 'DlgDirSelectExA', [:hwnd, :string, :int, :int], :bool
+    attach_function 'DlgDirSelectExW', [:hwnd, :string, :int, :int], :bool
+
+    #DWORD GetListBoxInfo( _In_  HWND hwnd )
+    attach_function 'GetListBoxInfo', [:hwnd], :dword
+  end
+end