windows-pr 1.1.3 → 1.2.0

data/lib/windows/window/properties.rb

@@ -1,18 +1,20 @@
-require 'windows/api'
-
-module Windows
-   module Window
-      module Properties
-         API.auto_namespace = 'Windows::Window::Properties'
-         API.auto_constant  = true
-         API.auto_method    = true
-         API.auto_unicode   = true
-
-         API.new('EnumProps', 'LK', 'I', 'user32')
-         API.new('EnumPropsEx', 'LKL', 'I', 'user32')
-         API.new('GetProp', 'LP', 'L', 'user32')
-         API.new('RemoveProp', 'LP', 'L', 'user32')
-         API.new('SetProp', 'LPL', 'B', 'user32')
-      end
-   end
-end
+require 'windows/api'
+
+module Windows
+  module Window
+    module Properties
+      API.auto_namespace = 'Windows::Window::Properties'
+      API.auto_constant  = true
+      API.auto_method    = true
+      API.auto_unicode   = true
+
+      private
+
+      API.new('EnumProps', 'LK', 'I', 'user32')
+      API.new('EnumPropsEx', 'LKL', 'I', 'user32')
+      API.new('GetProp', 'LP', 'L', 'user32')
+      API.new('RemoveProp', 'LP', 'L', 'user32')
+      API.new('SetProp', 'LPL', 'B', 'user32')
+    end
+  end
+end

data/lib/windows/window/timer.rb

@@ -1,17 +1,19 @@
-require 'windows/api'
-
-module Windows
-   module Window
-      module Timer
-         API.auto_namespace = 'Windows::Window::Timer'
-         API.auto_constant  = true
-         API.auto_method    = true
-         API.auto_unicode   = false
-
-         API.new('KillTimer', 'LP', 'B', 'user32')
-         API.new('QueryPerformanceCounter', 'P', 'B')
-         API.new('QueryPerformanceFrequency', 'P', 'B')
-         API.new('SetTimer', 'LIIK', 'P', 'user32')
-      end
-   end
-end
+require 'windows/api'
+
+module Windows
+  module Window
+    module Timer
+      API.auto_namespace = 'Windows::Window::Timer'
+      API.auto_constant  = true
+      API.auto_method    = true
+      API.auto_unicode   = false
+
+      private
+
+      API.new('KillTimer', 'LP', 'B', 'user32')
+      API.new('QueryPerformanceCounter', 'P', 'B')
+      API.new('QueryPerformanceFrequency', 'P', 'B')
+      API.new('SetTimer', 'LIIK', 'P', 'user32')
+    end
+  end
+end

data/lib/windows/wsa.rb

@@ -0,0 +1,102 @@
+require 'windows/api'
+
+module Windows
+  module WSA
+    API.auto_namespace = 'Windows::WSA'
+    API.auto_constant  = true
+    API.auto_method    = true
+    API.auto_unicode   = true
+
+    private
+
+    # Constants
+
+    WSA_FLAG_OVERLAPPED             = 0x01
+    WSA_FLAG_MULTIPOINT_C_ROOT      = 0x02
+    WSA_FLAG_MULTIPOINT_C_LEAF      = 0x04
+    WSA_FLAG_MULTIPOINT_D_ROOT      = 0x08
+    WSA_FLAG_MULTIPOINT_D_LEAF      = 0x10
+    WSA_FLAG_ACCESS_SYSTEM_SECURITY = 0x40
+    WSA_FLAG_NO_HANDLE_INHERIT      = 0x80
+
+    RNRSERVICE_REGISTER   = 0
+    RNRSERVICE_DEREGISTER = 1
+    RNRSERVICE_DELETE     = 2
+    
+    # Functions
+
+    API.new('WSAAccept', 'LPPKP', 'L', 'ws2_32')
+    API.new('WSAAddressToString', 'PLPPP', 'I', 'ws2_32')
+    API.new('WSAAsyncGetHostByAddr', 'LISIIPI', 'L', 'ws2_32')
+    API.new('WSAAsyncGetHostByName', 'LISPI', 'L', 'ws2_32')
+    API.new('WSAAsyncGetProtoByName', 'LISPI', 'L', 'ws2_32')
+    API.new('WSAAsyncGetProtoByNumber', 'LISPI', 'L', 'ws2_32')
+    API.new('WSAAsyncGetServByName', 'LISSPI', 'L', 'ws2_32')
+    API.new('WSAAsyncGetServByPort', 'LIISPI', 'L', 'ws2_32')
+    API.new('WSAAsyncSelect', 'LLIL', 'I', 'ws2_32')
+    API.new('WSACancelAsyncRequest', 'L', 'I', 'ws2_32')
+    API.new('WSACleanup', 'V', 'I', 'ws2_32')
+    API.new('WSACloseEvent', 'I', 'B', 'ws2_32')
+    API.new('WSAConnect', 'LPIPPPP', 'I', 'ws2_32')
+    API.new('WSACreateEvent', 'V', 'L', 'ws2_32')
+    API.new('WSADuplicateSocket', 'LLP', 'I', 'ws2_32')
+    API.new('WSAEnumNetworkEvents', 'LLP', 'I', 'ws2_32')
+    API.new('WSAEnumProtocols', 'PPP', 'I', 'ws2_32')
+    API.new('WSAEventSelect', 'LLL', 'I', 'ws2_32')
+    API.new('WSAGetLastError', 'V', 'I', 'ws2_32')
+    API.new('WSAGetOverlappedResult', 'LPPIP', 'B', 'ws2_32')
+    API.new('WSAGetQOSByName', 'LPP', 'B', 'ws2_32')
+    API.new('WSAGetServiceClassInfo', 'PPPP', 'I', 'ws2_32')
+    API.new('WSAGetServiceClassNameByClassId', 'PPP', 'I', 'ws2_32')
+    API.new('WSAHtonl', 'LLP', 'I', 'ws2_32')
+    API.new('WSAHtons', 'LIP', 'I', 'ws2_32')
+    API.new('WSAInstallServiceClass', 'P', 'I', 'ws2_32')
+    API.new('WSAIoctl', 'LLPLPLPPP', 'I', 'ws2_32')
+    API.new('WSAJoinLeaf', 'LPIPPPPL', 'L', 'ws2_32')
+    API.new('WSALookupServiceBegin', 'PLP', 'I', 'ws2_32')
+    API.new('WSALookupServiceEnd', 'L', 'I', 'ws2_32')
+    API.new('WSALookupServiceNext', 'LLPP', 'I', 'ws2_32')
+    API.new('WSANtohl', 'LLP', 'I', 'ws2_32')
+    API.new('WSANtohs', 'LIP', 'I', 'ws2_32')
+    API.new('WSAProviderConfigChange', 'PPP', 'I', 'ws2_32')
+    API.new('WSARecv', 'LPLPPPP', 'I', 'ws2_32')
+    API.new('WSARecvDisconnect', 'LP', 'I', 'ws2_32')
+    API.new('WSARecvEx', 'LPIP', 'I', 'mswsock')
+    API.new('WSARecvFrom', 'LPLPPPPPP', 'I', 'ws2_32')
+    API.new('WSARemoveServiceClass', 'P', 'I', 'ws2_32')
+    API.new('WSAResetEvent', 'L', 'B', 'ws2_32')
+    API.new('WSASend', 'LPLPLPP', 'I', 'ws2_32')
+    API.new('WSASendDisconnect', 'LP', 'I', 'ws2_32')
+    API.new('WSASendTo', 'LPLPLPIPP', 'I', 'ws2_32')
+    API.new('WSASetEvent', 'L', 'B', 'ws2_32')
+    API.new('WSASetLastError', 'I', 'V', 'ws2_32')
+    API.new('WSASetService', 'PIL', 'I', 'ws2_32')
+    API.new('WSAStartup', 'LP', 'I', 'ws2_32')
+    API.new('WSASocket', 'IIIPLL', 'L', 'ws2_32')
+    API.new('WSAStringToAddress', 'PIPPP', 'I', 'ws2_32')
+    API.new('WSAWaitForMultipleEvents', 'LPILI', 'L', 'ws2_32')
+
+    begin
+      API.new('WSAConnectByList', 'LPPPPPPP', 'B', 'ws2_32')
+      API.new('WSAConnectByName', 'LPPPPPPP', 'B', 'ws2_32')
+      API.new('WSADeleteSocketPeerTargetName', 'LPLPP', 'L', 'fwpuclnt')
+      API.new('WSAEnumNameSpaceProvidersEx', 'PP', 'I', 'ws2_32')
+      API.new('WSAPoll', 'PLI', 'I', 'ws2_32')
+      API.new('WSAQuerySocketSecurity', 'LPLPPPP', 'I', 'fwpuclnt')
+      API.new('WSARevertImpersonation', 'V', 'I', 'fwpuclnt')
+      API.new('WSASendMsg', 'LPLPPP', 'I', 'ws2_32')
+      API.new('WSASetSocketPeerTargetName', 'LPLPP', 'I', 'fwpuclnt')
+      API.new('WSASetSocketSecurity', 'LPLPP', 'I', 'fwpuclnt')
+    rescue Win32::API::LoadLibraryError
+      # Vista or later
+    end
+
+    begin
+      API.new('WSAEnumNameSpaceProviders', 'PP', 'I', 'ws2_32')
+      API.new('WSAImpersonateSocketPeer', 'LPL', 'I', 'fwpuclnt')
+      API.new('WSANSPIoctl', 'LLPLPLPP', 'I', 'ws2_32')
+    rescue Win32::API::LoadLibraryError
+      # XP or later
+    end
+  end
+end

data/test/tc_clipboard.rb

@@ -1,41 +1,41 @@
-#####################################################################
-# tc_clipboard.rb
-#
-# Test case for the Windows::Clipboard module.
-#####################################################################
-require 'windows/clipboard'
-require 'test/unit'
-
-class TC_Windows_Clipboard < Test::Unit::TestCase
-   include Windows::Clipboard
-
-   def test_methods
-      assert_respond_to(self, :OpenClipboard)
-      assert_respond_to(self, :CloseClipboard)
-      assert_respond_to(self, :GetClipboardData)
-      assert_respond_to(self, :EmptyClipboard)
-      assert_respond_to(self, :SetClipboardData)
-      assert_respond_to(self, :CountClipboardFormats)
-      assert_respond_to(self, :IsClipboardFormatAvailable)
-      assert_respond_to(self, :GetClipboardFormatName)
-      assert_respond_to(self, :EnumClipboardFormats)
-      assert_respond_to(self, :RegisterClipboardFormat)
-   end
-
-   def test_constants
-      assert_equal(1, CF_TEXT)
-      assert_equal(2, CF_BITMAP)
-      assert_equal(3, CF_METAFILEPICT)
-      assert_equal(4, CF_SYLK)
-      assert_equal(5, CF_DIF)
-      assert_equal(6, CF_TIFF)
-      assert_equal(7, CF_OEMTEXT)
-      assert_equal(8, CF_DIB)
-      assert_equal(9, CF_PALETTE)
-      assert_equal(10, CF_PENDATA)
-      assert_equal(11, CF_RIFF)
-      assert_equal(12, CF_WAVE)
-      assert_equal(13, CF_UNICODETEXT)
-      assert_equal(14, CF_ENHMETAFILE)
-   end
-end
+#####################################################################
+# tc_clipboard.rb
+#
+# Test case for the Windows::Clipboard module.
+#####################################################################
+require 'windows/clipboard'
+require 'test/unit'
+
+class TC_Windows_Clipboard < Test::Unit::TestCase
+   include Windows::Clipboard
+
+   def test_methods
+      assert_respond_to(self, :OpenClipboard)
+      assert_respond_to(self, :CloseClipboard)
+      assert_respond_to(self, :GetClipboardData)
+      assert_respond_to(self, :EmptyClipboard)
+      assert_respond_to(self, :SetClipboardData)
+      assert_respond_to(self, :CountClipboardFormats)
+      assert_respond_to(self, :IsClipboardFormatAvailable)
+      assert_respond_to(self, :GetClipboardFormatName)
+      assert_respond_to(self, :EnumClipboardFormats)
+      assert_respond_to(self, :RegisterClipboardFormat)
+   end
+
+   def test_constants
+      assert_equal(1, CF_TEXT)
+      assert_equal(2, CF_BITMAP)
+      assert_equal(3, CF_METAFILEPICT)
+      assert_equal(4, CF_SYLK)
+      assert_equal(5, CF_DIF)
+      assert_equal(6, CF_TIFF)
+      assert_equal(7, CF_OEMTEXT)
+      assert_equal(8, CF_DIB)
+      assert_equal(9, CF_PALETTE)
+      assert_equal(10, CF_PENDATA)
+      assert_equal(11, CF_RIFF)
+      assert_equal(12, CF_WAVE)
+      assert_equal(13, CF_UNICODETEXT)
+      assert_equal(14, CF_ENHMETAFILE)
+   end
+end

data/test/tc_com.rb

@@ -1,32 +1,32 @@
-#####################################################################
-# tc_com.rb
-#
-# Test case for the Windows::COM module.
-#####################################################################
-require "windows/com"
-require "test/unit"
-
-class TC_Windows_COM < Test::Unit::TestCase
-   include Windows::COM
-
-   def test_method_constants
-      assert_respond_to(self, :BindMoniker)
-      assert_respond_to(self, :CLSIDFromProgID)
-      assert_respond_to(self, :CLSIDFromProgIDEx)
-      assert_respond_to(self, :CoAddRefServerProcess)
-      assert_respond_to(self, :CoAllowSetForegroundWindow)
-      assert_respond_to(self, :CoCancelCall)
-      assert_respond_to(self, :CoCopyProxy)
-      assert_respond_to(self, :CoCreateFreeThreadedMarshaler)
-      assert_respond_to(self, :CoCreateGuid)
-      assert_respond_to(self, :CoCreateInstance)
-   end
-
-   def test_numeric_constants
-      assert_equal(0, VT_EMPTY)
-      assert_equal(1, VT_NULL)
-      assert_equal(2, VT_I2)
-      assert_equal(3, VT_I4)
-      assert_equal(4, VT_R4)
-   end
-end
+#####################################################################
+# tc_com.rb
+#
+# Test case for the Windows::COM module.
+#####################################################################
+require "windows/com"
+require "test/unit"
+
+class TC_Windows_COM < Test::Unit::TestCase
+   include Windows::COM
+
+   def test_method_constants
+      assert_respond_to(self, :BindMoniker)
+      assert_respond_to(self, :CLSIDFromProgID)
+      assert_respond_to(self, :CLSIDFromProgIDEx)
+      assert_respond_to(self, :CoAddRefServerProcess)
+      assert_respond_to(self, :CoAllowSetForegroundWindow)
+      assert_respond_to(self, :CoCancelCall)
+      assert_respond_to(self, :CoCopyProxy)
+      assert_respond_to(self, :CoCreateFreeThreadedMarshaler)
+      assert_respond_to(self, :CoCreateGuid)
+      assert_respond_to(self, :CoCreateInstance)
+   end
+
+   def test_numeric_constants
+      assert_equal(0, VT_EMPTY)
+      assert_equal(1, VT_NULL)
+      assert_equal(2, VT_I2)
+      assert_equal(3, VT_I4)
+      assert_equal(4, VT_R4)
+   end
+end

data/test/tc_com_automation.rb

@@ -1,15 +1,15 @@
-#####################################################################
-# tc_com_automation.rb
-#
-# Test case for the Windows::COM::Automation module.
-#####################################################################
-require 'windows/com/automation'
-require 'test/unit'
-
-class TC_Windows_COM_Automation < Test::Unit::TestCase
-   include Windows::COM::Automation
-
-   def test_method_constants
-      assert_respond_to(self, :BstrFromVector)
-   end
-end
+#####################################################################
+# tc_com_automation.rb
+#
+# Test case for the Windows::COM::Automation module.
+#####################################################################
+require 'windows/com/automation'
+require 'test/unit'
+
+class TC_Windows_COM_Automation < Test::Unit::TestCase
+   include Windows::COM::Automation
+
+   def test_method_constants
+      assert_respond_to(self, :BstrFromVector)
+   end
+end

data/test/tc_console.rb

@@ -1,108 +1,108 @@
-######################################################################
-# tc_console.rb
-#
-# Test case for the Windows::Console module.
-######################################################################
-require 'windows/console'
-require 'test/unit'
-
-class TC_Windows_Console < Test::Unit::TestCase
-   include Windows::Console
-
-   def setup
-      @ver = `ver`.chomp
-   end
-
-   def test_numeric_constants
-      assert_equal(0, CTRL_C_EVENT)
-      assert_equal(1, CTRL_BREAK_EVENT)
-      assert_equal(5, CTRL_LOGOFF_EVENT)
-      assert_equal(6, CTRL_SHUTDOWN_EVENT)
-      assert_equal(0x0001, ENABLE_PROCESSED_INPUT)
-      assert_equal(0x0002, ENABLE_LINE_INPUT)
-      assert_equal(0x0002, ENABLE_WRAP_AT_EOL_OUTPUT)
-      assert_equal(0x0004, ENABLE_ECHO_INPUT)
-      assert_equal(0x0008, ENABLE_WINDOW_INPUT)
-      assert_equal(0x0010, ENABLE_MOUSE_INPUT)
-      assert_equal(0x0020, ENABLE_INSERT_MODE)
-      assert_equal(0x0040, ENABLE_QUICK_EDIT_MODE)
-      assert_equal(-10, STD_INPUT_HANDLE)
-      assert_equal(-11, STD_OUTPUT_HANDLE)
-      assert_equal(-12, STD_ERROR_HANDLE)
-   end
-
-   def test_method_constants
-      assert_respond_to(self, :AddConsoleAlias)
-      assert_respond_to(self, :AllocConsole)
-      assert_respond_to(self, :CreateConsoleScreenBuffer)
-      assert_respond_to(self, :FillConsoleOutputAttribute)
-      assert_respond_to(self, :FillConsoleOutputCharacter)
-      assert_respond_to(self, :FlushConsoleInputBuffer)
-      assert_respond_to(self, :FreeConsole)
-      assert_respond_to(self, :GenerateConsoleCtrlEvent)
-      assert_respond_to(self, :GetConsoleAlias)
-      assert_respond_to(self, :GetConsoleAliases)
-      assert_respond_to(self, :GetConsoleAliasesLength)
-      assert_respond_to(self, :GetConsoleAliasExes)
-      assert_respond_to(self, :GetConsoleAliasExesLength)
-      assert_respond_to(self, :GetConsoleCP)
-      assert_respond_to(self, :GetConsoleCursorInfo)
-      assert_respond_to(self, :GetConsoleMode)
-      assert_respond_to(self, :GetConsoleOutputCP)
-      assert_respond_to(self, :GetConsoleScreenBufferInfo)
-      assert_respond_to(self, :GetConsoleTitle)
-      assert_respond_to(self, :GetConsoleWindow)
-      assert_respond_to(self, :GetLargestConsoleWindowSize)
-      assert_respond_to(self, :GetNumberOfConsoleInputEvents)
-      assert_respond_to(self, :GetNumberOfConsoleMouseButtons)
-      assert_respond_to(self, :GetStdHandle)
-      assert_respond_to(self, :PeekConsoleInput)
-      assert_respond_to(self, :ReadConsole)
-      assert_respond_to(self, :ReadConsoleInput)
-      assert_respond_to(self, :ReadConsoleOutput)
-      assert_respond_to(self, :ReadConsoleOutputAttribute)
-      assert_respond_to(self, :ReadConsoleOutputCharacter)
-      assert_respond_to(self, :ScrollConsoleScreenBuffer)
-      assert_respond_to(self, :SetConsoleActiveScreenBuffer)
-      assert_respond_to(self, :SetConsoleCP)
-      assert_respond_to(self, :SetConsoleCtrlHandler)
-      assert_respond_to(self, :SetConsoleCursorInfo)
-      assert_respond_to(self, :SetConsoleCursorPosition)
-      assert_respond_to(self, :SetConsoleMode)
-      assert_respond_to(self, :SetConsoleOutputCP)
-      assert_respond_to(self, :SetConsoleScreenBufferSize)
-      assert_respond_to(self, :SetConsoleTextAttribute)
-      assert_respond_to(self, :SetConsoleTitle)
-      assert_respond_to(self, :SetConsoleWindowInfo)
-      assert_respond_to(self, :SetStdHandle)
-      assert_respond_to(self, :WriteConsole)
-      assert_respond_to(self, :WriteConsoleInput)
-      assert_respond_to(self, :WriteConsoleOutput)
-      assert_respond_to(self, :WriteConsoleOutputAttribute)
-      assert_respond_to(self, :WriteConsoleOutputCharacter)
-   end
-
-   def test_method_constants_xp_or_later
-      if @ver =~ /XP/
-         assert_respond_to(self, :AttachConsole)
-         assert_respond_to(self, :GetConsoleDisplayMode)
-         assert_respond_to(self, :GetConsoleFontSize)
-         assert_respond_to(self, :GetConsoleProcessList)
-         assert_respond_to(self, :GetConsoleSelectionInfo)
-         assert_respond_to(self, :GetCurrentConsoleFont)
-         assert_respond_to(self, :SetConsoleDisplayMode)
-      end
-   end
-
-   def test_explicit_ansi
-      assert_respond_to(self, :GetConsoleAliasA)
-   end
-
-   def test_explicit_unicode
-      assert_respond_to(self, :GetConsoleAliasW)
-   end
-
-   def teardown
-      @ver = nil
-   end
-end
+######################################################################
+# tc_console.rb
+#
+# Test case for the Windows::Console module.
+######################################################################
+require 'windows/console'
+require 'test/unit'
+
+class TC_Windows_Console < Test::Unit::TestCase
+   include Windows::Console
+
+   def setup
+      @ver = `ver`.chomp
+   end
+
+   def test_numeric_constants
+      assert_equal(0, CTRL_C_EVENT)
+      assert_equal(1, CTRL_BREAK_EVENT)
+      assert_equal(5, CTRL_LOGOFF_EVENT)
+      assert_equal(6, CTRL_SHUTDOWN_EVENT)
+      assert_equal(0x0001, ENABLE_PROCESSED_INPUT)
+      assert_equal(0x0002, ENABLE_LINE_INPUT)
+      assert_equal(0x0002, ENABLE_WRAP_AT_EOL_OUTPUT)
+      assert_equal(0x0004, ENABLE_ECHO_INPUT)
+      assert_equal(0x0008, ENABLE_WINDOW_INPUT)
+      assert_equal(0x0010, ENABLE_MOUSE_INPUT)
+      assert_equal(0x0020, ENABLE_INSERT_MODE)
+      assert_equal(0x0040, ENABLE_QUICK_EDIT_MODE)
+      assert_equal(-10, STD_INPUT_HANDLE)
+      assert_equal(-11, STD_OUTPUT_HANDLE)
+      assert_equal(-12, STD_ERROR_HANDLE)
+   end
+
+   def test_method_constants
+      assert_respond_to(self, :AddConsoleAlias)
+      assert_respond_to(self, :AllocConsole)
+      assert_respond_to(self, :CreateConsoleScreenBuffer)
+      assert_respond_to(self, :FillConsoleOutputAttribute)
+      assert_respond_to(self, :FillConsoleOutputCharacter)
+      assert_respond_to(self, :FlushConsoleInputBuffer)
+      assert_respond_to(self, :FreeConsole)
+      assert_respond_to(self, :GenerateConsoleCtrlEvent)
+      assert_respond_to(self, :GetConsoleAlias)
+      assert_respond_to(self, :GetConsoleAliases)
+      assert_respond_to(self, :GetConsoleAliasesLength)
+      assert_respond_to(self, :GetConsoleAliasExes)
+      assert_respond_to(self, :GetConsoleAliasExesLength)
+      assert_respond_to(self, :GetConsoleCP)
+      assert_respond_to(self, :GetConsoleCursorInfo)
+      assert_respond_to(self, :GetConsoleMode)
+      assert_respond_to(self, :GetConsoleOutputCP)
+      assert_respond_to(self, :GetConsoleScreenBufferInfo)
+      assert_respond_to(self, :GetConsoleTitle)
+      assert_respond_to(self, :GetConsoleWindow)
+      assert_respond_to(self, :GetLargestConsoleWindowSize)
+      assert_respond_to(self, :GetNumberOfConsoleInputEvents)
+      assert_respond_to(self, :GetNumberOfConsoleMouseButtons)
+      assert_respond_to(self, :GetStdHandle)
+      assert_respond_to(self, :PeekConsoleInput)
+      assert_respond_to(self, :ReadConsole)
+      assert_respond_to(self, :ReadConsoleInput)
+      assert_respond_to(self, :ReadConsoleOutput)
+      assert_respond_to(self, :ReadConsoleOutputAttribute)
+      assert_respond_to(self, :ReadConsoleOutputCharacter)
+      assert_respond_to(self, :ScrollConsoleScreenBuffer)
+      assert_respond_to(self, :SetConsoleActiveScreenBuffer)
+      assert_respond_to(self, :SetConsoleCP)
+      assert_respond_to(self, :SetConsoleCtrlHandler)
+      assert_respond_to(self, :SetConsoleCursorInfo)
+      assert_respond_to(self, :SetConsoleCursorPosition)
+      assert_respond_to(self, :SetConsoleMode)
+      assert_respond_to(self, :SetConsoleOutputCP)
+      assert_respond_to(self, :SetConsoleScreenBufferSize)
+      assert_respond_to(self, :SetConsoleTextAttribute)
+      assert_respond_to(self, :SetConsoleTitle)
+      assert_respond_to(self, :SetConsoleWindowInfo)
+      assert_respond_to(self, :SetStdHandle)
+      assert_respond_to(self, :WriteConsole)
+      assert_respond_to(self, :WriteConsoleInput)
+      assert_respond_to(self, :WriteConsoleOutput)
+      assert_respond_to(self, :WriteConsoleOutputAttribute)
+      assert_respond_to(self, :WriteConsoleOutputCharacter)
+   end
+
+   def test_method_constants_xp_or_later
+      if @ver =~ /XP/
+         assert_respond_to(self, :AttachConsole)
+         assert_respond_to(self, :GetConsoleDisplayMode)
+         assert_respond_to(self, :GetConsoleFontSize)
+         assert_respond_to(self, :GetConsoleProcessList)
+         assert_respond_to(self, :GetConsoleSelectionInfo)
+         assert_respond_to(self, :GetCurrentConsoleFont)
+         assert_respond_to(self, :SetConsoleDisplayMode)
+      end
+   end
+
+   def test_explicit_ansi
+      assert_respond_to(self, :GetConsoleAliasA)
+   end
+
+   def test_explicit_unicode
+      assert_respond_to(self, :GetConsoleAliasW)
+   end
+
+   def teardown
+      @ver = nil
+   end
+end