windows-pr 1.1.2 → 1.1.3

data/lib/windows/sound.rb

@@ -1,37 +1,37 @@
-require 'windows/api'
-
-module Windows  
-   module Sound
-      API.auto_namespace = 'Windows::Sound'
-      API.auto_constant  = true
-      API.auto_method    = true
-      API.auto_unicode   = false
-
-      SND_SYNC          = 0x0000  # play synchronously (default)
-      SND_ASYNC         = 0x0001  # play asynchronously
-      SND_NODEFAULT     = 0x0002  # silence (!default) if sound not found
-      SND_MEMORY        = 0x0004  # pszSound points to a memory file
-      SND_LOOP          = 0x0008  # loop the sound until next sndPlaySound
-      SND_NOSTOP        = 0x0010  # don't stop any currently playing sound 
-
-      SND_NOWAIT        = 8192    # don't wait if the driver is busy
-      SND_ALIAS         = 65536   # name is a registry alias
-      SND_ALIAS_ID      = 1114112 # alias is a predefined ID
-      SND_FILENAME      = 131072  # name is file name
-      SND_RESOURCE      = 262148  # name is resource name or atom
-
-      SND_PURGE         = 0x0040  # purge non-static events for task
-      SND_APPLICATION   = 0x0080  # look for application specific association
-      
-      API.new('Beep', 'LL', 'B')
-      API.new('PlaySound', 'PPL', 'B', 'winmm')
-      API.new('waveOutSetVolume', 'PL', 'I', 'winmm')
-      API.new('waveOutGetVolume', 'LP', 'I', 'winmm')
-      API.new('waveOutGetNumDevs', 'V', 'I', 'winmm')
-      API.new('waveInGetNumDevs', 'V', 'I', 'winmm')
-      API.new('midiOutGetNumDevs', 'V', 'I', 'winmm')
-      API.new('midiInGetNumDevs', 'V', 'I', 'winmm')
-      API.new('auxGetNumDevs', 'V', 'I', 'winmm')
-      API.new('mixerGetNumDevs', 'V', 'I', 'winmm')
-   end
-end
+require 'windows/api'
+
+module Windows  
+   module Sound
+      API.auto_namespace = 'Windows::Sound'
+      API.auto_constant  = true
+      API.auto_method    = true
+      API.auto_unicode   = false
+
+      SND_SYNC          = 0x0000  # play synchronously (default)
+      SND_ASYNC         = 0x0001  # play asynchronously
+      SND_NODEFAULT     = 0x0002  # silence (!default) if sound not found
+      SND_MEMORY        = 0x0004  # pszSound points to a memory file
+      SND_LOOP          = 0x0008  # loop the sound until next sndPlaySound
+      SND_NOSTOP        = 0x0010  # don't stop any currently playing sound 
+
+      SND_NOWAIT        = 8192    # don't wait if the driver is busy
+      SND_ALIAS         = 65536   # name is a registry alias
+      SND_ALIAS_ID      = 1114112 # alias is a predefined ID
+      SND_FILENAME      = 131072  # name is file name
+      SND_RESOURCE      = 262148  # name is resource name or atom
+
+      SND_PURGE         = 0x0040  # purge non-static events for task
+      SND_APPLICATION   = 0x0080  # look for application specific association
+      
+      API.new('Beep', 'LL', 'B')
+      API.new('PlaySound', 'PPL', 'B', 'winmm')
+      API.new('waveOutSetVolume', 'PL', 'I', 'winmm')
+      API.new('waveOutGetVolume', 'LP', 'I', 'winmm')
+      API.new('waveOutGetNumDevs', 'V', 'I', 'winmm')
+      API.new('waveInGetNumDevs', 'V', 'I', 'winmm')
+      API.new('midiOutGetNumDevs', 'V', 'I', 'winmm')
+      API.new('midiInGetNumDevs', 'V', 'I', 'winmm')
+      API.new('auxGetNumDevs', 'V', 'I', 'winmm')
+      API.new('mixerGetNumDevs', 'V', 'I', 'winmm')
+   end
+end

data/lib/windows/synchronize.rb

@@ -1,131 +1,131 @@
-require 'windows/api'
-
-module Windows
-  module Synchronize
-    API.auto_namespace = 'Windows::Synchronize'
-    API.auto_constant  = true
-    API.auto_method    = true
-    API.auto_unicode   = true
-
-    INFINITE         = 0xFFFFFFFF
-    WAIT_OBJECT_0    = 0
-    WAIT_TIMEOUT     = 0x102
-    WAIT_ABANDONED   = 128
-    WAIT_ABANDONED_0 = WAIT_ABANDONED
-    WAIT_FAILED      = 0xFFFFFFFF
-    
-    STATUS_WAIT_0           =  0    
-    STATUS_ABANDONED_WAIT_0 =  128    
-    STATUS_USER_APC         =  192    
-    STATUS_TIMEOUT          =  258    
-    STATUS_PENDING          =  259     
-    
-    # Wake mask constants
-
-    QS_ALLEVENTS      = 0x04BF
-    QS_ALLINPUT       = 0x04FF
-    QS_ALLPOSTMESSAGE = 0x0100
-    QS_HOTKEY         = 0x0080
-    QS_INPUT          = 0x407
-    QS_KEY            = 0x0001
-    QS_MOUSE          = 0x0006
-    QS_MOUSEBUTTON    = 0x0004
-    QS_MOUSEMOVE      = 0x0002
-    QS_PAINT          = 0x0020
-    QS_POSTMESSAGE    = 0x0008
-    QS_RAWINPUT       = 0x0400
-    QS_SENDMESSAGE    = 0x0040
-    QS_TIMER          = 0x0010
-    
-    # Wait type constants
-
-    MWMO_ALERTABLE      = 0x0002
-    MWMO_INPUTAVAILABLE = 0x0004
-    MWMO_WAITALL        = 0x0001
-    
-    # Access rights
- 
-    EVENT_ALL_ACCESS       = 0x1F0003
-    EVENT_MODIFY_STATE     = 0x0002
-    MUTEX_ALL_ACCESS       = 0x1F0001
-    MUTEX_MODIFY_STATE     = 0x0001
-    SEMAPHORE_ALL_ACCESS   = 0x1F0003
-    SEMAPHORE_MODIFY_STATE = 0x0002
-
-    # Namespace flags
-
-    PRIVATE_NAMESPACE_FLAG_DESTROY = 0x00000001
-
-    # Functions
-
-    API.new('CancelWaitableTimer', 'L', 'B')
-    API.new('CreateEvent', 'PIIP', 'L')
-    API.new('CreateMutex', 'PIP', 'L')
-    API.new('CreateSemaphore', 'PLLP', 'L')
-    API.new('CreateWaitableTimer', 'PIP', 'L')
-    API.new('DeleteCriticalSection', 'P', 'V')
-    API.new('EnterCriticalSection', 'P', 'V')
-    API.new('GetOverlappedResult', 'LPPI', 'I')
-    API.new('InitializeCriticalSection', 'P', 'V')
-    API.new('InitializeCriticalSectionAndSpinCount', 'PL', 'B')
-    API.new('LeaveCriticalSection', 'P', 'V')
-    API.new('MsgWaitForMultipleObjects', 'LPILL', 'L', 'user32')
-    API.new('MsgWaitForMultipleObjectsEx', 'LPLLL', 'L', 'user32')
-    API.new('OpenEvent', 'LIP', 'L')
-    API.new('OpenMutex', 'LIP', 'L')
-    API.new('OpenSemaphore', 'LIP', 'L')
-    API.new('OpenWaitableTimer', 'LIP', 'L')
-    API.new('ReleaseMutex', 'L', 'B')
-    API.new('ReleaseSemaphore', 'LLP', 'B')
-    API.new('ResetEvent', 'L', 'B')
-    API.new('SetCriticalSectionSpinCount', 'PL', 'V')
-    API.new('SetWaitableTimer', 'LPLKPI', 'B')
-    API.new('SetEvent', 'L', 'B')
-    API.new('TryEnterCriticalSection', 'P', 'B')
-    API.new('WaitForMultipleObjects', 'LPIL', 'L')
-    API.new('WaitForMultipleObjectsEx', 'LPILI', 'L')
-    API.new('WaitForSingleObject', 'LL', 'L')
-    API.new('WaitForSingleObjectEx', 'LLI', 'L')
-    
-    # Macros
-    
-    def HasOverlappedIoCompleted(overlapped)
-      overlapped[0,4].unpack('L')[0] != STATUS_PENDING
-    end
-    
-    # This simulates the RUBY_CRITICAL macro from rubysig.h, although I've
-    # added the begin/ensure wrapper to boot.
-    #
-    def RUBY_CRITICAL(&block)
-      critical_section = [0].pack('L')
-      begin
-        InitializeCriticalSection(critical_section)
-        EnterCriticalSection(critical_section)
-        block.call
-      ensure
-        LeaveCriticalSection(critical_section)
-      end
-    end      
-
-    # Vista or later
-
-    begin
-      API.new('AddSIDToBoundaryDescriptor', 'PP', 'B')
-      API.new('ClosePrivateNamespace', 'LL', 'B')
-      API.new('CreateBoundaryDescriptor', 'SL', 'L')
-      API.new('DeleteBoundaryDescriptor', 'L', 'V')
-      API.new('CreatePrivateNamespace', 'PLS', 'L')
-      API.new('OpenPrivateNamespace', 'PS', 'L')
-    rescue Win32::API::LoadLibraryError
-      # Windows Vista or later
-    end
-
-    # Windows 7 or later
-
-    begin
-      API.new('AddIntegrityLabelToBoundaryDescriptor', 'PP', 'B')
-    rescue Win32::API::LoadLibraryError
-      # Windows 7 or later
-    end
-  end
-end
+require 'windows/api'
+
+module Windows
+  module Synchronize
+    API.auto_namespace = 'Windows::Synchronize'
+    API.auto_constant  = true
+    API.auto_method    = true
+    API.auto_unicode   = true
+
+    INFINITE         = 0xFFFFFFFF
+    WAIT_OBJECT_0    = 0
+    WAIT_TIMEOUT     = 0x102
+    WAIT_ABANDONED   = 128
+    WAIT_ABANDONED_0 = WAIT_ABANDONED
+    WAIT_FAILED      = 0xFFFFFFFF
+    
+    STATUS_WAIT_0           =  0    
+    STATUS_ABANDONED_WAIT_0 =  128    
+    STATUS_USER_APC         =  192    
+    STATUS_TIMEOUT          =  258    
+    STATUS_PENDING          =  259     
+    
+    # Wake mask constants
+
+    QS_ALLEVENTS      = 0x04BF
+    QS_ALLINPUT       = 0x04FF
+    QS_ALLPOSTMESSAGE = 0x0100
+    QS_HOTKEY         = 0x0080
+    QS_INPUT          = 0x407
+    QS_KEY            = 0x0001
+    QS_MOUSE          = 0x0006
+    QS_MOUSEBUTTON    = 0x0004
+    QS_MOUSEMOVE      = 0x0002
+    QS_PAINT          = 0x0020
+    QS_POSTMESSAGE    = 0x0008
+    QS_RAWINPUT       = 0x0400
+    QS_SENDMESSAGE    = 0x0040
+    QS_TIMER          = 0x0010
+    
+    # Wait type constants
+
+    MWMO_ALERTABLE      = 0x0002
+    MWMO_INPUTAVAILABLE = 0x0004
+    MWMO_WAITALL        = 0x0001
+    
+    # Access rights
+ 
+    EVENT_ALL_ACCESS       = 0x1F0003
+    EVENT_MODIFY_STATE     = 0x0002
+    MUTEX_ALL_ACCESS       = 0x1F0001
+    MUTEX_MODIFY_STATE     = 0x0001
+    SEMAPHORE_ALL_ACCESS   = 0x1F0003
+    SEMAPHORE_MODIFY_STATE = 0x0002
+
+    # Namespace flags
+
+    PRIVATE_NAMESPACE_FLAG_DESTROY = 0x00000001
+
+    # Functions
+
+    API.new('CancelWaitableTimer', 'L', 'B')
+    API.new('CreateEvent', 'PIIP', 'L')
+    API.new('CreateMutex', 'PIP', 'L')
+    API.new('CreateSemaphore', 'PLLP', 'L')
+    API.new('CreateWaitableTimer', 'PIP', 'L')
+    API.new('DeleteCriticalSection', 'P', 'V')
+    API.new('EnterCriticalSection', 'P', 'V')
+    API.new('GetOverlappedResult', 'LPPI', 'I')
+    API.new('InitializeCriticalSection', 'P', 'V')
+    API.new('InitializeCriticalSectionAndSpinCount', 'PL', 'B')
+    API.new('LeaveCriticalSection', 'P', 'V')
+    API.new('MsgWaitForMultipleObjects', 'LPILL', 'L', 'user32')
+    API.new('MsgWaitForMultipleObjectsEx', 'LPLLL', 'L', 'user32')
+    API.new('OpenEvent', 'LIP', 'L')
+    API.new('OpenMutex', 'LIP', 'L')
+    API.new('OpenSemaphore', 'LIP', 'L')
+    API.new('OpenWaitableTimer', 'LIP', 'L')
+    API.new('ReleaseMutex', 'L', 'B')
+    API.new('ReleaseSemaphore', 'LLP', 'B')
+    API.new('ResetEvent', 'L', 'B')
+    API.new('SetCriticalSectionSpinCount', 'PL', 'V')
+    API.new('SetWaitableTimer', 'LPLKPI', 'B')
+    API.new('SetEvent', 'L', 'B')
+    API.new('TryEnterCriticalSection', 'P', 'B')
+    API.new('WaitForMultipleObjects', 'LPIL', 'L')
+    API.new('WaitForMultipleObjectsEx', 'LPILI', 'L')
+    API.new('WaitForSingleObject', 'LL', 'L')
+    API.new('WaitForSingleObjectEx', 'LLI', 'L')
+    
+    # Macros
+    
+    def HasOverlappedIoCompleted(overlapped)
+      overlapped[0,4].unpack('L')[0] != STATUS_PENDING
+    end
+    
+    # This simulates the RUBY_CRITICAL macro from rubysig.h, although I've
+    # added the begin/ensure wrapper to boot.
+    #
+    def RUBY_CRITICAL(&block)
+      critical_section = [0].pack('L')
+      begin
+        InitializeCriticalSection(critical_section)
+        EnterCriticalSection(critical_section)
+        block.call
+      ensure
+        LeaveCriticalSection(critical_section)
+      end
+    end      
+
+    # Vista or later
+
+    begin
+      API.new('AddSIDToBoundaryDescriptor', 'PP', 'B')
+      API.new('ClosePrivateNamespace', 'LL', 'B')
+      API.new('CreateBoundaryDescriptor', 'SL', 'L')
+      API.new('DeleteBoundaryDescriptor', 'L', 'V')
+      API.new('CreatePrivateNamespace', 'PLS', 'L')
+      API.new('OpenPrivateNamespace', 'PS', 'L')
+    rescue Win32::API::LoadLibraryError
+      # Windows Vista or later
+    end
+
+    # Windows 7 or later
+
+    begin
+      API.new('AddIntegrityLabelToBoundaryDescriptor', 'PP', 'B')
+    rescue Win32::API::LoadLibraryError
+      # Windows 7 or later
+    end
+  end
+end

data/lib/windows/system_info.rb

@@ -1,222 +1,227 @@
-require 'windows/api'
-
-module Windows
-   module SystemInfo
-      API.auto_namespace = 'Windows::SystemInfo'
-      API.auto_constant  = true
-      API.auto_method    = true
-      API.auto_unicode   = true
-
-      # Obsolete processor info constants
-
-      PROCESSOR_INTEL_386     = 386
-      PROCESSOR_INTEL_486     = 486
-      PROCESSOR_INTEL_PENTIUM = 586
-      PROCESSOR_INTEL_IA64    = 2200
-      PROCESSOR_AMD_X8664     = 8664
-
-      # Suite mask constants
-
-      VER_SERVER_NT                      = 0x80000000
-      VER_WORKSTATION_NT                 = 0x40000000
-      VER_SUITE_SMALLBUSINESS            = 0x00000001
-      VER_SUITE_ENTERPRISE               = 0x00000002
-      VER_SUITE_BACKOFFICE               = 0x00000004
-      VER_SUITE_COMMUNICATIONS           = 0x00000008
-      VER_SUITE_TERMINAL                 = 0x00000010
-      VER_SUITE_SMALLBUSINESS_RESTRICTED = 0x00000020
-      VER_SUITE_EMBEDDEDNT               = 0x00000040
-      VER_SUITE_DATACENTER               = 0x00000080
-      VER_SUITE_SINGLEUSERTS             = 0x00000100
-      VER_SUITE_PERSONAL                 = 0x00000200
-      VER_SUITE_BLADE                    = 0x00000400
-      VER_SUITE_EMBEDDED_RESTRICTED      = 0x00000800
-      VER_SUITE_SECURITY_APPLIANCE       = 0x00001000
-      VER_SUITE_STORAGE_SERVER           = 0x00002000
-      VER_SUITE_COMPUTE_SERVER           = 0x00004000
-
-      # Product mask constants
-
-      VER_NT_WORKSTATION       = 0x0000001
-      VER_NT_DOMAIN_CONTROLLER = 0x0000002
-      VER_NT_SERVER            = 0x0000003
-
-      # Platform definitions
-
-      VER_PLATFORM_WIN32s        = 0
-      VER_PLATFORM_WIN32_WINDOWS = 1
-      VER_PLATFORM_WIN32_NT      = 2
-
-      # Version info type constants
-
-      VER_MINORVERSION     = 0x0000001
-      VER_MAJORVERSION     = 0x0000002
-      VER_BUILDNUMBER      = 0x0000004
-      VER_PLATFORMID       = 0x0000008
-      VER_SERVICEPACKMINOR = 0x0000010
-      VER_SERVICEPACKMAJOR = 0x0000020
-      VER_SUITENAME        = 0x0000040
-      VER_PRODUCT_TYPE     = 0x0000080
-
-      # Enum COMPUTER_NAME_FORMAT
-
-      ComputerNameNetBIOS                    = 0
-      ComputerNameDnsHostname                = 1
-      ComputerNameDnsDomain                  = 2
-      ComputerNameDnsFullyQualified          = 3
-      ComputerNamePhysicalNetBIOS            = 4
-      ComputerNamePhysicalDnsHostname        = 5
-      ComputerNamePhysicalDnsDomain          = 6 
-      ComputerNamePhysicalDnsFullyQualified  = 7
-      ComputerNameMax                        = 8
-      
-      API.new('ExpandEnvironmentStrings', 'PPL', 'L')
-      API.new('GetComputerName', 'PP', 'B')
-      API.new('GetComputerNameEx', 'PPP', 'B')
-      API.new('GetSystemInfo', 'P', 'V')
-      API.new('GetUserName', 'PP', 'B', 'advapi32')
-      API.new('GetUserNameEx', 'LPP', 'B', 'secur32')
-      API.new('GetVersion', 'V', 'L')
-      API.new('GetVersionEx', 'P', 'B')
-      API.new('GetWindowsDirectory', 'PI', 'I')
-
-      begin
-         API.new('GetSystemWow64Directory', 'PI', 'I')
-      rescue Win32::API::LoadLibraryError
-         # XP or later
-      end
-
-      # These macros are from windef.h, but I've put them here for now
-      # since they can be used in conjunction with some of the functions
-      # declared in this module.
-
-      def MAKEWORD(a, b)
-         ((a & 0xff) | (b & 0xff)) << 8
-      end
-
-      def MAKELONG(a, b)
-         ((a & 0xffff) | (b & 0xffff)) << 16
-      end
-
-      def LOWORD(l)
-         l & 0xffff
-      end
-
-      def HIWORD(l)
-         l >> 16
-      end
-
-      def LOBYTE(w)
-         w & 0xff
-      end
-
-      def HIBYTE(w)
-         w >> 8
-      end
-      
-      # Returns a float indicating the major and minor version of Windows,
-      # e.g. 5.1, 6.0, etc.
-      #
-      def windows_version
-         version = GetVersion()
-         major = LOBYTE(LOWORD(version))
-         minor = HIBYTE(LOWORD(version))
-         eval("Float(#{major}.#{minor})")
-      end
-      
-      # Custom methods that may come in handy
-
-      # Returns true if the current platform is Vista (any variant) or Windows
-      # Server 2008, i.e. major version 6, minor version 0. 
-      #
-      def windows_2000?
-         version = GetVersion()
-         LOBYTE(LOWORD(version)) == 5 && HIBYTE(LOWORD(version)) == 0
-      end
-      
-      # Returns true if the current platform is Windows XP or Windows XP
-      # Pro, i.e. major version 5, minor version 1 (or 2 in the case of a
-      # 64-bit Windows XP Pro).
-      #--
-      # Because of the exception for a 64-bit Windows XP Pro, we have to
-      # do things the hard way. For version 2 we look for any of the suite
-      # masks that might be associated with Windows 2003. If we don't find
-      # any of them, assume it's Windows XP.
-      #
-      def windows_xp?
-         bool = false
-
-         buf = 0.chr * 156
-         buf[0,4] = [buf.size].pack("L") # Set dwOSVersionInfoSize
-
-         GetVersionEx(buf)
-
-         major = buf[4,4].unpack("L")[0]
-         minor = buf[8,4].unpack("L")[0]
-         suite = buf[152,2].unpack("S")[0]
-
-         # Make sure we detect a 64-bit Windows XP Pro
-         if major == 5
-            if minor == 1
-               bool = true
-            elsif minor == 2
-               if (suite & VER_SUITE_BLADE == 0)          &&
-                  (suite & VER_SUITE_COMPUTE_SERVER == 0) &&
-                  (suite & VER_SUITE_DATACENTER == 0)     &&
-                  (suite & VER_SUITE_ENTERPRISE == 0)     &&
-                  (suite & VER_SUITE_STORAGE_SERVER == 0)
-               then
-                  bool = true
-               end
-            else
-               # Do nothing - already false
-            end 
-         end
-
-         bool
-      end
-
-      # Returns true if the current platform is Windows 2003 (any version).
-      # i.e. major version 5, minor version 2.
-      #--
-      # Because of the exception for a 64-bit Windows XP Pro, we have to
-      # do things the hard way. For version 2 we look for any of the suite
-      # masks that might be associated with Windows 2003. If we find any
-      # of them, assume it's Windows 2003.
-      #
-      def windows_2003?
-         bool = false
-
-         buf = 0.chr * 156
-         buf[0,4] = [buf.size].pack("L") # Set dwOSVersionInfoSize
-
-         GetVersionEx(buf)
-
-         major = buf[4,4].unpack("L")[0]
-         minor = buf[8,4].unpack("L")[0]
-         suite = buf[152,2].unpack("S")[0]
-
-         # Make sure we exclude a 64-bit Windows XP Pro
-         if major == 5 && minor == 2
-            if (suite & VER_SUITE_BLADE > 0)          ||
-               (suite & VER_SUITE_COMPUTE_SERVER > 0) ||
-               (suite & VER_SUITE_DATACENTER > 0)     ||
-               (suite & VER_SUITE_ENTERPRISE > 0)     ||
-               (suite & VER_SUITE_STORAGE_SERVER > 0)
-            then
-               bool = true
-            end
-         end
-
-         bool
-      end
-
-      # Returns true if the current platform is Windows Vista (any variant)
-      # or Windows Server 2008, i.e. major version 6, minor version 0. 
-      #
-      def windows_vista?
-         version = GetVersion()
-         LOBYTE(LOWORD(version)) == 6 && HIBYTE(LOWORD(version)) == 0
-      end
-   end
-end
+require 'windows/api'
+
+module Windows
+  module SystemInfo
+    API.auto_namespace = 'Windows::SystemInfo'
+    API.auto_constant  = true
+    API.auto_method    = true
+    API.auto_unicode   = true
+
+    # Obsolete processor info constants
+
+    PROCESSOR_INTEL_386     = 386
+    PROCESSOR_INTEL_486     = 486
+    PROCESSOR_INTEL_PENTIUM = 586
+    PROCESSOR_INTEL_IA64    = 2200
+    PROCESSOR_AMD_X8664     = 8664
+
+    # Suite mask constants
+
+    VER_SERVER_NT                      = 0x80000000
+    VER_WORKSTATION_NT                 = 0x40000000
+    VER_SUITE_SMALLBUSINESS            = 0x00000001
+    VER_SUITE_ENTERPRISE               = 0x00000002
+    VER_SUITE_BACKOFFICE               = 0x00000004
+    VER_SUITE_COMMUNICATIONS           = 0x00000008
+    VER_SUITE_TERMINAL                 = 0x00000010
+    VER_SUITE_SMALLBUSINESS_RESTRICTED = 0x00000020
+    VER_SUITE_EMBEDDEDNT               = 0x00000040
+    VER_SUITE_DATACENTER               = 0x00000080
+    VER_SUITE_SINGLEUSERTS             = 0x00000100
+    VER_SUITE_PERSONAL                 = 0x00000200
+    VER_SUITE_BLADE                    = 0x00000400
+    VER_SUITE_EMBEDDED_RESTRICTED      = 0x00000800
+    VER_SUITE_SECURITY_APPLIANCE       = 0x00001000
+    VER_SUITE_STORAGE_SERVER           = 0x00002000
+    VER_SUITE_COMPUTE_SERVER           = 0x00004000
+
+    # Product mask constants
+
+    VER_NT_WORKSTATION       = 0x0000001
+    VER_NT_DOMAIN_CONTROLLER = 0x0000002
+    VER_NT_SERVER            = 0x0000003
+
+    # Platform definitions
+
+    VER_PLATFORM_WIN32s        = 0
+    VER_PLATFORM_WIN32_WINDOWS = 1
+    VER_PLATFORM_WIN32_NT      = 2
+
+    # Version info type constants
+
+    VER_MINORVERSION     = 0x0000001
+    VER_MAJORVERSION     = 0x0000002
+    VER_BUILDNUMBER      = 0x0000004
+    VER_PLATFORMID       = 0x0000008
+    VER_SERVICEPACKMINOR = 0x0000010
+    VER_SERVICEPACKMAJOR = 0x0000020
+    VER_SUITENAME        = 0x0000040
+    VER_PRODUCT_TYPE     = 0x0000080
+
+    # Enum COMPUTER_NAME_FORMAT
+
+    ComputerNameNetBIOS                    = 0
+    ComputerNameDnsHostname                = 1
+    ComputerNameDnsDomain                  = 2
+    ComputerNameDnsFullyQualified          = 3
+    ComputerNamePhysicalNetBIOS            = 4
+    ComputerNamePhysicalDnsHostname        = 5
+    ComputerNamePhysicalDnsDomain          = 6
+    ComputerNamePhysicalDnsFullyQualified  = 7
+    ComputerNameMax                        = 8
+
+    API.new('ExpandEnvironmentStrings', 'PPL', 'L')
+    API.new('GetComputerName', 'PP', 'B')
+    API.new('GetComputerNameEx', 'PPP', 'B')
+    API.new('GetSystemInfo', 'P', 'V')
+    API.new('GetUserName', 'PP', 'B', 'advapi32')
+    API.new('GetUserNameEx', 'LPP', 'B', 'secur32')
+    API.new('GetVersion', 'V', 'L')
+    API.new('GetVersionEx', 'P', 'B')
+    API.new('GetWindowsDirectory', 'PI', 'I')
+
+    begin
+       API.new('GetSystemWow64Directory', 'PI', 'I')
+    rescue Win32::API::LoadLibraryError
+       # XP or later
+    end
+
+    # These macros are from windef.h, but I've put them here for now
+    # since they can be used in conjunction with some of the functions
+    # declared in this module.
+
+    def MAKEWORD(a, b)
+      ((a & 0xff) | (b & 0xff)) << 8
+    end
+
+    def MAKELONG(a, b)
+      ((a & 0xffff) | (b & 0xffff)) << 16
+    end
+
+    def LOWORD(l)
+      l & 0xffff
+    end
+
+    def HIWORD(l)
+      l >> 16
+    end
+
+    def LOBYTE(w)
+      w & 0xff
+    end
+
+    def HIBYTE(w)
+      w >> 8
+    end
+
+    # Returns a float indicating the major and minor version of Windows,
+    # e.g. 5.1, 6.0, etc.
+    #
+    def windows_version
+      version = GetVersion()
+      major = LOBYTE(LOWORD(version))
+      minor = HIBYTE(LOWORD(version))
+      eval("Float(#{major}.#{minor})")
+    end
+
+    # Custom methods that may come in handy
+
+    # Returns true if the current platform is Vista (any variant) or Windows
+    # Server 2008, i.e. major version 6, minor version 0.
+    #
+    def windows_2000?
+      version = GetVersion()
+      LOBYTE(LOWORD(version)) == 5 && HIBYTE(LOWORD(version)) == 0
+    end
+
+    # Returns true if the current platform is Windows XP or Windows XP
+    # Pro, i.e. major version 5, minor version 1 (or 2 in the case of a
+    # 64-bit Windows XP Pro).
+    #--
+    # Because of the exception for a 64-bit Windows XP Pro, we have to
+    # do things the hard way. For version 2 we look for any of the suite
+    # masks that might be associated with Windows 2003. If we don't find
+    # any of them, assume it's Windows XP.
+    #
+    def windows_xp?
+      bool = false
+
+      buf = 0.chr * 156
+      buf[0,4] = [buf.size].pack("L") # Set dwOSVersionInfoSize
+
+      GetVersionEx(buf)
+
+      major = buf[4,4].unpack("L")[0]
+      minor = buf[8,4].unpack("L")[0]
+      suite = buf[152,2].unpack("S")[0]
+
+      # Make sure we detect a 64-bit Windows XP Pro
+      if major == 5
+        if minor == 1
+          bool = true
+        elsif minor == 2
+          if (suite & VER_SUITE_BLADE == 0)          &&
+             (suite & VER_SUITE_COMPUTE_SERVER == 0) &&
+             (suite & VER_SUITE_DATACENTER == 0)     &&
+             (suite & VER_SUITE_ENTERPRISE == 0)     &&
+             (suite & VER_SUITE_STORAGE_SERVER == 0)
+          then
+            bool = true
+          end
+        else
+          # Do nothing - already false
+        end
+      end
+
+      bool
+    end
+
+    # Returns true if the current platform is Windows 2003 (any version).
+    # i.e. major version 5, minor version 2.
+    #--
+    # Because of the exception for a 64-bit Windows XP Pro, we have to
+    # do things the hard way. For version 2 we look for any of the suite
+    # masks that might be associated with Windows 2003. If we find any
+    # of them, assume it's Windows 2003.
+    #
+    def windows_2003?
+      bool = false
+
+      buf = 0.chr * 156
+      buf[0,4] = [buf.size].pack("L") # Set dwOSVersionInfoSize
+
+      GetVersionEx(buf)
+
+      major = buf[4,4].unpack("L")[0]
+      minor = buf[8,4].unpack("L")[0]
+      suite = buf[152,2].unpack("S")[0]
+
+      # Make sure we exclude a 64-bit Windows XP Pro
+      if major == 5 && minor == 2
+        if (suite & VER_SUITE_BLADE > 0)          ||
+           (suite & VER_SUITE_COMPUTE_SERVER > 0) ||
+           (suite & VER_SUITE_DATACENTER > 0)     ||
+           (suite & VER_SUITE_ENTERPRISE > 0)     ||
+           (suite & VER_SUITE_STORAGE_SERVER > 0)
+        then
+          bool = true
+        end
+      end
+
+      bool
+    end
+
+    # Returns true if the current platform is Windows Vista (any variant)
+    # or Windows Server 2008, i.e. major version 6, minor version 0.
+    #
+    def windows_vista?
+      version = GetVersion()
+      LOBYTE(LOWORD(version)) == 6 && HIBYTE(LOWORD(version)) == 0
+    end
+
+    def windows_7?
+      version = GetVersion()
+      LOBYTE(LOWORD(version)) == 6 && HIBYTE(LOWORD(version)) == 1
+    end
+  end
+end