win-ffi 0.3.0

data/lib/win-ffi/structs/user32/raw_input_header.rb

@@ -0,0 +1,10 @@
+module WinFFI
+  module User32
+    class RAWINPUTHEADER < FFIStruct
+      layout :dwType,   :dword,
+             :dwSize,   :dword,
+             :hDevice,  :handle,
+             :wParam,   :wparam
+    end
+  end
+end

data/lib/win-ffi/structs/user32/touch_hit_testing_input.rb

@@ -0,0 +1,11 @@
+module WinFFI
+  module User32
+    class TOUCH_HIT_TESTING_INPUT < FFIStruct
+      layout :pointerId,              :uint32,
+             :point,                  POINT,
+             :boundingBox,            RECT,
+             :nonOccludedBoundingBox, RECT,
+             :orientation,            :uint32
+    end
+  end
+end

data/lib/win-ffi/structs/user32/touch_hit_testing_proximity_evaluation.rb

@@ -0,0 +1,8 @@
+module WinFFI
+  module User32
+    class TOUCH_HIT_TESTING_PROXIMITY_EVALUATION < FFIStruct
+      layout :score,         :uint16,
+             :adjustedPoint, POINT
+    end
+  end
+end

data/lib/win-ffi/structs/user32/track_mouse_event.rb

@@ -0,0 +1,10 @@
+module WinFFI
+  module User32
+    class TRACKMOUSEEVENT < FFIStruct
+      layout :cbSize,      :dword,
+             :dwFlags,     :dword,
+             :hwndTrack,   :hwnd,
+             :dwHoverTime, :dword
+    end
+  end
+end

data/lib/win-ffi/structs/user32/window/alt_tab_info.rb

@@ -0,0 +1,17 @@
+require 'win-ffi/structs/point'
+
+module WinFFI
+  module User32
+    class AltTabInfo < FFIStruct
+      layout :cbSize,    :dword,
+             :cItems,    :int,
+             :cColumns,  :int,
+             :cRows,     :int,
+             :iColFocus, :int,
+             :iRowFocus, :int,
+             :cxItem,    :int,
+             :cyItem,    :int,
+             :ptStart,   POINT
+    end
+  end
+end

data/lib/win-ffi/structs/user32/window/bs_info.rb

@@ -0,0 +1,12 @@
+require_relative '../../../structs/user32/window/luid'
+
+module WinFFI
+  module User32
+    class BSINFO < FFIStruct
+      layout :cItems,    :int,
+             :hdesk,     :hdesk,
+             :hwnd,      :hwnd,
+             :luid,      LUID
+    end
+  end
+end

data/lib/win-ffi/structs/user32/window/create_struct.rb

@@ -0,0 +1,22 @@
+module WinFFI
+  module User32
+    class CREATESTRUCT < FFIStruct
+      layout :lpCreateParams, :pointer,
+             :hInstance,      :hinstance,
+             :hMenu,          :hmenu,
+             :hwndParent,     :pointer,
+             :height,         :int,
+             :width,          :int,
+             :y,              :int,
+             :x,              :int,
+             :style,          :long,
+             :lpszName,       :string,
+             :lpszClass,      :string,
+             :dwExStyle,      :uint
+
+      def to_s
+        [:lpCreateParams, :x, :y, :width, :height, :style, :dwExStyle].map{|n| "#{n} = #{send(n)}"}.join(', ')
+      end
+    end
+  end
+end

data/lib/win-ffi/structs/user32/window/dlg_template.rb

@@ -0,0 +1,13 @@
+module WinFFI
+  module User32
+    class DLGTEMPLATE < FFIStruct
+      layout :style,           :dword,
+             :dwExtendedStyle, :dword,
+             :cdit,            :word,
+             :x,               :short,
+             :y,               :short,
+             :cx,              :short,
+             :cy,              :short
+    end
+  end
+end

data/lib/win-ffi/structs/user32/window/flashw_info.rb

@@ -0,0 +1,11 @@
+module WinFFI
+  module User32
+    class FlashwInfo < FFIStruct
+      layout :cbSize,    :uint,
+             :hwnd,      :hwnd,
+             :dwFlags,   :dword,
+             :uCount,    :uint,
+             :dwTimeout, :dword
+    end
+  end
+end

data/lib/win-ffi/structs/user32/window/gui_thread_info.rb

@@ -0,0 +1,17 @@
+require 'win-ffi/structs/rect'
+
+module WinFFI
+  module User32
+    class GuiThreadInfo < FFIStruct
+      layout :cbSize,        :dword,
+             :flags,         :dword,
+             :hwndActive,    :hwnd,
+             :hwndFocus,     :hwnd,
+             :hwndCapture,   :hwnd,
+             :hwndMenuOwner, :hwnd,
+             :hwndMoveSize,  :hwnd,
+             :hwndCaret,     :hwnd,
+             :rcCaret,       RECT
+    end
+  end
+end

data/lib/win-ffi/structs/user32/window/luid.rb

@@ -0,0 +1,8 @@
+module WinFFI
+  module User32
+    class LUID < FFIStruct
+      layout :LowPart,  :dword,
+             :HighPart, :long
+    end
+  end
+end

data/lib/win-ffi/structs/user32/window/menu_info.rb

@@ -0,0 +1,13 @@
+module WinFFI
+  module User32
+    class MENUINFO < FFIStruct
+      layout :cbSize,          :dword,
+             :fMask,           :dword,
+             :dwStyle,         :dword,
+             :cyMax,           :uint,
+             :hbrBack,         :hbrush,
+             :dwContextHelpID, :dword,
+             :dwMenuData,      :ulong
+    end
+  end
+end

data/lib/win-ffi/structs/user32/window/menu_item_info.rb

@@ -0,0 +1,18 @@
+module WinFFI
+  module User32
+    class MENUITEMINFO < FFIStruct
+      layout :cbSize,        :uint,
+             :fMask,         :uint,
+             :ftype,         :uint,
+             :fState,        :uint,
+             :wID,           :uint,
+             :hSubMenu,      :hmenu,
+             :hbmpChecked,   :pointer,
+             :hbmpUnchecked, :pointer,
+             :dwItemData,    :ulong,
+             :dwTypeData,    :string,
+             :cch,           :uint,
+             :hbmpItem,      :pointer
+    end
+  end
+end

data/lib/win-ffi/structs/user32/window/menu_item_template.rb

@@ -0,0 +1,9 @@
+module WinFFI
+  module User32
+    class MENUITEMTEMPLATE < FFIStruct
+      layout :mtOption,  :word,
+             :mtID,      :word,
+             :mtString,  :char
+    end
+  end
+end

data/lib/win-ffi/structs/user32/window/menubar_info.rb

@@ -0,0 +1,12 @@
+module WinFFI
+  module User32
+    class MENUBARINFO < FFIStruct
+      layout :cbSize,      :dword,
+             :rcBar,       RECT,
+             :hMenu,       :hmenu,
+             :hwndMenu,    :hwnd,
+             :fBarFocused, :bool,
+             :fFocused,    :bool
+    end
+  end
+end

data/lib/win-ffi/structs/user32/window/msgbox_params.rb

@@ -0,0 +1,16 @@
+module WinFFI
+  module User32
+    class MSGBOXPARAMS < FFIStruct
+      layout :cbSize,             :uint,
+             :hwndOwner,          :hwnd,
+             :hInstance,          :hinstance,
+             :lpszText,           :string,
+             :lpszCaption,        :string,
+             :dwStyle,            :dword,
+             :lpszIcon,           :string,
+             :dwContextHelpId,    :ulong,
+             :lpfnMsgBoxCallback, :pointer,
+             :dwLanguageId,       :dword
+    end
+  end
+end

data/lib/win-ffi/structs/user32/window/non_client_metrics.rb

@@ -0,0 +1,29 @@
+require 'win-ffi/structs/gdi32/log_font'
+
+module WinFFI
+  module User32
+    class NONCLIENTMETRICS < FFIStruct
+      layout(*[
+                 :cbSize,           :uint,
+                 :iBorderWidth,     :int,
+                 :iScrollWidth,     :int,
+                 :iScrollHeight,    :int,
+                 :iCaptionWidth,    :int,
+                 :iCaptionHeight,   :int,
+                 :lfCaptionFont,    Gdi32::LOGFONT,
+                 :iSmCaptionWidth,  :int,
+                 :iSmCaptionHeight, :int,
+                 :lfSmCaptionFont,  Gdi32::LOGFONT,
+                 :iMenuWidth,       :int,
+                 :iMenuHeight,      :int,
+                 :lfMenuFont,       Gdi32::LOGFONT,
+                 :lfStatusFont,     Gdi32::LOGFONT,
+                 :lfMessageFont,    Gdi32::LOGFONT,
+                 (WindowsVersion >= :vista) ? [:iPaddedBorderWidth, :int] : nil
+             ].tap { |layout|
+               layout.flatten!
+               layout.compact!
+             })
+    end
+  end
+end

data/lib/win-ffi/structs/user32/window/title_bar_info.rb

@@ -0,0 +1,9 @@
+module WinFFI
+  module User32
+    class TitleBarInfo < FFIStruct
+      layout :cbSize,        :dword,
+             :rcTitleBar,    RECT,
+             :rgstate,       :dword
+    end
+  end
+end

data/lib/win-ffi/structs/user32/window/tpm_params.rb

@@ -0,0 +1,8 @@
+module WinFFI
+  module User32
+    class TPMPARAMS  < FFIStruct
+      layout :cbSize,    :uint,
+             :rcExclude, RECT
+    end
+  end
+end

data/lib/win-ffi/structs/user32/window/update_layered_window_info.rb

@@ -0,0 +1,22 @@
+require 'win-ffi/structs/point'
+require 'win-ffi/structs/size'
+require 'win-ffi/enums/user32/layered_window_attributes_flags'
+require 'win-ffi/structs/rect'
+
+
+module WinFFI
+  module User32
+    class UpdateLayeredWindowInfo < FFIStruct
+      layout :cbSize,   :dword,
+             :hdcDst,   :hdc,
+             :pptDst,   POINT.ptr,
+             :psize,    SIZE.ptr,
+             :hdcSrc,   :hdc,
+             :pptSrc,   POINT.ptr,
+             :crKey,    :dword,
+             :pblend,   :pointer,
+             :dwFlags,  LayeredWindowAttributesFlags,
+             :prcDirty, RECT.ptr
+    end
+  end
+end

data/lib/win-ffi/structs/user32/window/window_placement.rb

@@ -0,0 +1,32 @@
+module WinFFI
+  module User32
+    class WindowPlacement < FFIStruct
+      layout :length,           :uint,
+             :flags,            :uint,
+             :showCmd,          :uint,
+             :ptMinPosition,    POINT,
+             :ptMaxPosition,    POINT,
+             :rcNormalPosition, RECT
+
+      #TODO
+      #remove_method :length=
+
+      def initialize
+        super
+        self[:length] = self.size
+      end
+
+      def showCmd
+        User32::ShowWindowEnum[self[:showCmd]]
+      end
+
+      def showCmd=(v)
+        self[:showCmd] = v.is_a?(Integer) ? v : User32::ShowWindowEnum[v]
+      end
+
+      def to_s
+        "showCmd = #{showCmd}, min = #{ptMinPosition}, max = #{ptMaxPosition}, normal = #{rcNormalPosition}"
+      end
+    end
+  end
+end

data/lib/win-ffi/structs/user32/window/window_pos.rb

@@ -0,0 +1,46 @@
+require_relative '../../../enums/user32/window/set_window_pos_flags'
+
+module WinFFI
+  module User32
+    class WindowPos < FFIStruct
+      FLAGS_INV = SetWindowPosFlags.to_hash.reduce(Hash.new{|h,k| h[k] = []}){|h,(k,v)| h[v] << k; h}.freeze
+
+      layout :hwnd,            :pointer, #HWND
+             :hwndInsertAfter, :pointer, #HWND
+             :left,            :int,
+             :top,             :int,
+             :width,           :int,
+             :height,          :int,
+             :flags,           :uint
+
+      def flags
+        val = self[:flags]
+        Set.new(FLAGS_INV.select { |k,_| val & k != 0 }.reduce([]) { |a,(_,v)| a << v }.flatten)
+      end
+
+      def flags=(flags)
+        self[:flags] = [*flags].reduce(0) { |a,f| a | SetWindowPosFlags[f].to_i }
+      end
+
+      def right
+        width + left
+      end
+
+      def right=(v)
+        self.width = v - left
+      end
+
+      def bottom
+        height + top
+      end
+
+      def bottom=(v)
+        self.height = v - top
+      end
+
+      def to_s
+        "left = #{left}, top = #{top}, width = #{width}, height = #{height}, flags = #{flags.to_a.inspect}"
+      end
+    end
+  end
+end

data/lib/win-ffi/structs/user32/window/wndclass.rb

@@ -0,0 +1,19 @@
+require 'win-ffi/functions/user32/window/window_proc'
+
+module WinFFI
+  module User32
+    class WNDCLASS < FFIStruct
+      layout :style,         :uint,
+             :lpfnWndProc,   WindowProc,
+             :cbClsExtra,    :int,
+             :cbWndExtra,    :int,
+             :hInstance,     :hinstance,
+             :hIcon,         :hicon,
+             :hCursor,       :hcursor,
+             :hbrBackground, :hbrush,
+             :lpszMenuName,  :pointer,
+             :lpszClassName, :pointer,
+             :hIconSm,       :pointer
+    end
+  end
+end

data/lib/win-ffi/structs/user32/window/wndclassex.rb

@@ -0,0 +1,40 @@
+require 'win-ffi/enums/user32/window/style/window_class_style'
+require 'win-ffi/functions/user32/window/window_proc'
+
+module WinFFI
+  module User32
+    class WNDCLASSEX < FFIStruct
+      layout :cbSize,        :uint,
+             :style,         WindowClassStyle,
+             :lpfnWndProc,   WindowProc,
+             :cbClsExtra,    :int,
+             :cbWndExtra,    :int,
+             :hInstance,     :hinstance,
+             :hIcon,         :hicon,
+             :hCursor,       :hcursor,
+             :hbrBackground, :hbrush,
+             :lpszMenuName,  :pointer,
+             :lpszClassName, :pointer,
+             :hIconSm,       :pointer
+
+      #TODO
+      #undef_method :cbSize=
+
+      def initialize(class_name)
+        super()
+        @class_name = class_name
+        self.cbSize = self.size
+        self.lpszClassName = FFI::MemoryPointer.from_string(@class_name)
+        @atom = nil
+      end
+
+      def atom
+        @atom = User32::RegisterClassExW(self) unless @atom
+        raise 'RegisterClassEx Error' if @atom == 0
+        @atom
+      end
+    end
+  end
+end
+
+require 'win-ffi/functions/user32/window/window_class'

data/lib/win-ffi/version.rb

@@ -0,0 +1,3 @@
+module WinFFI
+  VERSION = '0.3.0'
+end

data/lib/win-ffi.rb

@@ -0,0 +1,42 @@
+require 'facets/pathname'
+require 'win-ffi/version'
+require 'win-ffi/struct'
+
+
+module WinFFI
+  require 'win-ffi/lib_base'
+  extend LibBase
+
+  module Kernel32
+    extend LibBase
+
+    ffi_lib 'kernel32'
+
+    #BOOL WINAPI GetVersionEx( _Inout_  LPOSVERSIONINFO lpVersionInfo )
+    attach_function 'GetVersionExA', [:pointer], :bool
+    attach_function 'GetVersionExW', [:pointer], :bool
+  end
+
+  require_relative 'win-ffi/structs/os_version_info_ex'
+
+  WindowsVersion = OSVERSIONINFOEX.new.get!
+
+  require 'win-ffi/functions/netapi32/network_management'
+  require 'win-ffi/structs/netapi32/wksta_info_100'
+
+  FFI::MemoryPointer.new(:long) do |pinfoRawData|
+    if Netapi32.NetWkstaGetInfo(nil, 100, pinfoRawData) == 0
+      net_info = WKSTA_INFO_100.new(pinfoRawData.get_pointer(0))
+      major = net_info.wki100_ver_major
+      minor = net_info.wki100_ver_minor
+      puts major
+      puts minor
+      WindowsVersion.major = major
+      WindowsVersion.minor = minor
+      puts WindowsVersion.major
+    end
+  end
+
+  puts "WinFFI #{WinFFI::VERSION}"
+  puts WinFFI::WindowsVersion.to_s
+end