windows-pr 0.7.0 → 0.7.1

data/CHANGES

@@ -1,3 +1,10 @@
+= 0.7.1 - 21-Sep-2007
+* Added USN (changejournal) macros to Windows::DeviceIO.
+* Added the Heap functions to Windows::Memory.
+* Added the Windows::Time module.
+* Added a Rakefile with tasks for installation and testing.
+* Added and refactored some tests.
+
 = 0.7.0 - 9-Aug-2007
 * All modules now use the windows-api library behind the scenes.
 * Added the Windows::NIO module. This contains native Windows IO functions.

data/MANIFEST

@@ -1,7 +1,7 @@
 CHANGES
 MANIFEST
 README
-install.rb
+Rakefile
 windows-pr.gemspec
 
 doc/conversion_guide.txt
@@ -32,6 +32,7 @@ lib/windows/shell.rb
 lib/windows/sound.rb
 lib/windows/synchronize.rb
 lib/windows/system_info.rb
+lib/windows/time.rb
 lib/windows/unicode.rb
 lib/windows/volume.rb
 lib/windows/window.rb
@@ -42,4 +43,5 @@ lib/windows/gdi/painting_drawing.rb
 
 lib/windows/msvcrt/buffer.rb
 lib/windows/msvcrt/file.rb
+lib/windows/msvcrt/io.rb
 lib/windows/msvcrt/string.rb

data/README

@@ -1,7 +1,7 @@
 = windows-pr
 == Description
-   A collection of Windows functions predefined for you via Win32API.  Hence,
-   the 'pr', for 'Pure Ruby'.
+   A collection of Windows functions predefined for you via Win32::API.
+   Hence the 'pr', for 'Pure Ruby'.
    
 == Synopsis
    require 'windows/path'
@@ -24,20 +24,20 @@
    Each of the various files included as part of this package provide a series
    of constants corresponding to the equivalent Windows API function and
    related numeric constants.  For example, if you require 'windows/path',
-   you now have PathIsRoot, PathIsUNC, etc, available to you as Win32API
+   you now have PathIsRoot, PathIsUNC, etc, available to you as Win32::API
    objects in the form of constants.
    
    A wrapper has been provided for each method in order to avoid the
-   Win32API#call method.  So, instead of PathIsRoot.call(path) you can
-   invoke it as PathIsRoot(path).  If the original function is lower case
+   Win32::API#call method. So, instead of PathIsRoot.call(path) you can
+   invoke it as PathIsRoot(path). If the original function is lower case
    then the wrapper method is lower case as well.  For example, instead of
    doing 'Memcpy.call(dest, src, size)' you can do 'memcpy(dest, src, size)'.
    
    Remember boys and girls, if you write 'PathIsRoot', you're referring to
-   the constant.  If you write 'PathIsRoot()', you're calling the wrapper
+   the constant. If you write 'PathIsRoot()', you're calling the wrapper
    method.
    
-   Boolean methods automatically perform a check for success or failure.  So,
+   Boolean methods automatically perform a check for success or failure. So,
    instead of having to do something like 'if PathIsRoot(path) > 0' you can
    just do 'if PathIsRoot(path)'. However, I do not add this nicety for the
    MSVCRT functions that return int's because some functions have multiple
@@ -45,8 +45,8 @@
    guess, I have simply declared that you must inspect return values manually
    for any MSVCRT module.
    
-   Source files contain related functions, by topic.  For example, the
-   clipboard.rb file contains clipboard related functions, such as
+   Source files contain related functions, by topic. For example, the
+   clipboard.rb file contains clip board related functions, such as
    CloseClipboard(), as well as constants such as CF_TEXT, CF_BITMAP, etc.
    
 == Wide character functions
@@ -56,14 +56,15 @@
 	in the Windows::Unicode module.  If $KCODE is set to UTF8, then the code
 	point used is CP_UTF8.  Otherwise, CP_ACP is used.
 	
-	In the future I'll add the wide character functions explicitly.  I haven't
-	added many yet (as of 29-Jul-2006) but I plan on adding as many as I can
-	as time permits.
+	The modules all come with explicit ANSI and Wide (Unicode) functions,
+	when available from MS Windows. By default, a function without an explicit
+	'A' at the end of the function name uses the ANSI version. It is up to you
+	to use the wide ('W') functions explicitly if you wish.
 	
 == Platform specific functions
    Not all functions are defined on all platforms.  For example, the
    AttachConsole() function is only defined on Windows XP and later.  If you
-   need to conditionally test for its existance, simply use the 'defined?'
+   need to conditionally test for its existence, simply use the 'defined?'
    method:
    
    if defined? AttachConsole
@@ -95,7 +96,7 @@
    of memory, hard to organize & maintain, and impossible to test.  Second,
    some of his function declarations are wrong.  Third, some of the functions
    I needed for my own projects are missing.  Fourth, there's no gem.  Lastly,
-   I haven't seen an update in over 5 years, which leads me to believe it is
+   I haven't seen an update in over 6 years, which leads me to believe it is
    no longer maintained.
    
 == Hey, I'm missing function X!
@@ -115,18 +116,18 @@
    
 == Known Issues
    In some cases the MSDN docs are wrong, and we have to learn it the hard
-   way.  If you should happen to find a documentation bug on their site,
-   please contact them and let them know.  They're generally good about fixing
+   way. If you should happen to find a documentation bug on their site,
+   please contact them and let them know. They're generally good about fixing
    them.
    
-   In other cases library functions are not exported by the dll.  For example,
+   In other cases library functions are not exported by the dll. For example,
    my version of shlwapi.dll does not export the PathIsHTMLFile() function,
-   despite being well past the minimum version for that dll file.  There is
-   nothing you or I can do about it short of rebuilding the dll file from
+   despite being well past the minimum version for that DLL file.  There is
+   nothing you or I can do about it short of rebuilding the DLL file from
    scratch and/or reporting the issue to Microsoft.
    
 == Supported Platforms
-   I only support the Windows NT familiy of Windows, and really only Windows
+   I only support the Windows NT family of Windows, and really only Windows
    2000 and later, though I'll make an effort to support NT 4 if there are
    any NT 4 related issues and requests to support it.
    

data/Rakefile

@@ -0,0 +1,42 @@
+require 'rake'
+require 'rake/testtask'
+require 'rbconfig'
+include Config
+
+desc "Install the windows-pr package (non-gem)"
+task :install do
+   sitelibdir        = CONFIG["sitelibdir"]
+	installdir        = File.join(sitelibdir, 'windows')
+	installdir_msvcrt = File.join(installdir, 'msvcrt')
+   installdir_gdi    = File.join(installdir, 'gdi')
+   
+   Dir.mkdir(installdir) unless File.exists?(installdir)
+   Dir.mkdir(installdir_msvcrt) unless File.exists?(installdir_msvcrt)
+   Dir.mkdir(installdir_gdi) unless File.exists?(installdir_gdi)
+   
+   Dir["lib/windows/*.rb"].each{ |file|
+      FileUtils.cp(file, installdir, :verbose => true)
+   }
+   
+   Dir["lib/windows/msvcrt/*.rb"].each{ |file|
+      FileUtils.cp(file, installdir_msvcrt, :verbose => true)
+   }
+   
+   Dir["lib/windows/gdi/*.rb"].each{ |file|
+      FileUtils.cp(file, installdir_gdi, :verbose => true)
+   }      
+end
+
+desc "Install the windows-pr package as a gem"
+task :install_gem do
+   ruby 'windows-pr.gemspec'
+   file = Dir["*.gem"].first
+   sh "gem install #{file}"
+end
+
+Rake::TestTask.new do |t|
+   t.libs << 'lib'
+   t.libs << 'lib/windows'
+   t.warning = true
+   t.test_files = FileList['test/tc*']
+end

data/lib/windows/com.rb

@@ -6,7 +6,7 @@ module Windows
       API.auto_namespace = 'Windows::COM'
       API.auto_constant  = true
       API.auto_method    = true
-      API.auto_unicode   = true
+      API.auto_unicode   = false
 
       API.new('BindMoniker', 'PLPP', 'L', 'ole32')
       API.new('CLSIDFromProgID', 'PP', 'L', 'ole32')

data/lib/windows/debug.rb

@@ -16,7 +16,7 @@ module Windows
       API.new('GetThreadContext', 'LP', 'B')
       API.new('GetThreadSelectorEntry', 'LLP', 'B')
       API.new('IsDebuggerPresent', 'V', 'B')
-      API.new('OutputDebugStringA', 'P', 'V')
+      API.new('OutputDebugString', 'P', 'V')
       API.new('ReadProcessMemory', 'LLPLP', 'B')
       API.new('SetThreadContext', 'LP', 'B')
       API.new('WaitForDebugEvent', 'PL', 'B')

data/lib/windows/device_io.rb

@@ -69,22 +69,53 @@ module Windows
       FILE_DEVICE_FIPS                = 0x0000003A
       FILE_DEVICE_INFINIBAND          = 0x0000003B
       
-      METHOD_BUFFERED = 0
-      FILE_ANY_ACCESS = 0
+      METHOD_BUFFERED   = 0
+      METHOD_IN_DIRECT  = 1
+      METHOD_OUT_DIRECT = 2
+      METHOD_NEITHER    = 3
       
       API.new('DeviceIoControl', 'LLPLPLPP', 'B')
       
       # Macros from WinIoCtl.h
+
       def CTL_CODE(device, function, method, access)
          ((device) << 16) | ((access) << 14) | ((function) << 2) | (method)
       end
       
       def FSCTL_SET_COMPRESSION 
-         CTL_CODE(FILE_DEVICE_FILE_SYSTEM, 16, 0, 3)
+         CTL_CODE(FILE_DEVICE_FILE_SYSTEM, 16, METHOD_BUFFERED, 3)
+      end
+
+      def FSCTL_READ_USN_JOURNAL
+         CTL_CODE(FILE_DEVICE_FILE_SYSTEM, 46,  METHOD_NEITHER, 0)
       end
    
       def FSCTL_SET_SPARSE
-         CTL_CODE(FILE_DEVICE_FILE_SYSTEM, 49, 0, FILE_ANY_ACCESS)
+         CTL_CODE(FILE_DEVICE_FILE_SYSTEM, 49, METHOD_BUFFERED, 0)
+      end
+
+      def FSCTL_CREATE_USN_JOURNAL
+         CTL_CODE(FILE_DEVICE_FILE_SYSTEM, 57,  METHOD_NEITHER, 0)
+      end
+
+      def FSCTL_READ_FILE_USN_DATA
+         CTL_CODE(FILE_DEVICE_FILE_SYSTEM, 58,  METHOD_NEITHER, 0)
+      end
+
+      def FSCTL_WRITE_USN_CLOSE_RECORD
+         CTL_CODE(FILE_DEVICE_FILE_SYSTEM, 59,  METHOD_NEITHER, 0)
+      end
+
+      def FSCTL_EXTEND_VOLUME
+         CTL_CODE(FILE_DEVICE_FILE_SYSTEM, 60, METHOD_BUFFERED, 0)
+      end
+
+      def FSCTL_QUERY_USN_JOURNAL
+         CTL_CODE(FILE_DEVICE_FILE_SYSTEM, 61, METHOD_BUFFERED, 0)
+      end
+
+      def FSCTL_DELETE_USN_JOURNAL
+         CTL_CODE(FILE_DEVICE_FILE_SYSTEM, 62, METHOD_BUFFERED, 0)
       end
    end
 end

data/lib/windows/gdi/bitmap.rb

@@ -0,0 +1,37 @@
+require 'windows/api'
+include Windows
+
+module Windows
+   module GDI
+      module Bitmap
+         API.auto_namespace = 'Windows::GDI::Bitmap'
+         API.auto_constant  = true
+         API.auto_method    = true
+         API.auto_unicode   = true
+
+         DIB_RGB_COLORS = 0
+         DIB_PAL_COLORS = 1
+
+         # Raster operations
+         SRCCOPY      = 0x00CC0020
+         SRCPAINT     = 0x00EE0086
+         SRCAND       = 0x008800C6
+         SRCINVERT    = 0x00660046
+         SRCERASE     = 0x00440328
+         NOTSRCCOPY   = 0x00330008
+         NOTSRCERASE  = 0x001100A6
+         MERGECOPY    = 0x00C000CA
+         MERGEPAINT   = 0x00BB0226
+         PATCOPY      = 0x00F00021
+         PATPAINT     = 0x00FB0A09
+         PATINVERT    = 0x005A0049
+         DSTINVERT    = 0x00550009
+         BLACKNESS    = 0x00000042
+         WHITENESS    = 0x00FF0062
+         
+         API.new('BitBlt', 'LIIIILIIL', 'B', 'gdi32')
+         API.new('CreateCompatibleBitmap', 'LII', 'L', 'gdi32')
+         API.new('GetDIBits', 'LLIIPPI', 'I', 'gdi32')
+      end
+   end
+end

data/lib/windows/gdi/device_context.rb

@@ -0,0 +1,45 @@
+require 'windows/api'
+include Windows
+
+module Windows
+   module GDI
+      module DeviceContext
+         API.auto_namespace = 'Windows::GDI::DeviceContext'
+         API.auto_constant  = true
+         API.auto_method    = true
+         API.auto_unicode   = true
+
+         DRIVERVERSION = 0
+         TECHNOLOGY    = 2
+         HORZSIZE      = 4
+         VERTSIZE      = 6
+         HORZRES       = 8
+         VERTRES       = 10
+         BITSPIXEL     = 12
+         PLANES        = 14
+         NUMBRUSHES    = 16
+         NUMPENS       = 18
+         NUMMARKERS    = 20
+         NUMFONTS      = 22
+         NUMCOLORS     = 24
+         PDEVICESIZE   = 26
+         CURVECAPS     = 28
+         LINECAPS      = 30
+         POLYGONALCAPS = 32
+         TEXTCAPS      = 34
+         CLIPCAPS      = 36
+         RASTERCAPS    = 38
+         ASPECTX       = 40
+         ASPECTY       = 42
+         ASPECTXY      = 44
+      
+         API.new('CreateCompatibleDC', 'L', 'L', 'gdi32')
+         API.new('DeleteDC', 'L', 'B', 'gdi32')
+         API.new('DeleteObject', 'L', 'B', 'gdi32')
+         API.new('GetDC', 'L', 'L', 'user32')
+         API.new('GetDeviceCaps', 'LI', 'I', 'gdi32')
+         API.new('ReleaseDC', 'LL', 'I', 'user32')
+         API.new('SelectObject', 'LL', 'L', 'gdi32')
+      end
+   end
+end

data/lib/windows/gdi/painting_drawing.rb

@@ -0,0 +1,114 @@
+require 'windows/api'
+include Windows
+
+module Windows
+   module GDI
+      module PaintingDrawing
+         API.auto_namespace = 'Windows::GDI::PaintingDrawing'
+         API.auto_constant = true
+         API.auto_method   = true
+         API.auto_unicode  = false
+
+         # Flags for DrawCaption
+         DC_ACTIVE   = 0x0001
+         DC_SMALLCAP = 0x0002
+         DC_ICON     = 0x0004
+         DC_TEXT     = 0x0008
+         DC_INBUTTON = 0x0010
+         DC_GRADIENT = 0x0020
+         DC_BUTTONS  = 0x1000
+
+         # 3D border styles
+         BDR_RAISEDOUTER = 0x0001
+         BDR_SUNKENOUTER = 0x0002
+         BDR_RAISEDINNER = 0x0004
+         BDR_SUNKENINNER = 0x0008
+
+         BDR_OUTER  = (BDR_RAISEDOUTER | BDR_SUNKENOUTER)
+         BDR_INNER  = (BDR_RAISEDINNER | BDR_SUNKENINNER)
+         BDR_RAISED = (BDR_RAISEDOUTER | BDR_RAISEDINNER)
+         BDR_SUNKEN = (BDR_SUNKENOUTER | BDR_SUNKENINNER)
+
+         EDGE_RAISED = (BDR_RAISEDOUTER | BDR_RAISEDINNER)
+         EDGE_SUNKEN = (BDR_SUNKENOUTER | BDR_SUNKENINNER)
+         EDGE_ETCHED = (BDR_SUNKENOUTER | BDR_RAISEDINNER)
+         EDGE_BUMP   = (BDR_RAISEDOUTER | BDR_SUNKENINNER)
+
+         # Border flags
+         BF_LEFT   = 0x0001
+         BF_TOP    = 0x0002
+         BF_RIGHT  = 0x0004
+         BF_BOTTOM = 0x0008
+
+         BF_TOPLEFT     = (BF_TOP | BF_LEFT)
+         BF_TOPRIGHT    = (BF_TOP | BF_RIGHT)
+         BF_BOTTOMLEFT  = (BF_BOTTOM | BF_LEFT)
+         BF_BOTTOMRIGHT = (BF_BOTTOM | BF_RIGHT)
+         BF_RECT        = (BF_LEFT | BF_TOP | BF_RIGHT | BF_BOTTOM)
+
+         BF_DIAGONAL = 0x0010
+
+         BF_DIAGONAL_ENDTOPRIGHT    = (BF_DIAGONAL | BF_TOP | BF_RIGHT)
+         BF_DIAGONAL_ENDTOPLEFT     = (BF_DIAGONAL | BF_TOP | BF_LEFT)
+         BF_DIAGONAL_ENDBOTTOMLEFT  = (BF_DIAGONAL | BF_BOTTOM | BF_LEFT)
+         BF_DIAGONAL_ENDBOTTOMRIGHT = (BF_DIAGONAL | BF_BOTTOM | BF_RIGHT)
+
+         BF_MIDDLE = 0x0800 # Fill in the middle
+         BF_SOFT   = 0x1000 # For softer buttons
+         BF_ADJUST = 0x2000 # Calculate the space left over
+         BF_FLAT   = 0x4000 # For flat rather than 3D borders
+         BF_MONO   = 0x8000 # For monochrome borders
+
+         # Flags for DrawFrameControl
+         DFC_CAPTION   = 1
+         DFC_MENU      = 2
+         DFC_SCROLL    = 3
+         DFC_BUTTON    = 4
+         DFC_POPUPMENU = 5
+
+         DFCS_CAPTIONCLOSE   = 0x0000
+         DFCS_CAPTIONMIN     = 0x0001
+         DFCS_CAPTIONMAX     = 0x0002
+         DFCS_CAPTIONRESTORE = 0x0003
+         DFCS_CAPTIONHELP    = 0x0004
+
+         DFCS_MENUARROW           = 0x0000
+         DFCS_MENUCHECK           = 0x0001
+         DFCS_MENUBULLET          = 0x0002
+         DFCS_MENUARROWRIGHT      = 0x0004
+         DFCS_SCROLLUP            = 0x0000
+         DFCS_SCROLLDOWN          = 0x0001
+         DFCS_SCROLLLEFT          = 0x0002
+         DFCS_SCROLLRIGHT         = 0x0003
+         DFCS_SCROLLCOMBOBOX      = 0x0005
+         DFCS_SCROLLSIZEGRIP      = 0x0008
+         DFCS_SCROLLSIZEGRIPRIGHT = 0x0010
+
+         DFCS_BUTTONCHECK      = 0x0000
+         DFCS_BUTTONRADIOIMAGE = 0x0001
+         DFCS_BUTTONRADIOMASK  = 0x0002
+         DFCS_BUTTONRADIO      = 0x0004
+         DFCS_BUTTON3STATE     = 0x0008
+         DFCS_BUTTONPUSH       = 0x0010
+
+         DFCS_INACTIVE = 0x0100
+         DFCS_PUSHED   = 0x0200
+         DFCS_CHECKED  = 0x0400
+
+         DFCS_TRANSPARENT = 0x0800
+         DFCS_HOT         = 0x1000
+
+         DFCS_ADJUSTRECT = 0x2000
+         DFCS_FLAT       = 0x4000
+         DFCS_MONO       = 0x8000
+
+         API.new('BeginPaint', 'LP', 'L', 'user32')
+         API.new('GetWindowDC', 'L', 'L', 'user32')
+         API.new('DrawAnimatedRects', 'LIPP', 'B', 'user32')
+         API.new('DrawCaption', 'LLPL', 'B', 'user32')
+         API.new('DrawEdge', 'LPII', 'B', 'user32')
+         API.new('DrawFocusRect', 'LP', 'B', 'user32')
+         API.new('DrawFrameControl', 'LPLL', 'B', 'user32')
+      end
+   end
+end

data/lib/windows/memory.rb

@@ -8,11 +8,17 @@ module Windows
       API.auto_method    = true
       API.auto_unicode   = false
 
-      GHND           = 0x0042
-      GMEM_FIXED     = 0x0000
-      GMEM_MOVABLE   = 0002
-      GMEM_ZEROINIT  = 0x0040
-      GPTR           = 0x0040
+      GHND          = 0x0042
+      GMEM_FIXED    = 0x0000
+      GMEM_MOVABLE  = 0002
+      GMEM_ZEROINIT = 0x0040
+      GPTR          = 0x0040
+
+      HEAP_NO_SERIALIZE          = 0x00000001
+      HEAP_GENERATE_EXCEPTIONS   = 0x00000004
+      HEAP_ZERO_MEMORY           = 0x00000008
+      HEAP_REALLOC_IN_PLACE_ONLY = 0x00000010
+      HEAP_CREATE_ENABLE_EXECUTE = 0x00040000
       
       MEM_COMMIT      = 0x1000
       MEM_RESERVE     = 0x2000
@@ -32,6 +38,21 @@ module Windows
       API.new('GlobalReAlloc', 'III', 'I')
       API.new('GlobalSize', 'I', 'I')
       API.new('GlobalUnlock', 'I', 'I')
+
+      API.new('GetProcessHeap', 'V', 'L')
+      API.new('GetProcessHeaps', 'LP', 'L')
+      API.new('HeapAlloc', 'LLL', 'P')
+      API.new('HeapCompact', 'LL', 'L')
+      API.new('HeapCreate', 'LLL', 'L')
+      API.new('HeapDestroy', 'L', 'B')
+      API.new('HeapFree', 'LLL', 'B')
+      API.new('HeapLock', 'L', 'B')
+      API.new('HeapReAlloc', 'LLLL', 'L')
+      API.new('HeapSize', 'LLL', 'L')
+      API.new('HeapUnlock', 'L', 'B')
+      API.new('HeapValidate', 'LLL', 'B')
+      API.new('HeapWalk', 'LP', 'B')
+
       API.new('VirtualAlloc', 'LLLL', 'P')
       API.new('VirtualAllocEx', 'LLLLL', 'P')
       API.new('VirtualFree', 'LLL', 'B')
@@ -43,5 +64,13 @@ module Windows
       API.new('VirtualQueryEx', 'LLPL', 'L')
       API.new('VirtualUnlock', 'PL', 'B')
       API.new('RtlZeroMemory', 'PL', 'L')
+
+      # Windows XP or later
+      begin
+         API.new('HeapQueryInformation', 'LIPLL', 'B')
+         API.new('HeapSetInformation', 'LIPL', 'B')
+      rescue Exception
+         # Do nothing - you must check for their existence
+      end
    end
 end

data/lib/windows/nio.rb

@@ -1,26 +1,45 @@
-require 'windows/api'
-include Windows
-
-module Windows
-   module NIO
-      API.auto_namespace = 'Windows::NIO'
-      API.auto_constant  = true
-      API.auto_method    = true
-      API.auto_unicode   = false
-      
-      API.new('CancelIo', 'L', 'B')
-      API.new('CreateIoCompletionPort', 'LLPL', 'L')
-      API.new('FlushFileBuffers', 'L', 'B')
-      API.new('GetQueuedCompletionStatus', 'LPPPL', 'B')
-      API.new('PostQueuedCompletionStatus', 'LLPP', 'B')
-      API.new('ReadFile', 'LPLPP', 'B')
-      API.new('ReadFileEx', 'LPLPP', 'B')
-      API.new('ReadFileScatter', 'LPLPP', 'B')
-      API.new('SetEndOfFile', 'L', 'B')
-      API.new('SetFilePointer', 'LLPL', 'L')
-      API.new('SetFilePointerEx', 'LLPL', 'L')
-      API.new('WriteFile', 'LPLPP', 'B')
-      API.new('WriteFileEx', 'LPLPP', 'B')
-      API.new('WriteFileGather', 'LPLPP', 'B')
-   end
-end
+require 'windows/api'
+include Windows
+
+module Windows
+   module NIO
+      API.auto_namespace = 'Windows::NIO'
+      API.auto_constant  = true
+      API.auto_method    = true
+      API.auto_unicode   = false
+      
+      # OpenFile() constants
+      OF_READ             = 0x00000000
+      OF_WRITE            = 0x00000001
+      OF_READWRITE        = 0x00000002
+      OF_SHARE_COMPAT     = 0x00000000
+      OF_SHARE_EXCLUSIVE  = 0x00000010
+      OF_SHARE_DENY_WRITE = 0x00000020
+      OF_SHARE_DENY_READ  = 0x00000030
+      OF_SHARE_DENY_NONE  = 0x00000040
+      OF_PARSE            = 0x00000100
+      OF_DELETE           = 0x00000200
+      OF_VERIFY           = 0x00000400
+      OF_CANCEL           = 0x00000800
+      OF_CREATE           = 0x00001000
+      OF_PROMPT           = 0x00002000
+      OF_EXIST            = 0x00004000
+      OF_REOPEN           = 0x00008000
+      
+      API.new('CancelIo', 'L', 'B')
+      API.new('CreateIoCompletionPort', 'LLPL', 'L')
+      API.new('FlushFileBuffers', 'L', 'B')
+      API.new('GetQueuedCompletionStatus', 'LPPPL', 'B')
+      API.new('OpenFile', 'PPI', 'L')
+      API.new('PostQueuedCompletionStatus', 'LLPP', 'B')
+      API.new('ReadFile', 'LPLPP', 'B')
+      API.new('ReadFileEx', 'LPLPP', 'B')
+      API.new('ReadFileScatter', 'LPLPP', 'B')
+      API.new('SetEndOfFile', 'L', 'B')
+      API.new('SetFilePointer', 'LLPL', 'L')
+      API.new('SetFilePointerEx', 'LLPL', 'L')
+      API.new('WriteFile', 'LPLPP', 'B')
+      API.new('WriteFileEx', 'LPLPP', 'B')
+      API.new('WriteFileGather', 'LPLPP', 'B')
+   end
+end

data/lib/windows/registry.rb

@@ -2,6 +2,11 @@ require 'windows/file'
 
 module Windows
    module Registry
+      API.auto_namespace = 'Windows::Registry'
+      API.auto_constant  = true
+      API.auto_method    = true
+      API.auto_unicode   = true
+            
       include Windows::File
       
       HKEY_CLASSES_ROOT        = 0x80000000

data/lib/windows/time.rb

@@ -0,0 +1,48 @@
+require 'windows/api'
+include Windows
+
+# In general you will want to use this module with Windows::National because
+# it contains the various LOCALE and TIME constants.
+
+module Windows
+   module Time
+      API.auto_namespace = 'Windows::Time'
+      API.auto_constant  = true
+      API.auto_method    = true
+      API.auto_unicode   = true
+      
+      TIME_ZONE_ID_UNKNOWN  = 0
+      TIME_ZONE_ID_STANDARD = 1
+      TIME_ZONE_ID_DAYLIGHT = 2      
+
+      API.new('CompareFileTime', 'PP', 'L')
+      API.new('DosDateTimeToFileTime', 'IIP', 'B')
+      API.new('FileTimeToDosDateTime', 'PPP', 'B')
+      API.new('FileTimeToLocalFileTime', 'PP', 'B')
+      API.new('FileTimeToSystemTime', 'PP', 'B')
+      API.new('GetFileTime', 'LPPP', 'B')
+      API.new('GetLocalTime', 'P')
+      API.new('GetSystemTime', 'P')
+      API.new('GetSystemTimeAdjustment', 'PPP', 'B')
+      API.new('GetSystemTimeAsFileTime', 'P')
+      API.new('GetTickCount')
+      API.new('GetTimeFormat', 'ILPPPI', 'I')
+      API.new('GetTimeZoneInformation', 'P', 'L')
+      API.new('LocalFileTimeToFileTime', 'PP', 'B')
+      API.new('SetFileTime', 'LPPP', 'B')
+      API.new('SetLocalTime', 'P', 'B')
+      API.new('SetSystemTime', 'P', 'B')
+      API.new('SetTimeZoneInformation', 'P', 'B')
+      API.new('SetSystemTimeAdjustment', 'LI', 'B')
+      API.new('SystemTimeToFileTime', 'PP', 'B')
+      API.new('SystemTimeToTzSpecificLocalTime', 'PPP', 'B')
+      API.new('TzSpecificLocalTimeToSystemTime', 'PPP', 'B')
+
+      # Windows XP or later
+      begin
+         API.new('GetSystemTimes', 'PPP', 'B')
+      rescue RuntimeError
+         # Do nothing. It's up to you to check your platform.
+      end
+   end
+end

data/lib/windows/window.rb

@@ -1,6 +1,8 @@
 require 'windows/api'
 include Windows
 
+# See WinUser.h
+
 module Windows
    module Window
       API.auto_namespace = 'Windows::Window'