windows-pr 1.2.4 → 1.2.5

data/Rakefile

@@ -1,42 +1,42 @@
-require 'rake'
-require 'rake/clean'
-require 'rake/testtask'
-
-CLEAN.include("**/*.gem", "**/*.rbc") 
-
-namespace 'gem' do
-  desc 'Build the windows-pr gem'
-  task :create => [:clean] do
-    spec = eval(IO.read('windows-pr.gemspec'))
-    if Gem::VERSION < "2.0"
-      Gem::Builder.new(spec).build
-    else
-      require 'rubygems/package'
-      Gem::Package.build(spec)
-    end
-  end
-
-  desc 'Install the windows-pr gem'
-  task :install => [:create] do
-    file = Dir["*.gem"].first
-    sh "gem install -l #{file}"
-  end
-end
-
-namespace 'test' do
-  Rake::TestTask.new('all') do |t|
-    t.warning = true
-    t.test_files = FileList['test/helper.rb', 'test/tc*']
-  end
-
-  # Dynamically generate individual test tasks.
-  Dir['test/*.rb'].each{ |file|
-    name = File.basename(file.split('tc_').last, '.rb')
-    Rake::TestTask.new(name) do |t|
-      t.warning = true
-      t.test_files = FileList[file]
-    end
-  }
-end
-
-task :default => 'test:all'
+require 'rake'
+require 'rake/clean'
+require 'rake/testtask'
+
+CLEAN.include("**/*.gem", "**/*.rbc") 
+
+namespace 'gem' do
+  desc 'Build the windows-pr gem'
+  task :create => [:clean] do
+    spec = eval(IO.read('windows-pr.gemspec'))
+    if Gem::VERSION < "2.0"
+      Gem::Builder.new(spec).build
+    else
+      require 'rubygems/package'
+      Gem::Package.build(spec)
+    end
+  end
+
+  desc 'Install the windows-pr gem'
+  task :install => [:create] do
+    file = Dir["*.gem"].first
+    sh "gem install -l #{file}"
+  end
+end
+
+namespace 'test' do
+  Rake::TestTask.new('all') do |t|
+    t.warning = true
+    t.test_files = FileList['test/helper.rb', 'test/tc*']
+  end
+
+  # Dynamically generate individual test tasks.
+  Dir['test/*.rb'].each{ |file|
+    name = File.basename(file.split('tc_').last, '.rb')
+    Rake::TestTask.new(name) do |t|
+      t.warning = true
+      t.test_files = FileList[file]
+    end
+  }
+end
+
+task :default => 'test:all'

data/appveyor.yml

@@ -0,0 +1,21 @@
+version: '{build}'
+
+install:
+  - SET PATH=C:\Ruby%ruby_version%\bin;%PATH%
+  - ruby --version
+  - gem --version
+  - bundle install
+build: off
+test_script:
+  - bundle exec rake test:all
+
+environment:
+  matrix:
+    - ruby_version: "23-x64"
+    - ruby_version: "23"
+    - ruby_version: "22-x64"
+    - ruby_version: "22"
+    - ruby_version: "21-x64"
+    - ruby_version: "21"
+    - ruby_version: "200-x64"
+    - ruby_version: "200"

data/doc/conversion_guide.txt

@@ -1,38 +1,38 @@
-== Parameters
-Long:     'L'
-Integer:  'I'
-Pointer:  'P'
-Void:     'V'
-String:   'S'
-Callback: 'K' # win32-api only
-
-== Windows Data Types
-BOOL  		=> 'I' (or 'B', win32-api only)
-DWORD 		=> 'L'
-HANDLE		=> 'L'
-LPDWORD		=> 'P' (or 'L')
-LPTSTR 		=> 'P'
-LPCTSTR     => 'S'
-UINT  		=> 'L'
-VOID        => 'V'
-WORD        => 'I'
-LPVOID      => 'L' (or 'P')
-CALLBACK    => 'K'
-
-== C Data Types
-void     	=> 'V'
-void*    	=> 'P'
-char*    	=> 'P'
-const char* => 'L'
-int			=> 'I'
-long        => 'L'
-struct      => 'P'
-struct*     => 'P'
-
-== Notes
-In practice most LPVOID types should be designated as 'L' because this
-usually means the function is looking for an address. Check the documentation
-for details.
-
-If using the windows-api library, you can use 'B' instead of 'I' for the return
+== Parameters
+Long:     'L'
+Integer:  'I'
+Pointer:  'P'
+Void:     'V'
+String:   'S'
+Callback: 'K' # win32-api only
+
+== Windows Data Types
+BOOL  		=> 'I' (or 'B', win32-api only)
+DWORD 		=> 'L'
+HANDLE		=> 'L'
+LPDWORD		=> 'P' (or 'L')
+LPTSTR 		=> 'P'
+LPCTSTR     => 'S'
+UINT  		=> 'L'
+VOID        => 'V'
+WORD        => 'I'
+LPVOID      => 'L' (or 'P')
+CALLBACK    => 'K'
+
+== C Data Types
+void     	=> 'V'
+void*    	=> 'P'
+char*    	=> 'P'
+const char* => 'L'
+int			=> 'I'
+long        => 'L'
+struct      => 'P'
+struct*     => 'P'
+
+== Notes
+In practice most LPVOID types should be designated as 'L' because this
+usually means the function is looking for an address. Check the documentation
+for details.
+
+If using the windows-api library, you can use 'B' instead of 'I' for the return
 type for functions that return a BOOL. 

data/lib/windows/clipboard.rb

@@ -1,61 +1,61 @@
-require 'windows/api'
-
-module Windows
-  module Clipboard
-    API.auto_namespace = 'Windows::Clipboard'
-    API.auto_constant  = true
-    API.auto_method    = true
-    API.auto_unicode   = true
-
-    private
-
-    CF_TEXT            = 1
-    CF_BITMAP          = 2
-    CF_METAFILEPICT    = 3
-    CF_SYLK            = 4
-    CF_DIF             = 5
-    CF_TIFF            = 6
-    CF_OEMTEXT         = 7
-    CF_DIB             = 8
-    CF_PALETTE         = 9
-    CF_PENDATA         = 10
-    CF_RIFF            = 11
-    CF_WAVE            = 12
-    CF_UNICODETEXT     = 13
-    CF_ENHMETAFILE     = 14
-    CF_HDROP           = 15
-    CF_LOCALE          = 16
-    CF_MAX             = 18 # Assume Windows 2000 or later
-    CF_OWNERDISPLAY    = 0x0080
-    CF_DSPTEXT         = 0x0081
-    CF_DSPBITMAP       = 0x0082
-    CF_DSPMETAFILEPICT = 0x0083
-    CF_DSPENHMETAFILE  = 0x008E
-
-    API.new('ChangeClipboardChain', 'LL', 'B', 'user32')
-    API.new('CloseClipboard', 'V', 'B', 'user32')
-    API.new('CountClipboardFormats', 'V', 'I', 'user32')
-    API.new('EmptyClipboard', 'V', 'B', 'user32')
-    API.new('EnumClipboardFormats', 'I', 'I', 'user32')
-    API.new('GetClipboardData', 'I', 'L', 'user32')
-    API.new('GetClipboardFormatName', 'IPI', 'I', 'user32')
-    API.new('GetClipboardOwner', 'V', 'L', 'user32')
-    API.new('GetClipboardSequenceNumber', 'V', 'L', 'user32')
-    API.new('GetClipboardViewer', 'V', 'L', 'user32')
-    API.new('GetOpenClipboardWindow', 'V', 'L', 'user32')
-    API.new('GetPriorityClipboardFormat', 'PI', 'I', 'user32')
-    API.new('IsClipboardFormatAvailable', 'I', 'B', 'user32')
-    API.new('OpenClipboard', 'L', 'B', 'user32')
-    API.new('RegisterClipboardFormat', 'S', 'I', 'user32')
-    API.new('SetClipboardData', 'IL', 'L', 'user32')
-    API.new('SetClipboardViewer', 'L', 'L', 'user32')
-
-    begin
-      API.new('AddClipboardFormatListener', 'L', 'B', 'user32')
-      API.new('GetUpdatedClipboardFormats', 'PIP', 'I', 'user32')
-      API.new('RemoveClipboardFormatListener', 'L', 'B', 'user32')
-    rescue Win32::API::LoadLibraryError
-      # Windows Vista or later
-    end
-  end
-end
+require 'windows/api'
+
+module Windows
+  module Clipboard
+    API.auto_namespace = 'Windows::Clipboard'
+    API.auto_constant  = true
+    API.auto_method    = true
+    API.auto_unicode   = true
+
+    private
+
+    CF_TEXT            = 1
+    CF_BITMAP          = 2
+    CF_METAFILEPICT    = 3
+    CF_SYLK            = 4
+    CF_DIF             = 5
+    CF_TIFF            = 6
+    CF_OEMTEXT         = 7
+    CF_DIB             = 8
+    CF_PALETTE         = 9
+    CF_PENDATA         = 10
+    CF_RIFF            = 11
+    CF_WAVE            = 12
+    CF_UNICODETEXT     = 13
+    CF_ENHMETAFILE     = 14
+    CF_HDROP           = 15
+    CF_LOCALE          = 16
+    CF_MAX             = 18 # Assume Windows 2000 or later
+    CF_OWNERDISPLAY    = 0x0080
+    CF_DSPTEXT         = 0x0081
+    CF_DSPBITMAP       = 0x0082
+    CF_DSPMETAFILEPICT = 0x0083
+    CF_DSPENHMETAFILE  = 0x008E
+
+    API.new('ChangeClipboardChain', 'LL', 'B', 'user32')
+    API.new('CloseClipboard', 'V', 'B', 'user32')
+    API.new('CountClipboardFormats', 'V', 'I', 'user32')
+    API.new('EmptyClipboard', 'V', 'B', 'user32')
+    API.new('EnumClipboardFormats', 'I', 'I', 'user32')
+    API.new('GetClipboardData', 'I', 'L', 'user32')
+    API.new('GetClipboardFormatName', 'IPI', 'I', 'user32')
+    API.new('GetClipboardOwner', 'V', 'L', 'user32')
+    API.new('GetClipboardSequenceNumber', 'V', 'L', 'user32')
+    API.new('GetClipboardViewer', 'V', 'L', 'user32')
+    API.new('GetOpenClipboardWindow', 'V', 'L', 'user32')
+    API.new('GetPriorityClipboardFormat', 'PI', 'I', 'user32')
+    API.new('IsClipboardFormatAvailable', 'I', 'B', 'user32')
+    API.new('OpenClipboard', 'L', 'B', 'user32')
+    API.new('RegisterClipboardFormat', 'S', 'I', 'user32')
+    API.new('SetClipboardData', 'IL', 'L', 'user32')
+    API.new('SetClipboardViewer', 'L', 'L', 'user32')
+
+    begin
+      API.new('AddClipboardFormatListener', 'L', 'B', 'user32')
+      API.new('GetUpdatedClipboardFormats', 'PIP', 'I', 'user32')
+      API.new('RemoveClipboardFormatListener', 'L', 'B', 'user32')
+    rescue Win32::API::LoadLibraryError
+      # Windows Vista or later
+    end
+  end
+end

data/lib/windows/com.rb

@@ -1,192 +1,192 @@
-require 'windows/api'
-
-module Windows
-  module COM
-    API.auto_namespace = 'Windows::COM'
-    API.auto_constant  = true
-    API.auto_method    = true
-    API.auto_unicode   = false
-
-    private
-
-    # These constants are from wtypes.h but are only used in a COM context
-    # as far as I know.
-
-    VT_EMPTY    = 0
-    VT_NULL     = 1
-    VT_I2       = 2
-    VT_I4       = 3
-    VT_R4       = 4
-    VT_R8       = 5
-    VT_CY       = 6
-    VT_DATE     = 7
-    VT_BSTR     = 8
-    VT_DISPATCH = 9
-    VT_ERROR    = 10
-    VT_BOOL     = 11
-    VT_VARIANT  = 12
-    VT_UNKNOWN  = 13
-    VT_DECIMAL  = 14
-    VT_I1       = 16
-    VT_UI1      = 17
-    VT_UI2      = 18
-    VT_UI4      = 19
-    VT_I8       = 20
-    VT_UI8      = 21
-    VT_INT      = 22
-    VT_UINT     = 23
-    VT_VOID     = 24
-    VT_HRESULT  = 25
-    VT_PTR      = 26
-
-    VT_SAFEARRAY        = 27
-    VT_CARRAY           = 28
-    VT_USERDEFINED      = 29
-    VT_LPSTR            = 30
-    VT_LPWSTR           = 31
-    VT_RECORD           = 36
-    VT_INT_PTR          = 37
-    VT_UINT_PTR         = 38
-    VT_FILETIME         = 64
-    VT_BLOB             = 65
-    VT_STREAM           = 66
-    VT_STORAGE          = 67
-    VT_STREAMED_OBJECT  = 68
-    VT_STORED_OBJECT    = 69
-    VT_BLOB_OBJECT      = 70
-    VT_CF               = 71
-    VT_CLSID            = 72
-    VT_VERSIONED_STREAM = 73
-    VT_BSTR_BLOB        = 0xfff
-    VT_VECTOR           = 0x1000
-    VT_ARRAY            = 0x2000
-    VT_BYREF            = 0x4000
-    VT_RESERVED         = 0x8000
-    VT_ILLEGAL          = 0xffff
-    VT_ILLEGALMASKED    = 0xfff
-    VT_TYPEMASK         = 0xfff
-
-    # These constants are from OAldl.h
-
-    INVOKE_FUNC           = 1
-    INVOKE_PROPERTYGET    = 2
-    INVOKE_PROPERTYPUT    = 4
-    INVOKE_PROPERTYPUTREF = 8
-
-    # CLSCTX enum constants
-
-    CLSCTX_INPROC_SERVER          = 0x1
-    CLSCTX_INPROC_HANDLER         = 0x2
-    CLSCTX_LOCAL_SERVER           = 0x4
-    CLSCTX_INPROC_SERVER16        = 0x8
-    CLSCTX_REMOTE_SERVER          = 0x10
-    CLSCTX_INPROC_HANDLER16       = 0x20
-    CLSCTX_RESERVED1              = 0x40
-    CLSCTX_RESERVED2              = 0x80
-    CLSCTX_RESERVED3              = 0x100
-    CLSCTX_RESERVED4              = 0x200
-    CLSCTX_NO_CODE_DOWNLOAD       = 0x400
-    CLSCTX_RESERVED5              = 0x800
-    CLSCTX_NO_CUSTOM_MARSHAL      = 0x1000
-    CLSCTX_ENABLE_CODE_DOWNLOAD   = 0x2000
-    CLSCTX_NO_FAILURE_LOG         = 0x4000
-    CLSCTX_DISABLE_AAA            = 0x8000
-    CLSCTX_ENABLE_AAA             = 0x10000
-    CLSCTX_FROM_DEFAULT_CONTEXT   = 0x20000
-    CLSCTX_ACTIVATE_32_BIT_SERVER = 0x40000
-    CLSCTX_ACTIVATE_64_BIT_SERVER = 0x80000
-
-    # IDispatch
-
-    DISPID_UNKNOWN     = -1
-    DISPID_VALUE       = 0
-    DISPID_PROPERTYPUT = -3
-    DISPID_NEWENUM     = -4
-    DISPID_EVALUATE    = -5
-    DISPID_CONSTRUCTOR = -6
-    DISPID_DESTRUCTOR  = -7
-    DISPID_COLLECT     = -8
-
-    # Flags for IDispatch::Invoke
-
-    DISPATCH_METHOD         = 0x1
-    DISPATCH_PROPERTYGET    = 0x2
-    DISPATCH_PROPERTYPUT    = 0x4
-    DISPATCH_PROPERTYPUTREF = 0x8
-
-    API.new('BindMoniker', 'PLPP', 'L', 'ole32')
-    API.new('CLSIDFromProgID', 'PP', 'L', 'ole32')
-    API.new('CLSIDFromProgIDEx', 'PP', 'L', 'ole32')
-    API.new('CLSIDFromString', 'PP', 'L', 'ole32')
-    API.new('CoAddRefServerProcess', 'V', 'L', 'ole32')
-    API.new('CoAllowSetForegroundWindow', 'PP', 'L', 'ole32')
-    API.new('CoCancelCall', 'LL', 'L', 'ole32')
-    API.new('CoCopyProxy', 'PP', 'L', 'ole32')
-    API.new('CoCreateFreeThreadedMarshaler', 'PP', 'L', 'ole32')
-    API.new('CoCreateGuid', 'P', 'L', 'ole32')
-    API.new('CoCreateInstance', 'PPLPP', 'L', 'ole32')
-    API.new('CoCreateInstanceEx', 'PPLPLP', 'L', 'ole32')
-    API.new('CoDisableCallCancellation', 'L', 'L', 'ole32')
-    API.new('CoDisconnectObject', 'PL', 'L', 'ole32')
-    #API.new('CoDosDateTimeToFileTime', 'LLP', 'L')
-    API.new('CoEnableCallCancellation', 'L', 'L', 'ole32')
-    API.new('CoFileTimeNow', 'P', 'L', 'ole32')
-    API.new('CoFileTimeToDosDateTime', 'LLL', 'B', 'ole32')
-    API.new('CoFreeAllLibraries', 'V', 'V', 'ole32')
-    API.new('CoFreeLibrary', 'L', 'V', 'ole32')
-    API.new('CoFreeUnusedLibraries', 'V', 'V', 'ole32')
-    API.new('CoFreeUnusedLibrariesEx', 'V', 'V', 'ole32')
-    API.new('CoGetCallContext', 'PP', 'L', 'ole32')
-    API.new('CoGetCallerTID', 'P', 'L', 'ole32')
-    API.new('CoGetCancelObject', 'LPP', 'L', 'ole32')
-    API.new('CoGetClassObject', 'PLPPP', 'L', 'ole32')
-    API.new('CoGetContextToken', 'P', 'L', 'ole32')
-    API.new('CoGetCurrentLogicalThreadId', 'P', 'L', 'ole32')
-    API.new('CoGetCurrentProcess', 'V', 'L', 'ole32')
-    API.new('CoGetInstanceFromFile', 'PPPLLPLP', 'L', 'ole32')
-    API.new('CoGetInstanceFromIStorage', 'PPPLPLP', 'L', 'ole32')
-    API.new('CoInitialize', 'P', 'L', 'ole32')
-    API.new('CoTaskMemFree', 'P', 'V', 'ole32')
-    API.new('CoUninitialize', 'V', 'V', 'ole32')
-    API.new('CoUnmarshalHresult', 'PP', 'L', 'ole32')
-    API.new('CoUnmarshalInterface', 'PPP', 'L', 'ole32')
-    API.new('CoWaitForMultipleHandles', 'LLLPP', 'L', 'ole32')
-    API.new('CreateAntiMoniker', 'P', 'L', 'ole32')
-    API.new('CreateAsyncBindCtx', 'LKKP', 'L', 'urlmon')
-    API.new('CreateBindCtx', 'LP', 'L', 'ole32')
-    API.new('CreateClassMoniker', 'PP', 'L', 'ole32')
-    API.new('CreateFileMoniker', 'PP', 'L', 'ole32')
-    API.new('CreateGenericComposite', 'PPP', 'L', 'ole32')
-    API.new('CreateItemMoniker', 'PPP', 'L', 'ole32')
-    API.new('CreateObjrefMoniker', 'PP', 'L', 'ole32')
-    API.new('CreatePointerMoniker', 'PP', 'L', 'ole32')
-    API.new('GetClassFile', 'PP', 'L', 'ole32')
-    API.new('GetRunningObjectTable', 'LP', 'L', 'ole32')
-    API.new('IIDFromString', 'PP', 'L', 'ole32')
-    API.new('IsAccelerator', 'LIPP', 'B', 'ole32')
-    API.new('IsEqualGUID', 'PP', 'B', 'ole32')
-    API.new('MkParseDisplayName', 'PPPP', 'L', 'ole32')
-    API.new('MonikerCommonPrefixWith', 'PPP', 'L', 'ole32')
-    API.new('MonikerRelativePathTo', 'PPPI', 'L', 'ole32')
-    API.new('OleDoAutoConvert', 'PP', 'L', 'ole32')
-    API.new('OleGetAutoConvert', 'PP', 'L', 'ole32')
-    API.new('OleGetIconOfClass', 'PPI', 'L', 'ole32')
-    API.new('OleGetIconOfFile', 'PI', 'L', 'ole32')
-    API.new('OleIconToCursor', 'PL', 'L', 'oleaut32')
-    API.new('OleInitialize', 'V', 'L', 'ole32')
-    API.new('OleRegGetMiscStatus', 'PLP', 'L', 'ole32')
-    API.new('OleRegGetUserType', 'PLP', 'L', 'ole32')
-    API.new('OleSetAutoConvert', 'PP', 'L', 'ole32')
-    API.new('OleUninitialize', 'V', 'V', 'ole32')
-    API.new('ProgIDFromCLSID', 'PP', 'L', 'ole32')
-    API.new('StringFromCLSID', 'PP', 'L', 'ole32')
-    API.new('StringFromGUID2', 'PPI', 'I', 'ole32')
-    API.new('StringFromIID', 'PP', 'L', 'ole32')
-
-    begin
-      API.new('CoDisconnectContext', 'L', 'L', 'ole32')
-    rescue Win32::API::LoadLibraryError
-      # Windows Vista
-    end
-  end
-end
+require 'windows/api'
+
+module Windows
+  module COM
+    API.auto_namespace = 'Windows::COM'
+    API.auto_constant  = true
+    API.auto_method    = true
+    API.auto_unicode   = false
+
+    private
+
+    # These constants are from wtypes.h but are only used in a COM context
+    # as far as I know.
+
+    VT_EMPTY    = 0
+    VT_NULL     = 1
+    VT_I2       = 2
+    VT_I4       = 3
+    VT_R4       = 4
+    VT_R8       = 5
+    VT_CY       = 6
+    VT_DATE     = 7
+    VT_BSTR     = 8
+    VT_DISPATCH = 9
+    VT_ERROR    = 10
+    VT_BOOL     = 11
+    VT_VARIANT  = 12
+    VT_UNKNOWN  = 13
+    VT_DECIMAL  = 14
+    VT_I1       = 16
+    VT_UI1      = 17
+    VT_UI2      = 18
+    VT_UI4      = 19
+    VT_I8       = 20
+    VT_UI8      = 21
+    VT_INT      = 22
+    VT_UINT     = 23
+    VT_VOID     = 24
+    VT_HRESULT  = 25
+    VT_PTR      = 26
+
+    VT_SAFEARRAY        = 27
+    VT_CARRAY           = 28
+    VT_USERDEFINED      = 29
+    VT_LPSTR            = 30
+    VT_LPWSTR           = 31
+    VT_RECORD           = 36
+    VT_INT_PTR          = 37
+    VT_UINT_PTR         = 38
+    VT_FILETIME         = 64
+    VT_BLOB             = 65
+    VT_STREAM           = 66
+    VT_STORAGE          = 67
+    VT_STREAMED_OBJECT  = 68
+    VT_STORED_OBJECT    = 69
+    VT_BLOB_OBJECT      = 70
+    VT_CF               = 71
+    VT_CLSID            = 72
+    VT_VERSIONED_STREAM = 73
+    VT_BSTR_BLOB        = 0xfff
+    VT_VECTOR           = 0x1000
+    VT_ARRAY            = 0x2000
+    VT_BYREF            = 0x4000
+    VT_RESERVED         = 0x8000
+    VT_ILLEGAL          = 0xffff
+    VT_ILLEGALMASKED    = 0xfff
+    VT_TYPEMASK         = 0xfff
+
+    # These constants are from OAldl.h
+
+    INVOKE_FUNC           = 1
+    INVOKE_PROPERTYGET    = 2
+    INVOKE_PROPERTYPUT    = 4
+    INVOKE_PROPERTYPUTREF = 8
+
+    # CLSCTX enum constants
+
+    CLSCTX_INPROC_SERVER          = 0x1
+    CLSCTX_INPROC_HANDLER         = 0x2
+    CLSCTX_LOCAL_SERVER           = 0x4
+    CLSCTX_INPROC_SERVER16        = 0x8
+    CLSCTX_REMOTE_SERVER          = 0x10
+    CLSCTX_INPROC_HANDLER16       = 0x20
+    CLSCTX_RESERVED1              = 0x40
+    CLSCTX_RESERVED2              = 0x80
+    CLSCTX_RESERVED3              = 0x100
+    CLSCTX_RESERVED4              = 0x200
+    CLSCTX_NO_CODE_DOWNLOAD       = 0x400
+    CLSCTX_RESERVED5              = 0x800
+    CLSCTX_NO_CUSTOM_MARSHAL      = 0x1000
+    CLSCTX_ENABLE_CODE_DOWNLOAD   = 0x2000
+    CLSCTX_NO_FAILURE_LOG         = 0x4000
+    CLSCTX_DISABLE_AAA            = 0x8000
+    CLSCTX_ENABLE_AAA             = 0x10000
+    CLSCTX_FROM_DEFAULT_CONTEXT   = 0x20000
+    CLSCTX_ACTIVATE_32_BIT_SERVER = 0x40000
+    CLSCTX_ACTIVATE_64_BIT_SERVER = 0x80000
+
+    # IDispatch
+
+    DISPID_UNKNOWN     = -1
+    DISPID_VALUE       = 0
+    DISPID_PROPERTYPUT = -3
+    DISPID_NEWENUM     = -4
+    DISPID_EVALUATE    = -5
+    DISPID_CONSTRUCTOR = -6
+    DISPID_DESTRUCTOR  = -7
+    DISPID_COLLECT     = -8
+
+    # Flags for IDispatch::Invoke
+
+    DISPATCH_METHOD         = 0x1
+    DISPATCH_PROPERTYGET    = 0x2
+    DISPATCH_PROPERTYPUT    = 0x4
+    DISPATCH_PROPERTYPUTREF = 0x8
+
+    API.new('BindMoniker', 'PLPP', 'L', 'ole32')
+    API.new('CLSIDFromProgID', 'PP', 'L', 'ole32')
+    API.new('CLSIDFromProgIDEx', 'PP', 'L', 'ole32')
+    API.new('CLSIDFromString', 'PP', 'L', 'ole32')
+    API.new('CoAddRefServerProcess', 'V', 'L', 'ole32')
+    API.new('CoAllowSetForegroundWindow', 'PP', 'L', 'ole32')
+    API.new('CoCancelCall', 'LL', 'L', 'ole32')
+    API.new('CoCopyProxy', 'PP', 'L', 'ole32')
+    API.new('CoCreateFreeThreadedMarshaler', 'PP', 'L', 'ole32')
+    API.new('CoCreateGuid', 'P', 'L', 'ole32')
+    API.new('CoCreateInstance', 'PPLPP', 'L', 'ole32')
+    API.new('CoCreateInstanceEx', 'PPLPLP', 'L', 'ole32')
+    API.new('CoDisableCallCancellation', 'L', 'L', 'ole32')
+    API.new('CoDisconnectObject', 'PL', 'L', 'ole32')
+    #API.new('CoDosDateTimeToFileTime', 'LLP', 'L')
+    API.new('CoEnableCallCancellation', 'L', 'L', 'ole32')
+    API.new('CoFileTimeNow', 'P', 'L', 'ole32')
+    API.new('CoFileTimeToDosDateTime', 'LLL', 'B', 'ole32')
+    API.new('CoFreeAllLibraries', 'V', 'V', 'ole32')
+    API.new('CoFreeLibrary', 'L', 'V', 'ole32')
+    API.new('CoFreeUnusedLibraries', 'V', 'V', 'ole32')
+    API.new('CoFreeUnusedLibrariesEx', 'V', 'V', 'ole32')
+    API.new('CoGetCallContext', 'PP', 'L', 'ole32')
+    API.new('CoGetCallerTID', 'P', 'L', 'ole32')
+    API.new('CoGetCancelObject', 'LPP', 'L', 'ole32')
+    API.new('CoGetClassObject', 'PLPPP', 'L', 'ole32')
+    API.new('CoGetContextToken', 'P', 'L', 'ole32')
+    API.new('CoGetCurrentLogicalThreadId', 'P', 'L', 'ole32')
+    API.new('CoGetCurrentProcess', 'V', 'L', 'ole32')
+    API.new('CoGetInstanceFromFile', 'PPPLLPLP', 'L', 'ole32')
+    API.new('CoGetInstanceFromIStorage', 'PPPLPLP', 'L', 'ole32')
+    API.new('CoInitialize', 'P', 'L', 'ole32')
+    API.new('CoTaskMemFree', 'P', 'V', 'ole32')
+    API.new('CoUninitialize', 'V', 'V', 'ole32')
+    API.new('CoUnmarshalHresult', 'PP', 'L', 'ole32')
+    API.new('CoUnmarshalInterface', 'PPP', 'L', 'ole32')
+    API.new('CoWaitForMultipleHandles', 'LLLPP', 'L', 'ole32')
+    API.new('CreateAntiMoniker', 'P', 'L', 'ole32')
+    API.new('CreateAsyncBindCtx', 'LKKP', 'L', 'urlmon')
+    API.new('CreateBindCtx', 'LP', 'L', 'ole32')
+    API.new('CreateClassMoniker', 'PP', 'L', 'ole32')
+    API.new('CreateFileMoniker', 'PP', 'L', 'ole32')
+    API.new('CreateGenericComposite', 'PPP', 'L', 'ole32')
+    API.new('CreateItemMoniker', 'PPP', 'L', 'ole32')
+    API.new('CreateObjrefMoniker', 'PP', 'L', 'ole32')
+    API.new('CreatePointerMoniker', 'PP', 'L', 'ole32')
+    API.new('GetClassFile', 'PP', 'L', 'ole32')
+    API.new('GetRunningObjectTable', 'LP', 'L', 'ole32')
+    API.new('IIDFromString', 'PP', 'L', 'ole32')
+    API.new('IsAccelerator', 'LIPP', 'B', 'ole32')
+    API.new('IsEqualGUID', 'PP', 'B', 'ole32')
+    API.new('MkParseDisplayName', 'PPPP', 'L', 'ole32')
+    API.new('MonikerCommonPrefixWith', 'PPP', 'L', 'ole32')
+    API.new('MonikerRelativePathTo', 'PPPI', 'L', 'ole32')
+    API.new('OleDoAutoConvert', 'PP', 'L', 'ole32')
+    API.new('OleGetAutoConvert', 'PP', 'L', 'ole32')
+    API.new('OleGetIconOfClass', 'PPI', 'L', 'ole32')
+    API.new('OleGetIconOfFile', 'PI', 'L', 'ole32')
+    API.new('OleIconToCursor', 'PL', 'L', 'oleaut32')
+    API.new('OleInitialize', 'V', 'L', 'ole32')
+    API.new('OleRegGetMiscStatus', 'PLP', 'L', 'ole32')
+    API.new('OleRegGetUserType', 'PLP', 'L', 'ole32')
+    API.new('OleSetAutoConvert', 'PP', 'L', 'ole32')
+    API.new('OleUninitialize', 'V', 'V', 'ole32')
+    API.new('ProgIDFromCLSID', 'PP', 'L', 'ole32')
+    API.new('StringFromCLSID', 'PP', 'L', 'ole32')
+    API.new('StringFromGUID2', 'PPI', 'I', 'ole32')
+    API.new('StringFromIID', 'PP', 'L', 'ole32')
+
+    begin
+      API.new('CoDisconnectContext', 'L', 'L', 'ole32')
+    rescue Win32::API::LoadLibraryError
+      # Windows Vista
+    end
+  end
+end