windows-pr 1.2.2 → 1.2.3

data/lib/windows/volume.rb

@@ -1,61 +1,61 @@
-require 'windows/api'
-
-module Windows
-  module Volume
-    API.auto_namespace = 'Windows::Volume'
-    API.auto_constant  = true
-    API.auto_method    = true
-    API.auto_unicode   = true
-
-    private
-
-    DRIVE_UNKNOWN     = 0
-    DRIVE_NO_ROOT_DIR = 1
-    DRIVE_REMOVABLE   = 2
-    DRIVE_FIXED       = 3
-    DRIVE_REMOTE      = 4
-    DRIVE_CDROM       = 5
-    DRIVE_RAMDISK     = 6
-    
-    API.new('DefineDosDevice', 'LSS', 'B')
-    API.new('DeleteVolumeMountPoint', 'S', 'B')
-    API.new('FindFirstVolume', 'PL', 'L')
-    API.new('FindFirstVolumeMountPoint', 'SPL', 'L')
-    API.new('FindNextVolume', 'LPL', 'B')
-    API.new('FindNextVolumeMountPoint', 'LPL', 'B')
-    API.new('FindVolumeClose', 'L', 'B')
-    API.new('FindVolumeMountPointClose', 'L', 'B')
-    API.new('GetDriveType', 'S', 'I')
-    API.new('GetLogicalDrives', 'V', 'L')
-    API.new('GetLogicalDriveStrings', 'LP', 'L')
-    API.new('GetVolumeInformation', 'SPLPPPPL', 'B')      
-    API.new('GetVolumeNameForVolumeMountPoint', 'SPL', 'B')
-    API.new('GetVolumePathName', 'PPL', 'B')
-    API.new('QueryDosDevice', 'SPL', 'L')
-    API.new('SetVolumeLabel', 'SS', 'B')
-    API.new('SetVolumeMountPoint', 'SS', 'B')
-
-    begin
-      API.new('GetVolumePathNamesForVolumeName', 'SPLL', 'B')
-    rescue Win32::API::LoadLibraryError
-      # Windows XP or later
-    end
-
-    begin
-       API.new('GetVolumeInformationByHandleW', 'LPLPPPPL', 'B')
-    rescue Win32::API::LoadLibraryError
-       # Windows Vista or later
-    end
-
-    # Returns the volume type for +vol+ or the volume of the current
-    # process if no volume is specified.
-    #
-    # Returns nil if the function fails for any reason.
-    #
-    def get_volume_type(vol = nil)
-      buf = 0.chr * 256
-      bool = GetVolumeInformation(vol, nil, nil, nil, nil, nil, buf, buf.size)
-      bool ? buf.strip : nil
-    end
-  end
-end
+require 'windows/api'
+
+module Windows
+  module Volume
+    API.auto_namespace = 'Windows::Volume'
+    API.auto_constant  = true
+    API.auto_method    = true
+    API.auto_unicode   = true
+
+    private
+
+    DRIVE_UNKNOWN     = 0
+    DRIVE_NO_ROOT_DIR = 1
+    DRIVE_REMOVABLE   = 2
+    DRIVE_FIXED       = 3
+    DRIVE_REMOTE      = 4
+    DRIVE_CDROM       = 5
+    DRIVE_RAMDISK     = 6
+    
+    API.new('DefineDosDevice', 'LSS', 'B')
+    API.new('DeleteVolumeMountPoint', 'S', 'B')
+    API.new('FindFirstVolume', 'PL', 'L')
+    API.new('FindFirstVolumeMountPoint', 'SPL', 'L')
+    API.new('FindNextVolume', 'LPL', 'B')
+    API.new('FindNextVolumeMountPoint', 'LPL', 'B')
+    API.new('FindVolumeClose', 'L', 'B')
+    API.new('FindVolumeMountPointClose', 'L', 'B')
+    API.new('GetDriveType', 'S', 'I')
+    API.new('GetLogicalDrives', 'V', 'L')
+    API.new('GetLogicalDriveStrings', 'LP', 'L')
+    API.new('GetVolumeInformation', 'SPLPPPPL', 'B')      
+    API.new('GetVolumeNameForVolumeMountPoint', 'SPL', 'B')
+    API.new('GetVolumePathName', 'PPL', 'B')
+    API.new('QueryDosDevice', 'SPL', 'L')
+    API.new('SetVolumeLabel', 'SS', 'B')
+    API.new('SetVolumeMountPoint', 'SS', 'B')
+
+    begin
+      API.new('GetVolumePathNamesForVolumeName', 'SPLL', 'B')
+    rescue Win32::API::LoadLibraryError
+      # Windows XP or later
+    end
+
+    begin
+       API.new('GetVolumeInformationByHandleW', 'LPLPPPPL', 'B')
+    rescue Win32::API::LoadLibraryError
+       # Windows Vista or later
+    end
+
+    # Returns the volume type for +vol+ or the volume of the current
+    # process if no volume is specified.
+    #
+    # Returns nil if the function fails for any reason.
+    #
+    def get_volume_type(vol = nil)
+      buf = 0.chr * 256
+      bool = GetVolumeInformation(vol, nil, nil, nil, nil, nil, buf, buf.size)
+      bool ? buf.strip : nil
+    end
+  end
+end

data/lib/windows/window.rb

@@ -1,81 +1,81 @@
-require 'windows/api'
-
-# See WinUser.h
-
-module Windows
-  module Window
-    API.auto_namespace = 'Windows::Window'
-    API.auto_constant  = true
-    API.auto_method    = true
-    API.auto_unicode   = false
-
-    private
-
-    # ShowWindow() constants
-    SW_HIDE             = 0
-    SW_SHOWNORMAL       = 1
-    SW_NORMAL           = 1
-    SW_SHOWMINIMIZED    = 2
-    SW_SHOWMAXIMIZED    = 3
-    SW_MAXIMIZE         = 3
-    SW_SHOWNOACTIVATE   = 4
-    SW_SHOW             = 5
-    SW_MINIMIZE         = 6
-    SW_SHOWMINNOACTIVE  = 7
-    SW_SHOWNA           = 8
-    SW_RESTORE          = 9
-    SW_SHOWDEFAULT      = 10
-    SW_FORCEMINIMIZE    = 11
-    SW_MAX              = 11
-    
-    API.new('CloseWindow', 'L', 'B', 'user32')
-    API.new('CreateWindowEx', 'LPPLIIIILLLL', 'L', 'user32')
-    API.new('EnumWindows', 'KP', 'L', 'user32')
-    API.new('FindWindow', 'PP', 'L', 'user32')
-    API.new('FindWindowEx', 'LLPP', 'L', 'user32')
-    API.new('GetAltTabInfo', 'LIPPI', 'B', 'user32')
-    API.new('GetAncestor', 'LI', 'L', 'user32')
-    API.new('GetClientRect', 'LP', 'B', 'user32')
-    API.new('GetDesktopWindow', 'V', 'L', 'user32')
-    API.new('GetForegroundWindow', 'V', 'L', 'user32')
-    API.new('GetGUIThreadInfo', 'LP', 'B', 'user32')
-    API.new('GetLastActivePopup', 'L', 'L', 'user32')
-    API.new('GetParent', 'L', 'L', 'user32')
-    API.new('GetProcessDefaultLayout', 'P', 'B', 'user32')
-    API.new('GetShellWindow', 'V', 'L', 'user32')
-    API.new('GetTitleBarInfo', 'LP', 'B', 'user32')
-    API.new('GetTopWindow', 'L', 'L', 'user32')
-    API.new('GetWindow', 'LI', 'L', 'user32')
-    API.new('GetWindowInfo', 'LP', 'B', 'user32')
-    API.new('GetWindowModuleFileName', 'LLI', 'I', 'user32')
-    API.new('GetWindowPlacement', 'LP', 'B', 'user32')
-    API.new('GetWindowRect', 'LP', 'B', 'user32')
-    API.new('GetWindowText', 'LPI', 'I', 'user32')
-    API.new('GetWindowTextLength', 'L', 'I', 'user32')
-    API.new('GetWindowThreadProcessId', 'LP', 'L', 'user32')
-
-    begin
-      API.new('GetLayeredWindowAttributes', 'LPBL', 'B', 'user32')
-    rescue Win32::API::LoadLibraryError
-      # Windows XP or later
-    end
-
-    # Recent versions of user32.dll turn CreateWindow into a macro for the CreateWindowEx function.
-    #
-    begin
-      API.new('CreateWindow', 'PPLIIIILLLL', 'L', 'user32')
-    rescue Win32::API::LoadLibraryError
-      def CreateWindow(lpClassName, lpWindowName, dwStyle, x, y, nWidth, nHeight, hWndParent, hMenu, hInstance, lpParam)
-          CreateWindowEx(0, lpClassName, lpWindowName, dwStyle, x, y, nWidth, nHeight, hWndParent, hMenu, hInstance, lpParam)
-      end
-
-      def CreateWindowA(lpClassName, lpWindowName, dwStyle, x, y, nWidth, nHeight, hWndParent, hMenu, hInstance, lpParam)
-          CreateWindowExA(0, lpClassName, lpWindowName, dwStyle, x, y, nWidth, nHeight, hWndParent, hMenu, hInstance, lpParam)
-      end
-
-      def CreateWindowW(lpClassName, lpWindowName, dwStyle, x, y, nWidth, nHeight, hWndParent, hMenu, hInstance, lpParam)
-          CreateWindowExW(0, lpClassName, lpWindowName, dwStyle, x, y, nWidth, nHeight, hWndParent, hMenu, hInstance, lpParam)
-      end
-    end
-  end
-end
+require 'windows/api'
+
+# See WinUser.h
+
+module Windows
+  module Window
+    API.auto_namespace = 'Windows::Window'
+    API.auto_constant  = true
+    API.auto_method    = true
+    API.auto_unicode   = false
+
+    private
+
+    # ShowWindow() constants
+    SW_HIDE             = 0
+    SW_SHOWNORMAL       = 1
+    SW_NORMAL           = 1
+    SW_SHOWMINIMIZED    = 2
+    SW_SHOWMAXIMIZED    = 3
+    SW_MAXIMIZE         = 3
+    SW_SHOWNOACTIVATE   = 4
+    SW_SHOW             = 5
+    SW_MINIMIZE         = 6
+    SW_SHOWMINNOACTIVE  = 7
+    SW_SHOWNA           = 8
+    SW_RESTORE          = 9
+    SW_SHOWDEFAULT      = 10
+    SW_FORCEMINIMIZE    = 11
+    SW_MAX              = 11
+    
+    API.new('CloseWindow', 'L', 'B', 'user32')
+    API.new('CreateWindowEx', 'LPPLIIIILLLL', 'L', 'user32')
+    API.new('EnumWindows', 'KP', 'L', 'user32')
+    API.new('FindWindow', 'PP', 'L', 'user32')
+    API.new('FindWindowEx', 'LLPP', 'L', 'user32')
+    API.new('GetAltTabInfo', 'LIPPI', 'B', 'user32')
+    API.new('GetAncestor', 'LI', 'L', 'user32')
+    API.new('GetClientRect', 'LP', 'B', 'user32')
+    API.new('GetDesktopWindow', 'V', 'L', 'user32')
+    API.new('GetForegroundWindow', 'V', 'L', 'user32')
+    API.new('GetGUIThreadInfo', 'LP', 'B', 'user32')
+    API.new('GetLastActivePopup', 'L', 'L', 'user32')
+    API.new('GetParent', 'L', 'L', 'user32')
+    API.new('GetProcessDefaultLayout', 'P', 'B', 'user32')
+    API.new('GetShellWindow', 'V', 'L', 'user32')
+    API.new('GetTitleBarInfo', 'LP', 'B', 'user32')
+    API.new('GetTopWindow', 'L', 'L', 'user32')
+    API.new('GetWindow', 'LI', 'L', 'user32')
+    API.new('GetWindowInfo', 'LP', 'B', 'user32')
+    API.new('GetWindowModuleFileName', 'LLI', 'I', 'user32')
+    API.new('GetWindowPlacement', 'LP', 'B', 'user32')
+    API.new('GetWindowRect', 'LP', 'B', 'user32')
+    API.new('GetWindowText', 'LPI', 'I', 'user32')
+    API.new('GetWindowTextLength', 'L', 'I', 'user32')
+    API.new('GetWindowThreadProcessId', 'LP', 'L', 'user32')
+
+    begin
+      API.new('GetLayeredWindowAttributes', 'LPBL', 'B', 'user32')
+    rescue Win32::API::LoadLibraryError
+      # Windows XP or later
+    end
+
+    # Recent versions of user32.dll turn CreateWindow into a macro for the CreateWindowEx function.
+    #
+    begin
+      API.new('CreateWindow', 'PPLIIIILLLL', 'L', 'user32')
+    rescue Win32::API::LoadLibraryError
+      def CreateWindow(lpClassName, lpWindowName, dwStyle, x, y, nWidth, nHeight, hWndParent, hMenu, hInstance, lpParam)
+          CreateWindowEx(0, lpClassName, lpWindowName, dwStyle, x, y, nWidth, nHeight, hWndParent, hMenu, hInstance, lpParam)
+      end
+
+      def CreateWindowA(lpClassName, lpWindowName, dwStyle, x, y, nWidth, nHeight, hWndParent, hMenu, hInstance, lpParam)
+          CreateWindowExA(0, lpClassName, lpWindowName, dwStyle, x, y, nWidth, nHeight, hWndParent, hMenu, hInstance, lpParam)
+      end
+
+      def CreateWindowW(lpClassName, lpWindowName, dwStyle, x, y, nWidth, nHeight, hWndParent, hMenu, hInstance, lpParam)
+          CreateWindowExW(0, lpClassName, lpWindowName, dwStyle, x, y, nWidth, nHeight, hWndParent, hMenu, hInstance, lpParam)
+      end
+    end
+  end
+end

data/lib/windows/window/classes.rb

@@ -1,59 +1,59 @@
-require 'windows/api'
-
-module Windows
-  module Window
-    module Classes
-      API.auto_namespace = 'Windows::Window::Classes'
-      API.auto_constant  = true
-      API.auto_method    = true
-      API.auto_unicode   = true
-
-      private
-
-      # Class Field Offsets
-
-      GCL_MENUNAME      = -8
-      GCL_HBRBACKGROUND = -10
-      GCL_HCURSOR       = -12
-      GCL_HICON         = -14
-      GCL_HMODULE       = -16
-      GCL_CBWNDEXTRA    = -18
-      GCL_CBCLSEXTRA    = -20
-      GCL_WNDPROC       = -24
-      GCL_STYLE         = -26
-      GCW_ATOM          = -32
-
-      # Window Field Offsets
-
-      GWL_WNDPROC    = -4
-      GWL_HINSTANCE  = -6
-      GWL_HWNDPARENT = -8
-      GWL_STYLE      = -16
-      GWL_EXSTYLE    = -20
-      GWL_USERDATA   = -21
-      GWL_ID         = -12
-
-      API.new('GetClassInfo', 'LPP', 'B', 'user32')
-      API.new('GetClassInfoEx', 'LPP', 'B', 'user32')
-      API.new('GetClassLong', 'LI', 'L', 'user32')
-      API.new('GetClassName', 'LPI', 'I', 'user32')
-      API.new('GetClassWord', 'LI', 'L', 'user32')
-      API.new('GetWindowLong', 'LI', 'L', 'user32')
-      API.new('RegisterClass', 'P', 'L', 'user32')
-      API.new('RegisterClassEx', 'P', 'L', 'user32')
-      API.new('SetClassLong', 'LIL', 'L', 'user32')
-      API.new('SetClassWord', 'LIL', 'L', 'user32')
-      API.new('SetWindowLong', 'LIL', 'L', 'user32')        
-      API.new('UnregisterClass', 'PL', 'B', 'user32')
-       
-      # In 32-bit Windows, these methods are aliases
-      begin
-        API.new('GetWindowLongPtr', 'LI', 'L', 'user32')
-        API.new('SetWindowLongPtr', 'LIP', 'L', 'user32')
-      rescue Win32::API::LoadLibraryError
-        alias :GetWindowLongPtr :GetWindowLong
-        alias :SetWindowLongPtr :SetWindowLong
-      end
-   end
-  end
-end
+require 'windows/api'
+
+module Windows
+  module Window
+    module Classes
+      API.auto_namespace = 'Windows::Window::Classes'
+      API.auto_constant  = true
+      API.auto_method    = true
+      API.auto_unicode   = true
+
+      private
+
+      # Class Field Offsets
+
+      GCL_MENUNAME      = -8
+      GCL_HBRBACKGROUND = -10
+      GCL_HCURSOR       = -12
+      GCL_HICON         = -14
+      GCL_HMODULE       = -16
+      GCL_CBWNDEXTRA    = -18
+      GCL_CBCLSEXTRA    = -20
+      GCL_WNDPROC       = -24
+      GCL_STYLE         = -26
+      GCW_ATOM          = -32
+
+      # Window Field Offsets
+
+      GWL_WNDPROC    = -4
+      GWL_HINSTANCE  = -6
+      GWL_HWNDPARENT = -8
+      GWL_STYLE      = -16
+      GWL_EXSTYLE    = -20
+      GWL_USERDATA   = -21
+      GWL_ID         = -12
+
+      API.new('GetClassInfo', 'LPP', 'B', 'user32')
+      API.new('GetClassInfoEx', 'LPP', 'B', 'user32')
+      API.new('GetClassLong', 'LI', 'L', 'user32')
+      API.new('GetClassName', 'LPI', 'I', 'user32')
+      API.new('GetClassWord', 'LI', 'L', 'user32')
+      API.new('GetWindowLong', 'LI', 'L', 'user32')
+      API.new('RegisterClass', 'P', 'L', 'user32')
+      API.new('RegisterClassEx', 'P', 'L', 'user32')
+      API.new('SetClassLong', 'LIL', 'L', 'user32')
+      API.new('SetClassWord', 'LIL', 'L', 'user32')
+      API.new('SetWindowLong', 'LIL', 'L', 'user32')
+      API.new('UnregisterClass', 'PL', 'B', 'user32')
+
+      # In 32-bit Windows, these methods are aliases
+      begin
+        API.new('GetWindowLongPtr', 'LI', 'L', 'user32')
+        API.new('SetWindowLongPtr', 'LIP', 'L', 'user32')
+      rescue Win32::API::LoadLibraryError
+        alias :GetWindowLongPtr :GetWindowLong
+        alias :SetWindowLongPtr :SetWindowLong
+      end
+    end
+  end
+end

data/lib/windows/window/dialog.rb

@@ -1,91 +1,91 @@
-require 'windows/api'
-
-module Windows
-  module Window
-    module Dialog
-      API.auto_namespace = 'Windows::Window::Dialog'
-      API.auto_constant  = true
-      API.auto_method    = true
-      API.auto_unicode   = true
-
-      private
-
-      MB_OK                        = 0x00000000
-      MB_OKCANCEL                  = 0x00000001
-      MB_ABORTRETRYIGNORE          = 0x00000002
-      MB_YESNOCANCEL               = 0x00000003
-      MB_YESNO                     = 0x00000004
-      MB_RETRYCANCEL               = 0x00000005
-      MB_CANCELTRYCONTINUE         = 0x00000006
-      MB_ICONHAND                  = 0x00000010
-      MB_ICONQUESTION              = 0x00000020
-      MB_ICONEXCLAMATION           = 0x00000030
-      MB_ICONASTERISK              = 0x00000040
-      MB_USERICON                  = 0x00000080
-      MB_ICONWARNING               = MB_ICONEXCLAMATION
-      MB_ICONERROR                 = MB_ICONHAND
-      MB_ICONINFORMATION           = MB_ICONASTERISK
-      MB_ICONSTOP                  = MB_ICONHAND
-      MB_DEFBUTTON1                = 0x00000000
-      MB_DEFBUTTON2                = 0x00000100
-      MB_DEFBUTTON3                = 0x00000200
-      MB_DEFBUTTON4                = 0x00000300
-      MB_APPLMODAL                 = 0x00000000
-      MB_SYSTEMMODAL               = 0x00001000
-      MB_TASKMODAL                 = 0x00002000
-      MB_HELP                      = 0x00004000
-      MB_NOFOCUS                   = 0x00008000
-      MB_SETFOREGROUND             = 0x00010000
-      MB_DEFAULT_DESKTOP_ONLY      = 0x00020000
-      MB_TOPMOST                   = 0x00040000
-      MB_RIGHT                     = 0x00080000
-      MB_RTLREADING                = 0x00100000
-      MB_SERVICE_NOTIFICATION      = 0x00200000 # Assume Win2k or later
-      MB_SERVICE_NOTIFICATION_NT3X = 0x00040000
-      MB_TYPEMASK                  = 0x0000000F
-      MB_ICONMASK                  = 0x000000F0
-      MB_DEFMASK                   = 0x00000F00
-      MB_MODEMASK                  = 0x00003000
-      MB_MISCMASK                  = 0x0000C000
-
-      API.new('CreateDialogIndirectParam', 'LPLKL', 'L', 'user32')
-      API.new('CreateDialogParam', 'LPLKL', 'L', 'user32')
-      API.new('DialogBoxIndirectParam', 'LPLKL', 'P', 'user32')
-      API.new('DialogBoxParam', 'LPLKL', 'P', 'user32')
-      API.new('EndDialog', 'LP', 'B', 'user32')
-      API.new('GetDialogBaseUnits', 'V', 'L', 'user32')
-      API.new('GetDlgCtrlID', 'L', 'I', 'user32')
-      API.new('GetDlgItem', 'LI', 'L', 'user32')
-      API.new('GetDlgItemInt', 'LIPI', 'I', 'user32')
-      API.new('GetDlgItemText', 'LIPI', 'I', 'user32')
-      API.new('GetNextDlgGroupItem', 'LLI', 'L', 'user32')
-      API.new('GetNextDlgTabItem', 'LLI', 'L', 'user32')
-      API.new('IsDialogMessage', 'LP', 'B', 'user32')
-      API.new('MapDialogRect', 'LP', 'B', 'user32')
-      API.new('MessageBox', 'LPPI', 'I', 'user32')
-      API.new('MessageBoxEx', 'LPPII', 'I', 'user32')
-      API.new('MessageBoxIndirect', 'P', 'I', 'user32')
-      API.new('SendDlgItemMessage', 'LIILL', 'L', 'user32')
-      API.new('SetDlgItemInt', 'LIII', 'L', 'user32')
-      API.new('SetDlgItemText', 'LIP', 'B', 'user32')
-
-      # Macros from WinUser.h
-
-      def CreateDialog(hInstance, lpName, hParent, lpDialogFunc)
-        CreateDialogParam.call(hInstance, lpName, hParent, lpDialogFunc, 0)
-      end
-
-      def CreateDialogIndirect(hInst, lpTemp, hPar, lpDialFunc)
-        CreateDialogIndirectParam.call(hInst, lpTemp, hPar, lpDialFunc, 0)
-      end
-
-      def DialogBox(hInstance, lpTemp, hParent, lpDialogFunc)
-        DialogBoxParam.call(hInstance, lpTemp, hParent, lpDialogFunc, 0)
-      end
-
-      def DialogBoxIndirect(hInst, lpTemp, hParent, lpDialogFunc)
-        DialogBoxParamIndirect.call(hInst, lpTemp, hParent, lpDialogFunc, 0)
-      end
-    end
-  end
-end
+require 'windows/api'
+
+module Windows
+  module Window
+    module Dialog
+      API.auto_namespace = 'Windows::Window::Dialog'
+      API.auto_constant  = true
+      API.auto_method    = true
+      API.auto_unicode   = true
+
+      private
+
+      MB_OK                        = 0x00000000
+      MB_OKCANCEL                  = 0x00000001
+      MB_ABORTRETRYIGNORE          = 0x00000002
+      MB_YESNOCANCEL               = 0x00000003
+      MB_YESNO                     = 0x00000004
+      MB_RETRYCANCEL               = 0x00000005
+      MB_CANCELTRYCONTINUE         = 0x00000006
+      MB_ICONHAND                  = 0x00000010
+      MB_ICONQUESTION              = 0x00000020
+      MB_ICONEXCLAMATION           = 0x00000030
+      MB_ICONASTERISK              = 0x00000040
+      MB_USERICON                  = 0x00000080
+      MB_ICONWARNING               = MB_ICONEXCLAMATION
+      MB_ICONERROR                 = MB_ICONHAND
+      MB_ICONINFORMATION           = MB_ICONASTERISK
+      MB_ICONSTOP                  = MB_ICONHAND
+      MB_DEFBUTTON1                = 0x00000000
+      MB_DEFBUTTON2                = 0x00000100
+      MB_DEFBUTTON3                = 0x00000200
+      MB_DEFBUTTON4                = 0x00000300
+      MB_APPLMODAL                 = 0x00000000
+      MB_SYSTEMMODAL               = 0x00001000
+      MB_TASKMODAL                 = 0x00002000
+      MB_HELP                      = 0x00004000
+      MB_NOFOCUS                   = 0x00008000
+      MB_SETFOREGROUND             = 0x00010000
+      MB_DEFAULT_DESKTOP_ONLY      = 0x00020000
+      MB_TOPMOST                   = 0x00040000
+      MB_RIGHT                     = 0x00080000
+      MB_RTLREADING                = 0x00100000
+      MB_SERVICE_NOTIFICATION      = 0x00200000 # Assume Win2k or later
+      MB_SERVICE_NOTIFICATION_NT3X = 0x00040000
+      MB_TYPEMASK                  = 0x0000000F
+      MB_ICONMASK                  = 0x000000F0
+      MB_DEFMASK                   = 0x00000F00
+      MB_MODEMASK                  = 0x00003000
+      MB_MISCMASK                  = 0x0000C000
+
+      API.new('CreateDialogIndirectParam', 'LPLKL', 'L', 'user32')
+      API.new('CreateDialogParam', 'LPLKL', 'L', 'user32')
+      API.new('DialogBoxIndirectParam', 'LPLKL', 'P', 'user32')
+      API.new('DialogBoxParam', 'LPLKL', 'P', 'user32')
+      API.new('EndDialog', 'LP', 'B', 'user32')
+      API.new('GetDialogBaseUnits', 'V', 'L', 'user32')
+      API.new('GetDlgCtrlID', 'L', 'I', 'user32')
+      API.new('GetDlgItem', 'LI', 'L', 'user32')
+      API.new('GetDlgItemInt', 'LIPI', 'I', 'user32')
+      API.new('GetDlgItemText', 'LIPI', 'I', 'user32')
+      API.new('GetNextDlgGroupItem', 'LLI', 'L', 'user32')
+      API.new('GetNextDlgTabItem', 'LLI', 'L', 'user32')
+      API.new('IsDialogMessage', 'LP', 'B', 'user32')
+      API.new('MapDialogRect', 'LP', 'B', 'user32')
+      API.new('MessageBox', 'LPPI', 'I', 'user32')
+      API.new('MessageBoxEx', 'LPPII', 'I', 'user32')
+      API.new('MessageBoxIndirect', 'P', 'I', 'user32')
+      API.new('SendDlgItemMessage', 'LIILL', 'L', 'user32')
+      API.new('SetDlgItemInt', 'LIII', 'L', 'user32')
+      API.new('SetDlgItemText', 'LIP', 'B', 'user32')
+
+      # Macros from WinUser.h
+
+      def CreateDialog(hInstance, lpName, hParent, lpDialogFunc)
+        CreateDialogParam.call(hInstance, lpName, hParent, lpDialogFunc, 0)
+      end
+
+      def CreateDialogIndirect(hInst, lpTemp, hPar, lpDialFunc)
+        CreateDialogIndirectParam.call(hInst, lpTemp, hPar, lpDialFunc, 0)
+      end
+
+      def DialogBox(hInstance, lpTemp, hParent, lpDialogFunc)
+        DialogBoxParam.call(hInstance, lpTemp, hParent, lpDialogFunc, 0)
+      end
+
+      def DialogBoxIndirect(hInst, lpTemp, hParent, lpDialogFunc)
+        DialogBoxParamIndirect.call(hInst, lpTemp, hParent, lpDialogFunc, 0)
+      end
+    end
+  end
+end