win-ffi 0.3.0

data/lib/win-ffi/functions/gdi32/opengl.rb

@@ -0,0 +1,29 @@
+require 'win-ffi/functions/gdi32'
+
+require 'win-ffi/structs/gdi32/pixel_format_descriptor'
+
+module WinFFI
+  module Gdi32
+
+    #int ChoosePixelFormat(
+    #  HDC hdc,
+    #  const PIXELFORMATDESCRIPTOR *ppfd)
+    attach_function 'ChoosePixelFormat', [:pointer, PIXELFORMATDESCRIPTOR.ptr], :int
+
+    #int DescribePixelFormat(
+    #  HDC hdc,
+    #  int iPixelFormat,
+    #  UINT nBytes,
+    #  LPPIXELFORMATDESCRIPTOR ppfd)
+    attach_function 'DescribePixelFormat', [:pointer, :int, :uint, :pointer], :int
+
+    #BOOL SetPixelFormat(
+    #  HDC hdc,
+    #  int iPixelFormat,
+    #  const PIXELFORMATDESCRIPTOR *ppfd)
+    attach_function 'SetPixelFormat', [:pointer, :int, :pointer], :bool
+
+    #BOOL SwapBuffers(  HDC hdc)
+    attach_function 'SwapBuffers', [:pointer], :bool
+  end
+end

data/lib/win-ffi/functions/gdi32/painting_drawing.rb

@@ -0,0 +1,50 @@
+require 'win-ffi/functions/gdi32'
+
+module WinFFI
+  module Gdi32
+    #BOOL GdiFlush(void)
+    attach_function 'GdiFlush', [:void], :bool
+
+    #DWORD GdiGetBatchLimit(void)
+    attach_function 'GdiGetBatchLimit', [:void], :dword
+
+    #DWORD GdiSetBatchLimit( _In_  DWORD dwLimit )
+    attach_function 'GdiSetBatchLimit', [:dword], :dword
+
+    #COLORREF GetBkColor( _In_  HDC hdc )
+    attach_function 'GetBkColor', [:hdc], :colorref
+
+    #int GetBkMode( _In_  HDC hdc )
+    attach_function 'GetBkMode', [:hdc], :int
+
+    #UINT GetBoundsRect(
+    #  _In_   HDC hdc,
+    #  _Out_  LPRECT lprcBounds,
+    #  _In_   UINT flags )
+    attach_function 'GetBoundsRect', [:hdc, RECT.ptr, :uint], :uint
+
+    #int GetROP2( _In_  HDC hdc )
+    attach_function 'GetROP2', [:hdc], :int
+
+    #COLORREF SetBkColor(
+    #  _In_  HDC hdc,
+    #  _In_  COLORREF crColor )
+    attach_function 'SetBkColor', [:hdc, :colorref], :colorref
+
+    #int SetBkMode(
+    #  _In_  HDC hdc,
+    #  _In_  int iBkMode )
+    attach_function 'SetBkMode', [:hdc, :int], :int
+
+    #UINT SetBoundsRect(
+    #  _In_  HDC hdc,
+    #  _In_  const RECT *lprcBounds,
+    #  _In_  UINT flags )
+    attach_function 'SetBoundsRect', [:hdc, RECT.ptr, :uint], :uint
+
+    #int SetROP2(
+    #  _In_  HDC hdc,
+    #  _In_  int fnDrawMode )
+    attach_function 'SetROP2', [:hdc, :int], :int
+  end
+end

data/lib/win-ffi/functions/gdi32/text.rb

@@ -0,0 +1,376 @@
+require 'win-ffi/functions/gdi32'
+
+require 'win-ffi/structs/gdi32/abc'
+require 'win-ffi/structs/gdi32/abcfloat'
+require 'win-ffi/structs/gdi32/kerning_pair'
+
+module WinFFI
+  module Gdi32
+
+      typedef :pointer, :hfont
+
+      #HANDLE AddFontMemResourceEx(
+      #  _In_  PVOID pbFont,
+      #  _In_  DWORD cbFont,
+      #  _In_  PVOID pdv,
+      #  _In_  DWORD *pcFonts )
+      attach_function 'AddFontMemResourceEx', [:pointer, :dword, :pointer, :pointer], :handle
+
+      #int AddFontResource( _In_  LPCTSTR lpszFilename )
+      attach_function 'AddFontResourceA', [:string], :int
+      attach_function 'AddFontResourceW', [:string], :int
+
+      #int AddFontResourceEx(
+      #  _In_  LPCTSTR lpszFilename,
+      #  _In_  DWORD fl,
+      #  _In_  PVOID pdv )
+      attach_function 'AddFontResourceExA', [:string, :dword, :pointer], :int
+      attach_function 'AddFontResourceExW', [:string, :dword, :pointer], :int
+
+      #HFONT CreateFont(
+      #  __in  int nHeight,
+      #  __in  int nWidth,
+      #  __in  int nEscapement,
+      #  __in  int nOrientation,
+      #  __in  int fnWeight,
+      #  __in  DWORD fdwItalic,
+      #  __in  DWORD fdwUnderline,
+      #  __in  DWORD fdwStrikeOut,
+      #  __in  DWORD fdwCharSet,
+      #  __in  DWORD fdwOutputPrecision,
+      #  __in  DWORD fdwClipPrecision,
+      #  __in  DWORD fdwQuality,
+      #  __in  DWORD fdwPitchAndFamily,
+      #  __in  LPCTSTR lpszFace)
+      attach_function 'CreateFontA', [:int, :int, :int, :int, :int, :uint, :uint, :uint, :uint, :uint, :uint, :uint, :uint, :string], :pointer
+      attach_function 'CreateFontW', [:int, :int, :int, :int, :int, :uint, :uint, :uint, :uint, :uint, :uint, :uint, :uint, :string], :pointer
+
+      #HFONT CreateFontIndirect( _In_  const LOGFONT *lplf )
+      attach_function 'CreateFontIndirectA', [:pointer], :hfont
+      attach_function 'CreateFontIndirectW', [:pointer], :hfont
+
+      #HFONT CreateFontIndirectEx( _In_  const ENUMLOGFONTEXDV *penumlfex )
+      attach_function 'CreateFontIndirectExA', [:pointer], :hfont
+      attach_function 'CreateFontIndirectExW', [:pointer], :hfont
+
+      #BOOL CreateScalableFontResource(
+      #  _In_  DWORD fdwHidden,
+      #  _In_  LPCTSTR lpszFontRes,
+      #  _In_  LPCTSTR lpszFontFile,
+      #  _In_  LPCTSTR lpszCurrentPath )
+      attach_function 'CreateScalableFontResourceA', [:dword, :string, :string, :string], :bool
+      attach_function 'CreateScalableFontResourceW', [:dword, :string, :string, :string], :bool
+
+      #BOOL EnableEUDC( _In_  HDC BOOL fEnableEUDC )
+      attach_function 'EnableEUDC', [:bool], :bool
+
+      #TODO
+      #int CALLBACK EnumFontFamExProc(
+      #  const LOGFONT *lpelfe,
+      #  const TEXTMETRIC *lpntme,
+      #  DWORD FontType,
+      #  LPARAM lParam )
+
+      #int EnumFontFamilies(
+      #  _In_  HDC hdc,
+      #  _In_  LPCTSTR lpszFamily,
+      #  _In_  FONTENUMPROC lpEnumFontFamProc,
+      #  _In_  LPARAM lParam )
+      attach_function 'EnumFontFamiliesA', [:hdc, :string, :pointer, :lparam], :int
+      attach_function 'EnumFontFamiliesW', [:hdc, :string, :pointer, :lparam], :int
+
+      #int EnumFontFamiliesEx(
+      #  _In_  HDC hdc,
+      #  _In_  LPLOGFONT lpLogfont,
+      #  _In_  FONTENUMPROC lpEnumFontFamExProc,
+      #  _In_  LPARAM lParam,
+      #  DWORD dwFlags )
+      attach_function 'EnumFontFamiliesExA', [:hdc, :pointer, :pointer, :lparam, :dword], :int
+      attach_function 'EnumFontFamiliesExW', [:hdc, :pointer, :pointer, :lparam, :dword], :int
+
+      #TODO
+      #int CALLBACK EnumFontFamProc(
+      #  _In_  ENUMLOGFONT *lpelf,
+      #  _In_  NEWTEXTMETRIC *lpntm,
+      #  _In_  DWORD FontType,
+      #  _In_  LPARAM lParam )
+
+      #int EnumFonts(
+      #  _In_  HDC hdc,
+      #  _In_  LPCTSTR lpFaceName,
+      #  _In_  FONTENUMPROC lpFontFunc,
+      #  _In_  LPARAM lParam )
+      attach_function 'EnumFontsA', [:hdc, :string, :pointer, :lparam], :int
+      attach_function 'EnumFontsW', [:hdc, :string, :pointer, :lparam], :int
+
+      #TODO
+      #int CALLBACK EnumFontsProc(
+      #  _In_  const LOGFONT *lplf,
+      #  _In_  const TEXTMETRIC *lptm,
+      #  _In_  DWORD dwType,
+      #  _In_  LPARAM lpData )
+
+      #BOOL ExtTextOut(
+      #  _In_  HDC hdc,
+      #  _In_  int X,
+      #  _In_  int Y,
+      #  _In_  UINT fuOptions,
+      #  _In_  const RECT *lprc,
+      #  _In_  LPCTSTR lpString,
+      #  _In_  UINT cbCount,
+      #  _In_  const INT *lpDx )
+      attach_function 'ExtTextOutA', [:hdc, :int, :int, :uint, RECT.ptr, :string, :uint, :pointer], :bool
+      attach_function 'ExtTextOutW', [:hdc, :int, :int, :uint, RECT.ptr, :string, :uint, :pointer], :bool
+
+      #BOOL GetAspectRatioFilterEx(
+      #  _In_   HDC hdc,
+      #  _Out_  LPSIZE lpAspectRatio )
+      attach_function 'GetAspectRatioFilterEx', [:hdc, SIZE.ptr], :bool
+
+      #BOOL GetCharABCWidths(
+      #  _In_   HDC hdc,
+      #  _In_   UINT uFirstChar,
+      #  _In_   UINT uLastChar,
+      #  _Out_  LPABC lpabc )
+      attach_function 'GetCharABCWidthsA', [:hdc, :uint, :uint, ABC.ptr], :bool
+      attach_function 'GetCharABCWidthsW', [:hdc, :uint, :uint, ABC.ptr], :bool
+
+      #BOOL GetCharABCWidthsFloat(
+      #  _In_   HDC hdc,
+      #  _In_   UINT iFirstChar,
+      #  _In_   UINT iLastChar,
+      #  _Out_  LPABCFLOAT lpABCF )
+      attach_function 'GetCharABCWidthsFloatA', [:hdc, :uint, :uint, ABCFLOAT.ptr], :bool
+      attach_function 'GetCharABCWidthsFloatW', [:hdc, :uint, :uint, ABCFLOAT.ptr], :bool
+
+      #BOOL GetCharABCWidthsI(
+      #  _In_   HDC hdc,
+      #  _In_   UINT giFirst,
+      #  _In_   UINT cgi,
+      #  _In_   LPWORD pgi,
+      #  _Out_  LPABC lpabc )
+      attach_function 'GetCharABCWidthsI', [:hdc, :uint, :uint, :pointer, ABC.ptr], :bool
+
+      #DWORD GetCharacterPlacement(
+      #  _In_     HDC hdc,
+      #  _In_     LPCTSTR lpString,
+      #  _In_     int nCount,
+      #  _In_     int nMaxExtent,
+      #  _Inout_  LPGCP_RESULTS lpResults,
+      #  _In_     DWORD dwFlags )
+      attach_function 'GetCharacterPlacementA', [:hdc, :string, :int, :int, :pointer, :dword], :dword
+      attach_function 'GetCharacterPlacementW', [:hdc, :string, :int, :int, :pointer, :dword], :dword
+
+      #BOOL GetCharWidth32(
+      #  _In_   HDC hdc,
+      #  _In_   UINT iFirstChar,
+      #  _In_   UINT iLastChar,
+      #  _Out_  LPINT lpBuffer )
+      attach_function 'GetCharWidth32A', [:hdc, :uint, :uint, :pointer], :bool
+      attach_function 'GetCharWidth32W', [:hdc, :uint, :uint, :pointer], :bool
+
+      #BOOL GetCharWidth(
+      #  _In_   HDC hdc,
+      #  _In_   UINT iFirstChar,
+      #  _In_   UINT iLastChar,
+      #  _Out_  LPINT lpBuffer )
+      attach_function 'GetCharWidthA', [:hdc, :uint, :uint, :pointer], :bool
+      attach_function 'GetCharWidthW', [:hdc, :uint, :uint, :pointer], :bool
+
+      #BOOL GetCharWidthFloat(
+      #  _In_   HDC hdc,
+      #  _In_   UINT iFirstChar,
+      #  _In_   UINT iLastChar,
+      #  _Out_  PFLOAT pxBuffer )
+      attach_function 'GetCharWidthFloatA', [:hdc, :uint, :uint, :pointer], :bool
+      attach_function 'GetCharWidthFloatW', [:hdc, :uint, :uint, :pointer], :bool
+
+      #BOOL GetCharWidthI(
+      #  _In_   HDC hdc,
+      #  _In_   UINT giFirst,
+      #  _In_   UINT cgi,
+      #  _In_   LPWORD pgi,
+      #  _Out_  LPINT lpBuffer )
+      attach_function 'GetCharWidthI', [:hdc, :uint, :uint, :pointer, :pointer], :bool
+
+      #DWORD GetFontData(
+      #  _In_   HDC hdc,
+      #  _In_   DWORD dwTable,
+      #  _In_   DWORD dwOffset,
+      #  _Out_  LPVOID lpvBuffer,
+      #  _In_   DWORD cbData )
+      attach_function 'GetFontData', [:hdc, :dword, :dword, :pointer, :pointer], :dword
+
+      #DWORD GetFontLanguageInfo( _In_  HDC hdc )
+      attach_function 'GetFontLanguageInfo', [:hdc], :dword
+
+      #DWORD GetFontUnicodeRanges(
+      #  _In_   HDC hdc,
+      #  _Out_  LPGLYPHSET lpgs )
+      attach_function 'GetFontUnicodeRanges', [:hdc, :pointer], :dword
+
+      #DWORD GetGlyphIndices(
+      #  _In_   HDC hdc,
+      #  _In_   LPCTSTR lpstr,
+      #  _In_   int c,
+      #  _Out_  LPWORD pgi,
+      #  _In_   DWORD fl )
+      attach_function 'GetGlyphIndicesA', [:hdc, :string, :int, :pointer, :dword], :dword
+      attach_function 'GetGlyphIndicesW', [:hdc, :string, :int, :pointer, :dword], :dword
+
+
+      #DWORD GetGlyphOutline(
+      #  _In_   HDC hdc,
+      #  _In_   UINT uChar,
+      #  _In_   UINT uFormat,
+      #  _Out_  LPGLYPHMETRICS lpgm,
+      #  _In_   DWORD cbBuffer,
+      #  _Out_  LPVOID lpvBuffer,
+      #  _In_   const MAT2 *lpmat2 )
+      attach_function 'GetGlyphOutline', [:hdc, :uint, :uint, :pointer, :dword, :pointer, :pointer], :dword
+      attach_function 'GetGlyphOutlineA', [:hdc, :uint, :uint, :pointer, :dword, :pointer, :pointer], :dword
+      attach_function 'GetGlyphOutlineW', [:hdc, :uint, :uint, :pointer, :dword, :pointer, :pointer], :dword
+
+      #DWORD GetKerningPairs(
+      #  _In_   HDC hdc,
+      #  _In_   DWORD nNumPairs,
+      #  _Out_  LPKERNINGPAIR lpkrnpair )
+      attach_function 'GetKerningPairs', [:hdc, :dword, KERNINGPAIR.ptr], :dword
+      attach_function 'GetKerningPairsA', [:hdc, :dword, KERNINGPAIR.ptr], :dword
+      attach_function 'GetKerningPairsW', [:hdc, :dword, KERNINGPAIR.ptr], :dword
+
+      #UINT GetOutlineTextMetrics(
+      #  _In_       HDC hdc,
+      #  _In_       UINT cbData,
+      #  _Out_opt_  LPOUTLINETEXTMETRIC lpOTM )
+      attach_function 'GetOutlineTextMetricsA', [:hdc, :uint, :pointer], :uint
+      attach_function 'GetOutlineTextMetricsW', [:hdc, :uint, :pointer], :uint
+
+      #BOOL GetRasterizerCaps(
+      #  _Out_  LPRASTERIZER_STATUS lprs,
+      #  _In_   UINT cb )
+      attach_function 'GetRasterizerCaps',  [:pointer, :uint], :bool
+
+      #UINT GetTextAlign( _In_  HDC hdc )
+      attach_function 'GetTextAlign', [:hdc], :uint
+
+      #int GetTextCharacterExtra( _In_  HDC hdc )
+      attach_function 'GetTextCharacterExtra', [:hdc], :int
+
+      #COLORREF GetTextColor( _In_  HDC hdc )
+      attach_function 'GetTextColor', [:hdc], :colorref
+
+      #BOOL GetTextExtentExPoint(
+      #  _In_   HDC hdc,
+      #  _In_   LPCTSTR lpszStr,
+      #  _In_   int cchString,
+      #  _In_   int nMaxExtent,
+      #  _Out_  LPINT lpnFit,
+      #  _Out_  LPINT alpDx,
+      #  _Out_  LPSIZE lpSize )
+      attach_function 'GetTextExtentExPointA', [:hdc, :string, :int, :int, :pointer, :pointer, SIZE.ptr], :bool
+      attach_function 'GetTextExtentExPointW', [:hdc, :string, :int, :int, :pointer, :pointer, SIZE.ptr], :bool
+
+      #BOOL GetTextExtentExPointI(
+      #  _In_   HDC hdc,
+      #  _In_   LPWORD pgiIn,
+      #  _In_   int cgi,
+      #  _In_   int nMaxExtent,
+      #  _Out_  LPINT lpnFit,
+      #  _Out_  LPINT alpDx,
+      #  _Out_  LPSIZE lpSize )
+      attach_function 'GetTextExtentExPointI', [:hdc, :pointer, :int, :int, :pointer, :pointer, SIZE.ptr], :bool
+
+      #BOOL GetTextExtentPoint32(
+      #  _In_   HDC hdc,
+      #  _In_   LPCTSTR lpString,
+      #  _In_   int c,
+      #  _Out_  LPSIZE lpSize )
+      attach_function 'GetTextExtentPoint32A', [:hdc, :string, :int, SIZE.ptr], :bool
+      attach_function 'GetTextExtentPoint32W', [:hdc, :string, :int, SIZE.ptr], :bool
+
+      #BOOL GetTextExtentPoint(
+      #  _In_   HDC hdc,
+      #  _In_   LPCTSTR lpString,
+      #  _In_   int cbString,
+      #  _Out_  LPSIZE lpSize )
+      attach_function 'GetTextExtentPointA', [:hdc, :string, :int, SIZE.ptr], :bool
+      attach_function 'GetTextExtentPointW', [:hdc, :string, :int, SIZE.ptr], :bool
+
+      #BOOL GetTextExtentPointI(
+      #  _In_   HDC hdc,
+      #  _In_   LPWORD pgiIn,
+      #  _In_   int cgi,
+      #  _Out_  LPSIZE lpSize )
+      attach_function 'GetTextExtentPointI', [:hdc, :pointer, :int, SIZE.ptr], :bool
+
+      #int GetTextFace(
+      #  _In_   HDC hdc,
+      #  _In_   int nCount,
+      #  _Out_  LPTSTR lpFaceName )
+      attach_function 'GetTextFaceA', [:hdc, :int, :string], :int
+      attach_function 'GetTextFaceW', [:hdc, :int, :string], :int
+
+      #BOOL GetTextMetrics(
+      #  _In_   HDC hdc,
+      #  _Out_  LPTEXTMETRIC lptm )
+      attach_function 'GetTextMetricsA', [:hdc, :pointer], :bool
+      attach_function 'GetTextMetricsW', [:hdc, :pointer], :bool
+
+      #BOOL PolyTextOut(
+      #  _In_  HDC hdc,
+      #  _In_  const POLYTEXT *pptxt,
+      #  _In_  int cStrings )
+      attach_function 'PolyTextOutA', [:hdc, :pointer, :int], :bool
+      attach_function 'PolyTextOutW', [:hdc, :pointer, :int], :bool
+
+      #BOOL RemoveFontMemResourceEx( _In_  HANDLE fh )
+      attach_function 'RemoveFontMemResourceEx', [:handle], :bool
+
+      #BOOL RemoveFontResource( _In_  LPCTSTR lpFileName )
+      attach_function 'RemoveFontResourceA', [:string], :bool
+      attach_function 'RemoveFontResourceW', [:string], :bool
+
+      #BOOL RemoveFontResourceEx(
+      #  _In_  LPCTSTR lpFileName,
+      #  _In_  DWORD fl,
+      #  _In_  PVOID pdv )
+      attach_function 'RemoveFontResourceExA', [:string, :dword, :pointer], :bool
+      attach_function 'RemoveFontResourceExW', [:string, :dword, :pointer], :bool
+
+      #DWORD SetMapperFlags(
+      #  _In_  HDC hdc,
+      #  _In_  DWORD dwFlag )
+      attach_function 'SetMapperFlags', [:hdc, :dword], :dword
+
+      #UINT SetTextAlign(
+      #  _In_  HDC hdc,
+      #  _In_  UINT fMode )
+      attach_function 'SetTextAlign', [:hdc, :uint], :uint
+
+      #int SetTextCharacterExtra(
+      #  _In_  HDC hdc,
+      #  _In_  int nCharExtra )
+      attach_function 'SetTextCharacterExtra', [:hdc, :int], :int
+
+      #COLORREF SetTextColor(
+      #  _In_  HDC hdc,
+      #  _In_  COLORREF crColor )
+      attach_function 'SetTextColor', [:hdc, :colorref], :colorref
+
+      #BOOL SetTextJustification(
+      #  _In_  HDC hdc,
+      #  _In_  int nBreakExtra,
+      #  _In_  int nBreakCount )
+      attach_function 'SetTextJustification', [:hdc, :int, :int], :bool
+
+      #BOOL TextOut(
+      #  _In_  HDC hdc,
+      #  _In_  int nXStart,
+      #  _In_  int nYStart,
+      #  _In_  LPCTSTR lpString,
+      #  _In_  int cchString )
+      attach_function 'TextOutA', [:hdc, :int, :int, :string, :int], :bool
+      attach_function 'TextOutW', [:hdc, :int, :int, :string, :int], :bool
+  end
+end

data/lib/win-ffi/functions/gdi32.rb

@@ -0,0 +1,7 @@
+module WinFFI
+  module Gdi32
+    extend LibBase
+
+    ffi_lib 'gdi32'
+  end
+end

data/lib/win-ffi/functions/kernel32/activation.rb

@@ -0,0 +1,22 @@
+require 'win-ffi/functions/kernel32'
+require 'win-ffi/structs/kernel32/actctx'
+
+module WinFFI
+  module Kernel32
+    extend LibBase
+    if WindowsVersion >= :xp
+      # BOOL ActivateActCtx(_In_   HANDLE hActCtx, _Out_  ULONG_PTR *lpCookie)
+      attach_function 'ActivateActCtx', [:hwnd, :pointer], :bool
+
+      # BOOL DeactivateActCtx(_In_  DWORD dwFlags, _In_  ULONG_PTR ulCookie)
+      attach_function 'DeactivateActCtx', [:dword, :pointer], :bool
+
+      # void AddRefActCtx(_In_  HANDLE hActCtx)
+      attach_function 'AddRefActCtx', [ACTCTX.by_ref], :void
+
+      # HANDLE CreateActCtx(_Inout_  PACTCTX pActCtx)
+      attach_function 'CreateActCtxA', [ACTCTX.by_ref], :handle
+      attach_function 'CreateActCtxW', [ACTCTX.by_ref], :handle
+    end
+  end
+end

data/lib/win-ffi/functions/kernel32/dll.rb

@@ -0,0 +1,92 @@
+require 'win-ffi/functions/kernel32'
+require 'win-ffi/enums/kernel32/get_module_handle_ex_flag'
+
+module WinFFI
+  module Kernel32
+    #BOOL WINAPI DisableThreadLibraryCalls( _In_  HMODULE hModule )
+    attach_function 'DisableThreadLibraryCalls', [:hmodule], :bool
+
+    #BOOL WINAPI DllMain(
+    #  _In_  HINSTANCE hinstDLL,
+    #  _In_  DWORD fdwReason,
+    #  _In_  LPVOID lpvReserved )
+    #attach_function 'DllMain', [:hinstance, :dword, :pointer], :bool
+
+    #BOOL WINAPI FreeLibrary( _In_  HMODULE hModule )
+    attach_function 'FreeLibrary', [:hmodule], :bool
+
+    #VOID WINAPI FreeLibraryAndExitThread(
+    #  _In_  HMODULE hModule,
+    #  _In_  DWORD dwExitCode )
+    attach_function 'FreeLibraryAndExitThread', [:hmodule, :dword], :void
+
+    #DWORD WINAPI GetModuleFileName(
+    #  _In_opt_  HMODULE hModule,
+    #  _Out_     LPTSTR lpFilename,
+    #  _In_      DWORD nSize )
+    attach_function 'GetModuleFileNameA', [:hmodule, :string, :dword], :dword
+    attach_function 'GetModuleFileNameW', [:hmodule, :string, :dword], :dword
+
+    #HMODULE WINAPI GetModuleHandle( _In_opt_  LPCTSTR lpModuleName )
+    attach_function 'GetModuleHandleA', [:string], :hmodule
+    attach_function 'GetModuleHandleW', [:string], :hmodule
+
+    #BOOL GetModuleHandleEx(
+    #  __in      DWORD dwFlags,
+    #  __in_opt  LPCTSTR lpModuleName,
+    #  __out     HMODULE *phModule)
+    attach_function 'GetModuleHandleExA', [GetModuleHandleExFlag, :string, :pointer], :bool
+    attach_function 'GetModuleHandleExW', [GetModuleHandleExFlag, :string, :pointer], :bool
+
+    #FARPROC WINAPI GetProcAddress(
+    #  _In_  HMODULE hModule,
+    #  _In_  LPCSTR lpProcName )
+    attach_function 'GetProcAddress', [:hmodule, :string], :pointer
+
+    #HMODULE WINAPI LoadLibrary( _In_  LPCTSTR lpFileName )
+    attach_function 'LoadLibraryA', [:string], :hmodule
+    attach_function 'LoadLibraryW', [:string], :hmodule
+
+    #HMODULE WINAPI LoadLibraryEx(
+    #  _In_        LPCTSTR lpFileName,
+    #  _Reserved_  HANDLE hFile,
+    #  _In_        DWORD dwFlags )
+    attach_function 'LoadLibraryExA', [:string, :handle, :dword], :hmodule
+    attach_function 'LoadLibraryExW', [:string, :handle, :dword], :hmodule
+
+    #DWORD WINAPI LoadModule(
+    #  _In_  LPCSTR lpModuleName,
+    #  _In_  LPVOID lpParameterBlock )
+    attach_function 'LoadModule', [:string, :pointer], :dword
+
+    if WindowsVersion.sp >= 1 || WindowsVersion >= :vista
+
+      #DWORD WINAPI GetDllDirectory(
+      #  _In_   DWORD nBufferLength,
+      #  _Out_  LPTSTR lpBuffer )
+      attach_function 'GetDllDirectoryA', [:dword, :pointer], :dword
+      attach_function 'GetDllDirectoryW', [:dword, :pointer], :dword
+
+      #BOOL WINAPI SetDllDirectory( _In_opt_  LPCTSTR lpPathName )
+      attach_function 'SetDllDirectoryA', [:string], :bool
+      attach_function 'SetDllDirectoryW', [:string], :bool
+
+      if WindowsVersion >= 8
+
+        #DLL_DIRECTORY_COOKIE  WINAPI AddDllDirectory( _In_  PCWSTR NewDirectory )
+        attach_function 'AddDllDirectory', [:pointer], :pointer
+
+        #HMODULE WINAPI LoadPackagedLibrary(
+        #  _In_        LPCWSTR lpwLibFileName,
+        #  _Reserved_  DWORD Reserved )
+        attach_function 'LoadPackagedLibrary', [:string, :dword], :hmodule
+
+        #BOOL  WINAPI RemoveDllDirectory( _In_  DLL_DIRECTORY_COOKIE Cookie )
+        attach_function 'RemoveDllDirectory', [:pointer], :bool
+
+        #BOOL  WINAPI SetDefaultDllDirectories( _In_  DWORD DirectoryFlags )
+        attach_function 'SetDefaultDllDirectories', [:dword], :bool
+      end
+    end
+  end
+end

data/lib/win-ffi/functions/kernel32/error.rb

@@ -0,0 +1,28 @@
+require 'win-ffi/functions/kernel32'
+require 'win-ffi/enums/kernel32/format_message_flags'
+require 'win-ffi/enums/kernel32/set_error_mode_flags'
+
+module WinFFI
+  module Kernel32
+    #xp
+    #DWORD WINAPI GetLastError(void)
+    attach_function 'GetLastError', [], :dword
+
+    #void WINAPI SetLastError( _In_  DWORD dwErrCode )
+    attach_function 'SetLastError', [:dword], :void
+
+    #UINT WINAPI SetErrorMode( _In_  UINT uMode )
+    attach_function 'SetErrorMode', [SetErrorModeFlags], :int
+
+    #DWORD WINAPI FormatMessage(
+    #  _In_      DWORD dwFlags,
+    #  _In_opt_  LPCVOID lpSource,
+    #  _In_      DWORD dwMessageId,
+    #  _In_      DWORD dwLanguageId,
+    #  _Out_     LPTSTR lpBuffer,
+    #  _In_      DWORD nSize,
+    #  _In_opt_  va_list *Arguments )
+    attach_function 'FormatMessageA', [FormatMessageFlags, :pointer, :dword, :dword, :pointer, :dword, :pointer], :dword
+    attach_function 'FormatMessageW', [FormatMessageFlags, :pointer, :dword, :dword, :pointer, :dword, :pointer], :dword
+  end
+end

data/lib/win-ffi/functions/kernel32/filesystem.rb

@@ -0,0 +1,22 @@
+require 'win-ffi/functions/kernel32'
+
+module WinFFI
+  module Kernel32
+    #BOOL WINAPI GetDiskFreeSpace(
+    #  _In_   LPCTSTR lpRootPathName,
+    #  _Out_  LPDWORD lpSectorsPerCluster,
+    #  _Out_  LPDWORD lpBytesPerSector,
+    #  _Out_  LPDWORD lpNumberOfFreeClusters,
+    #  _Out_  LPDWORD lpTotalNumberOfClusters )
+    attach_function 'GetDiskFreeSpaceA', [:string, :pointer, :pointer, :pointer, :pointer], :bool
+    attach_function 'GetDiskFreeSpaceW', [:string, :pointer, :pointer, :pointer, :pointer], :bool
+
+    #BOOL WINAPI GetDiskFreeSpaceEx(
+    #  _In_opt_   LPCTSTR lpDirectoryName,
+    #  _Out_opt_  PULARGE_INTEGER lpFreeBytesAvailable,
+    #  _Out_opt_  PULARGE_INTEGER lpTotalNumberOfBytes,
+    #  _Out_opt_  PULARGE_INTEGER lpTotalNumberOfFreeBytes )
+    attach_function 'GetDiskFreeSpaceExA', [:string, :pointer, :pointer, :pointer], :bool
+    attach_function 'GetDiskFreeSpaceExW', [:string, :pointer, :pointer, :pointer], :bool
+  end
+end

data/lib/win-ffi/functions/kernel32/handle.rb

@@ -0,0 +1,29 @@
+require 'win-ffi/functions/kernel32'
+
+module WinFFI
+  module Kernel32
+    #BOOL WINAPI CloseHandle( _In_  HANDLE hObject )
+    attach_function 'CloseHandle', [:handle], :bool
+
+    #BOOL WINAPI DuplicateHandle(
+    #  _In_   HANDLE hSourceProcessHandle,
+    #  _In_   HANDLE hSourceHandle,
+    #  _In_   HANDLE hTargetProcessHandle,
+    #  _Out_  LPHANDLE lpTargetHandle,
+    #  _In_   DWORD dwDesiredAccess,
+    #  _In_   BOOL bInheritHandle,
+    #  _In_   DWORD dwOptions )
+    attach_function 'DuplicateHandle', [:handle, :handle, :handle, :pointer, :dword, :bool, :dword], :bool
+
+    #BOOL WINAPI GetHandleInformation(
+    #  _In_   HANDLE hObject,
+    #  _Out_  LPDWORD lpdwFlags )
+    attach_function 'GetHandleInformation', [:handle, :pointer], :bool
+
+    #BOOL WINAPI SetHandleInformation(
+    #  _In_  HANDLE hObject,
+    #  _In_  DWORD dwMask,
+    #  _In_  DWORD dwFlags )
+    attach_function 'SetHandleInformation', [:handle, :dword, :dword], :bool
+  end
+end