windows-pr 0.7.2 → 0.7.3

data/CHANGES

@@ -1,3 +1,18 @@
+= 0.7.3 - 23-Nov-2007
+* Several thread related methods were moved out of the Windows::Process
+  module and into the Windows::Thread module.
+* Added critical section methods to the Windows::Synchronize module.
+* Added many more constants and methods to the Windows::Shell module.
+* Created the Windows::Thread module.
+* Fixed the PathCreateFromUrl return type in the Windows::Path module.
+* Added the strncpy and wcsncpy functions to the Windows::MSVCRT::String
+  module.
+* Added several token related methods and constants to the Windows::Security
+  module.
+* The multi_to_wide and wide_to_multi methods were refactored slightly. Both
+  now only use MSVCRT string functions internally in case any Ruby String
+  methods are redefined.  
+
 = 0.7.2 - 15-Oct-2007
 * Added the Windows::MSVCRT::Time module.
 * Added the Windows::MSVCRT::Directory module.

data/Rakefile

@@ -36,7 +36,6 @@ end
 
 Rake::TestTask.new do |t|
    t.libs << 'lib'
-   t.libs << 'lib/windows'
    t.warning = true
    t.test_files = FileList['test/tc*']
-end
+end

data/lib/windows/device_io.rb

@@ -69,6 +69,8 @@ module Windows
       FILE_DEVICE_FIPS                = 0x0000003A
       FILE_DEVICE_INFINIBAND          = 0x0000003B
       
+      FILE_ANY_ACCESS = 0
+      
       METHOD_BUFFERED   = 0
       METHOD_IN_DIRECT  = 1
       METHOD_OUT_DIRECT = 2

data/lib/windows/error.rb

@@ -32,6 +32,7 @@ module Windows
       SEM_NOGPFAULTERRORBOX      = 0x0002
       SEM_NOOPENFILEERRORBOX     = 0x8000
       
+      S_OK                      = 0
       NO_ERROR                  = 0
       ERROR_SUCCESS             = 0
       ERROR_INVALID_FUNCTION    = 1
@@ -71,6 +72,8 @@ module Windows
       ERROR_WRONG_DISK              = 34
       ERROR_FCB_UNAVAILABLE         = 35
       ERROR_SHARING_BUFFER_EXCEEDED = 36
+      ERROR_HANDLE_EOF              = 38
+      ERROR_HANDLE_DISK_FULL        = 39
       
       ERROR_NOT_SUPPORTED = 50
       

data/lib/windows/msvcrt/io.rb

@@ -40,6 +40,7 @@ module Windows
          Getwc     = API.new('getwc', 'L', 'L', 'msvcrt')
          Open      = API.new('_open', 'PPI', 'I', 'msvcrt')
          Rmtmp     = API.new('_rmtmp', 'V', 'I', 'msvcrt')
+         Setmode   = API.new('_setmode', 'II', 'I', 'msvcrt')
          Tempnam   = API.new('_tempnam', 'PP', 'P', 'msvcrt')
          Tmpfile   = API.new('tmpfile', 'V', 'L', 'msvcrt')
          Tmpnam    = API.new('tmpnam', 'P', 'P', 'msvcrt')
@@ -139,6 +140,10 @@ module Windows
          def open(file, flag, mode)
             Open.call(file, flag, mode)
          end
+         
+         def setmode(fd, mode)
+            Setmode.call(fd, mode)
+         end
 
          def tmpfile()
             Tmpfile.call

data/lib/windows/msvcrt/string.rb

@@ -8,20 +8,31 @@ module Windows
          API.auto_method   = false
          API.auto_unicode  = false
 
-         Strcmp = API.new('strcmp', 'PP', 'I', 'msvcrt')
-         Strcpy = API.new('strcpy', 'PL', 'L', 'msvcrt')
-         Strlen = API.new('strlen', 'P', 'L', 'msvcrt')
-         Strrev = API.new('_strrev', 'P', 'P', 'msvcrt')
+         Strcmp   = API.new('strcmp', 'PP', 'I', 'msvcrt')
+         Strcpy   = API.new('strcpy', 'PL', 'L', 'msvcrt')
+         Strcspn  = API.new('strcspn', 'PP', 'L', 'msvcrt')
+         Strlen   = API.new('strlen', 'P', 'L', 'msvcrt')
+         Strncpy  = API.new('strncpy', 'PPL', 'P', 'msvcrt')
+         Strrchr  = API.new('strrchr', 'PI', 'P', 'msvcrt')
+         Strrev   = API.new('_strrev', 'P', 'P', 'msvcrt')
+         Strtok   = API.new('strtok', 'PP', 'P', 'msvcrt')
         
-         Mbscmp = API.new('_mbscmp', 'PP', 'I', 'msvcrt')
-         Mbscpy = API.new('_mbscpy', 'PL', 'L', 'msvcrt')
-         Mbslen = API.new('_mbslen', 'P', 'L', 'msvcrt')
-         Mbsrev = API.new('_mbsrev', 'P', 'P', 'msvcrt')
-         
-         Wcscmp = API.new('wcscmp', 'PP', 'I', 'msvcrt')
-         Wcscpy = API.new('wcscpy', 'PL', 'L', 'msvcrt')
-         Wcslen = API.new('wcslen', 'P', 'L', 'msvcrt')
-         Wcsrev = API.new('_wcsrev', 'P', 'P', 'msvcrt')
+         Mbscmp   = API.new('_mbscmp', 'PP', 'I', 'msvcrt')
+         Mbscpy   = API.new('_mbscpy', 'PL', 'L', 'msvcrt')
+         Mbslen   = API.new('_mbslen', 'P', 'L', 'msvcrt')
+         Mbsrev   = API.new('_mbsrev', 'P', 'P', 'msvcrt')
+         
+         Wcscmp   = API.new('wcscmp', 'PP', 'I', 'msvcrt')
+         Wcscpy   = API.new('wcscpy', 'PL', 'L', 'msvcrt')
+         Wcslen   = API.new('wcslen', 'P', 'L', 'msvcrt')
+         Wcsncpy  = API.new('wcsncpy', 'PPL', 'P', 'msvcrt')
+         Wcsrev   = API.new('_wcsrev', 'P', 'P', 'msvcrt')
+         
+         begin
+            Strtok_s = API.new('strtok_s', 'PPI', 'P', 'msvcrt')
+         rescue RuntimeError
+            # Do nothing. Not supported on your system.
+         end
 
          def strcmp(str1, str2)
             if str1 == 0 || str2 == 0
@@ -40,11 +51,38 @@ module Windows
             Strlen.call(string)
          end
          
+         def strcspn(string, charset)
+            return nil if string == 0
+            Strcspn.call(string, charset)
+         end
+         
+         def strncpy(dest, source, count)
+            return nil if source == 0
+            Strncpy.call(dest, source, count)
+         end         
+         
+         def strrchr(string, int)
+            return nil if string == 0
+            Strrchr.call(string, int)
+         end
+         
          def strrev(str)
             return nil if str == 0
             Strrev.call(str)
          end
          
+         def strtok(token, delimeter)
+            return nil if token == 0 || delimeter == 0
+            Strtok.call(token, delimeter)
+         end
+
+         if defined? Strtok_s
+            def strtok_s(token, delimeter, context)
+               return nil if [token, delimter, context].include?(0)
+	            Strtok_s.call(token, delimeter, context)
+	         end
+         end         
+         
          def mbscmp(str1, str2)
             if str1 == 0 || str2 == 0
                return nil
@@ -84,6 +122,11 @@ module Windows
             Wcslen.call(string)
          end
          
+         def wcsncpy(dest, source, count)
+            return nil if source == 0
+            Wcsncpy.call(dest, source, count)
+         end          
+         
          def wcsrev(str)
             return nil if str == 0
             Wcsrev.call(str)

data/lib/windows/path.rb

@@ -24,7 +24,7 @@ module Windows
       API.new('PathCommonPrefix', 'PPP', 'I', 'shlwapi')
       API.new('PathCompactPath', 'PPI', 'B', 'shlwapi')
       API.new('PathCompactPathEx', 'PPIL', 'B', 'shlwapi')
-      API.new('PathCreateFromUrl', 'PPPL', 'B', 'shlwapi')
+      API.new('PathCreateFromUrl', 'PPPL', 'L', 'shlwapi')
       API.new('PathFileExists', 'P', 'B', 'shlwapi')
       API.new('PathFindExtension', 'P', 'P', 'shlwapi')
       API.new('PathFindFileName', 'P', 'P', 'shlwapi')

data/lib/windows/process.rb

@@ -58,8 +58,6 @@ module Windows
       STARTF_USEHOTKEY        = 0x00000200
       
       API.new('CreateProcess', 'LPLLLLLPPP', 'B')
-      API.new('CreateRemoteThread', 'LPLLPLP', 'L')
-      API.new('CreateThread', 'PLPPLP', 'L')
       API.new('ExitProcess', 'L', 'V')
       API.new('GetCommandLine', 'V', 'P')
       API.new('GetCurrentProcess', 'V', 'L')      
@@ -72,8 +70,6 @@ module Windows
       API.new('GetStartupInfo', 'P', 'V')
       API.new('OpenProcess', 'LIL', 'L')
       API.new('SetEnvironmentVariable', 'PP', 'I')
-      API.new('Sleep', 'L', 'V')
-      API.new('SleepEx', 'LI', 'L')
       API.new('TerminateProcess', 'LL', 'B')
       API.new('WaitForInputIdle', 'LL', 'L', 'user32')
       

data/lib/windows/security.rb

@@ -29,13 +29,40 @@ module Windows
       GENERIC_RIGHTS_MASK = 4026597376
       GENERIC_RIGHTS_CHK  = 4026531840
       REST_RIGHTS_MASK    = 2097151
+
+      TOKEN_READ              = 131080
+      TOKEN_WRITE             = 131296
+      TOKEN_EXECUTE           = 131072
+      TOKEN_ASSIGN_PRIMARY    = 0x0001
+      TOKEN_DUPLICATE         = 0x0002
+      TOKEN_IMPERSONATE       = 0x0004
+      TOKEN_QUERY             = 0x0008
+      TOKEN_QUERY_SOURCE      = 0x0010
+      TOKEN_ADJUST_PRIVILEGES = 0x0020
+      TOKEN_ADJUST_GROUPS     = 0x0040
+      TOKEN_ADJUST_DEFAULT    = 0x0080
+      TOKEN_ADJUST_SESSIONID  = 0x0100
+      TOKEN_ALL_ACCESS_P      = 983295 # Calculated from WinNt.h
+      TOKEN_ALL_ACCESS        = TOKEN_ALL_ACCESS_P | TOKEN_ADJUST_SESSIONID
+      
+      SE_PRIVILEGE_ENABLED_BY_DEFAULT = 0x00000001
+      SE_PRIVILEGE_ENABLED            = 0x00000002
+      SE_PRIVILEGE_REMOVED            = 0X00000004
+      SE_PRIVILEGE_USED_FOR_ACCESS    = 0x80000000      
       
+      API.new('AccessCheck', 'PLLPPLPP', 'B', 'advapi32')
       API.new('AddAce', 'PLLLL', 'B', 'advapi32')
+      API.new('AdjustTokenGroups', 'LLPLPP', 'B', 'advapi32')
+      API.new('AdjustTokenPrivileges', 'LLPLPP', 'B', 'advapi32')
+      API.new('CheckTokenMembership', 'LPP', 'B', 'advapi32')
       API.new('CopySid', 'LLP', 'B', 'advapi32')
       API.new('ConvertSidToStringSid', 'PL', 'B', 'advapi32')
       API.new('ConvertSecurityDescriptorToStringSecurityDescriptor', 'PLLPP', 'B', 'advapi32')
       API.new('ConvertStringSecurityDescriptorToSecurityDescriptor', 'PLPP', 'B', 'advapi32')
       API.new('ConvertStringSidToSid', 'PL', 'B', 'advapi32')
+      API.new('CreateRestrictedToken', 'LLLPLPLPP', 'B', 'advapi32')
+      API.new('DuplicateToken', 'LPP', 'B', 'advapi32')
+      API.new('DuplicateTokenEx', 'LLPLLP', 'B', 'advapi32')
       API.new('GetAce', 'LLP', 'B', 'advapi32')
       API.new('GetFileSecurity', 'PLPLP', 'B', 'advapi32')
       API.new('GetLengthSid', 'P', 'L', 'advapi32')
@@ -51,11 +78,16 @@ module Windows
       API.new('IsValidSecurityDescriptor', 'P', 'B', 'advapi32')
       API.new('LookupAccountName', 'PPPPPPP', 'B', 'advapi32')
       API.new('LookupAccountSid', 'PLPPPPP', 'B', 'advapi32')
+      API.new('LookupPrivilegeValue', 'PPP', 'B', 'advapi32')
+      API.new('OpenProcessToken', 'LLP', 'B', 'advapi32')
+      API.new('OpenThreadToken', 'LLLP', 'B', 'advapi32')
       API.new('SetFileSecurity', 'PPP', 'B', 'advapi32') 
       API.new('SetSecurityDescriptorDacl', 'PIPI', 'B', 'advapi32')
       API.new('SetSecurityDescriptorGroup', 'PPI', 'B', 'advapi32')
       API.new('SetSecurityDescriptorOwner', 'PPI', 'B', 'advapi32')
       API.new('SetSecurityDescriptorRMControl', 'PP', 'L', 'advapi32')
       API.new('SetSecurityDescriptorSacl', 'PIPI', 'B', 'advapi32')
+      API.new('SetThreadToken', 'PL', 'B', 'advapi32')
+      API.new('SetTokenInformation', 'LLPL', 'B', 'advapi32')
    end
 end

data/lib/windows/service.rb

@@ -21,8 +21,8 @@ module Windows
       
       # Service control action types
       SC_ACTION_NONE        = 0
-      SC_ACTION_REBOOT      = 1
-      SC_ACTION_RESTART     = 2
+      SC_ACTION_RESTART     = 1
+      SC_ACTION_REBOOT      = 2
       SC_ACTION_RUN_COMMAND = 3
 
       # Service access rights
@@ -106,6 +106,9 @@ module Windows
       SERVICE_CONFIG_REQUIRED_PRIVILEGES_INFO = 6
       SERVICE_CONFIG_PRESHUTDOWN_INFO         = 7
       
+      # Configuration
+      SERVICE_NO_CHANGE = 0xffffffff
+      
       API.new('ChangeServiceConfig', 'LLLLPPPPPPP', 'B', 'advapi32')
       API.new('ChangeServiceConfig2', 'LLP', 'B', 'advapi32')
       API.new('CloseServiceHandle', 'L', 'B', 'advapi32')

data/lib/windows/shell.rb

@@ -75,7 +75,82 @@ module Windows
       SHGFP_TYPE_CURRENT = 0
       SHGFP_TYPE_DEFAULT = 1
 
+      # Shell file operations
+      FO_MOVE   = 0x0001
+      FO_COPY   = 0x0002
+      FO_DELETE = 0x0003
+      FO_RENAME = 0x0004
+
+      FOF_MULTIDESTFILES        = 0x0001
+      FOF_CONFIRMMOUSE          = 0x0002
+      FOF_SILENT                = 0x0004  # Don't create progress/report
+      FOF_RENAMEONCOLLISION     = 0x0008
+      FOF_NOCONFIRMATION        = 0x0010  # Don't prompt the user.
+      FOF_WANTMAPPINGHANDLE     = 0x0020  # Fill in SHFILEOPSTRUCT.hNameMappings
+      FOF_ALLOWUNDO             = 0x0040
+      FOF_FILESONLY             = 0x0080  # On *.*, do only files
+      FOF_SIMPLEPROGRESS        = 0x0100  # Means don't show names of files
+      FOF_NOCONFIRMMKDIR        = 0x0200  # Don't confirm making any needed dirs
+      FOF_NOERRORUI             = 0x0400  # Don't put up error UI
+      FOF_NOCOPYSECURITYATTRIBS = 0x0800  # Don't copy NT file Sec. Attributes
+      FOF_NORECURSION           = 0x1000  # Don't recurse into directories.
+      FOF_NO_CONNECTED_ELEMENTS = 0x2000  # Don't operate on connected elements
+      FOF_WANTNUKEWARNING       = 0x4000  # During delete op, warn if nuking
+      FOF_NORECURSEREPARSE      = 0x8000  # Treat reparse points as objects
+
+      # Shell execute error codes
+      SE_ERR_FNF             = 2  # file not found
+      SE_ERR_PNF             = 3  # path not found
+      SE_ERR_ACCESSDENIED    = 5  # access denied
+      SE_ERR_OOM             = 8  # out of memory
+      SE_ERR_DLLNOTFOUND     = 32
+      SE_ERR_SHARE           = 26
+      SE_ERR_ASSOCINCOMPLETE = 27
+      SE_ERR_DDETIMEOUT      = 28
+      SE_ERR_DDEFAIL         = 29
+      SE_ERR_DDEBUSY         = 30
+      SE_ERR_NOASSOC         = 31
+
+      # Shell link constants
+      SHGNLI_PIDL       = 0x000000001 # pszLinkTo is a pidl
+      SHGNLI_PREFIXNAME = 0x000000002 # Make name "Shortcut to xxx"
+      SHGNLI_NOUNIQUE   = 0x000000004 # don't do the unique name generation
+      SHGNLI_NOLNK      = 0x000000008 # don't add ".lnk" extension
+
+      # File information constants
+      SHGFI_ICON              = 0x000000100 # get icon
+      SHGFI_DISPLAYNAME       = 0x000000200 # get display name
+      SHGFI_TYPENAME          = 0x000000400 # get type name
+      SHGFI_ATTRIBUTES        = 0x000000800 # get attributes
+      SHGFI_ICONLOCATION      = 0x000001000 # get icon location
+      SHGFI_EXETYPE           = 0x000002000 # return exe type
+      SHGFI_SYSICONINDEX      = 0x000004000 # get system icon index
+      SHGFI_LINKOVERLAY       = 0x000008000 # put a link overlay on icon
+      SHGFI_SELECTED          = 0x000010000 # show icon in selected state
+      SHGFI_ATTR_SPECIFIED    = 0x000020000 # get only specified attributes
+      SHGFI_LARGEICON         = 0x000000000 # get large icon
+      SHGFI_SMALLICON         = 0x000000001 # get small icon
+      SHGFI_OPENICON          = 0x000000002 # get open icon
+      SHGFI_SHELLICONSIZE     = 0x000000004 # get shell size icon
+      SHGFI_PIDL              = 0x000000008 # pszPath is a pidl
+      SHGFI_USEFILEATTRIBUTES = 0x000000010 # use passed dwFileAttribute
+      SHGFI_ADDOVERLAYS       = 0x000000020 # apply the appropriate overlays
+      SHGFI_OVERLAYINDEX      = 0x000000040 # Get the index of the overlay
+      
+      API.new('DragQueryFile', 'LIPI', 'I', 'shell32')
+      API.new('ExtractIcon', 'LPI', 'L', 'shell32')
+      API.new('ExtractIconEx', 'PIPPI', 'I', 'shell32')
+      API.new('FindExecutable', 'PPP', 'L', 'shell32')
+      API.new('ShellAbout', 'LPPL', 'I', 'shell32')
+      API.new('SHBrowseForFolder', 'P', 'P', 'shell32')
+      API.new('SHChangeNotify', 'LILL', 'V', 'shell32')
+      API.new('ShellExecute', 'LPPPPI', 'L', 'shell32')
+      API.new('ShellExecuteEx', 'P', 'B', 'shell32')
+      API.new('SHFileOperation', 'P', 'I', 'shell32')
+      API.new('SHGetFileInfo', 'PLPII', 'L', 'shell32')
       API.new('SHGetFolderPath', 'LLLLP', 'L', 'shell32')
+      API.new('SHGetNewLinkInfo', 'PPPPI', 'B', 'shell32')
+      API.new('SHGetPathFromIDList', 'LL', 'B', 'shell32')
       API.new('SHGetSpecialFolderLocation', 'LIP', 'L', 'shell32')
       API.new('SHGetSpecialFolderPath', 'LPLL','L', 'shell32')
    end

data/lib/windows/synchronize.rb

@@ -52,7 +52,12 @@ module Windows
       API.new('CreateEvent', 'PIIP', 'L')
       API.new('CreateMutex', 'PIP', 'L')
       API.new('CreateSemaphore', 'PLLP', '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')
@@ -61,15 +66,31 @@ module Windows
       API.new('ReleaseMutex', 'L', 'B')
       API.new('ReleaseSemaphore', 'LLP', 'B')
       API.new('ResetEvent', 'L', 'B')
+      API.new('SetCriticalSectionSpinCount', 'PL', 'V')
       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      
    end
 end

data/lib/windows/thread.rb

@@ -0,0 +1,64 @@
+require 'windows/api'
+include Windows
+
+module Windows
+   module Thread
+      API.auto_namespace = 'Windows::Thread'
+      API.auto_constant  = true
+      API.auto_method    = true
+      API.auto_unicode   = true
+
+      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
+      
+      API.new('CreateRemoteThread', 'LPLLPLP', 'L')
+      API.new('CreateThread', 'PLPPLP', 'L')
+      API.new('ExitThread', 'L', 'V')
+      API.new('GetCurrentThread', 'V', 'L')
+      API.new('GetCurrentThreadId', 'V', 'L')
+      API.new('GetExitCodeThread', 'LP', 'B')
+      API.new('GetThreadPriority', 'L', 'I')
+      API.new('GetThreadPriorityBoost', 'LP', 'B')
+      API.new('GetThreadTimes', 'LPPPP', 'B')
+      API.new('OpenThread', 'LIL', 'L')
+      API.new('ResumeThread', 'L', 'L')
+      API.new('SetThreadAffinityMask', 'LP', 'P')
+      API.new('SetThreadIdealProcessor', 'LL', 'L')
+      API.new('SetThreadPriority', 'LI', 'B')
+      API.new('SetThreadPriorityBoost', 'LI', 'B')
+      API.new('Sleep', 'L', 'V')
+      API.new('SleepEx', 'LI', 'L')
+      API.new('SuspendThread', 'L', 'L')
+      API.new('SwitchToThread', 'V', 'B')
+      API.new('TerminateThread', 'LL', 'B')
+      API.new('TlsAlloc', 'V', 'L')
+      API.new('TlsFree', 'L', 'B')
+      API.new('TlsGetValue', 'L', 'L')
+      API.new('TlsSetValue', 'LL', 'B')
+
+      # Windows XP or later
+      begin
+         API.new('AttachThreadInput', 'LLI', 'B')
+         API.new('GetThreadIOPendingFlag', 'LP', 'B')
+      rescue Exception
+         # Do nothing. It's up to you to check for its existence.
+      end
+   end
+end