fzeet 0.6.0 → 0.6.1

data/lib/fzeet/Dialog/PrintDialog.rb

@@ -0,0 +1,75 @@
+require_relative 'Common'
+
+module Fzeet
+	class PageSetupDialog
+		def initialize(opts = {})
+			_opts = {
+
+			}
+			badopts = opts.keys - _opts.keys; raise "Bad option(s): #{badopts.join(', ')}." unless badopts.empty?
+			_opts.merge!(opts)
+
+			@struct = Windows::PAGESETUPDLG.new
+
+			@struct[:lStructSize] = @struct.size
+			@struct[:hInstance] = Windows.GetModuleHandle(nil)
+			@struct[:Flags] = Fzeet.flags(0, :psd_)
+		end
+
+		attr_reader :struct
+
+		def show(window = Application.window)
+			@struct[:hwndOwner] = window.handle
+
+			DialogResult.new((Windows.PageSetupDlg(@struct) == 0) ? Windows::IDCANCEL : Windows::IDOK)
+		end
+	end
+
+	class PrintDialog
+		def initialize(opts = {})
+			_opts = {
+
+			}
+			badopts = opts.keys - _opts.keys; raise "Bad option(s): #{badopts.join(', ')}." unless badopts.empty?
+			_opts.merge!(opts)
+
+			@struct = Windows::PRINTDLG.new
+
+			@struct[:lStructSize] = 66
+			@struct[:hInstance] = Windows.GetModuleHandle(nil)
+			@struct[:Flags] = Fzeet.flags([:returndc, :usedevmodecopiesandcollate], :pd_)
+		end
+
+		attr_reader :struct
+
+		def show(window = Application.window)
+			@struct[:hwndOwner] = window.handle
+
+			DialogResult.new((Windows.PrintDlg(@struct) == 0) ? Windows::IDCANCEL : Windows::IDOK)
+		end
+	end
+
+	class PrintDialogEx
+		def initialize(opts = {})
+			_opts = {
+
+			}
+			badopts = opts.keys - _opts.keys; raise "Bad option(s): #{badopts.join(', ')}." unless badopts.empty?
+			_opts.merge!(opts)
+
+			@struct = Windows::PRINTDLGEX.new
+
+			@struct[:lStructSize] = @struct.size
+			@struct[:hInstance] = Windows.GetModuleHandle(nil)
+			@struct[:Flags] = Fzeet.flags([:returndc, :usedevmodecopiesandcollate], :pd_)
+		end
+
+		attr_reader :struct
+
+		def show(window = Application.window)
+			@struct[:hwndOwner] = window.handle
+
+			DialogResult.new((Windows.PrintDlgEx(@struct) != Windows::S_OK) ? Windows::IDCANCEL : Windows::IDOK)
+		end
+	end
+end

data/lib/fzeet/Dialog/ShellFileDialog.rb

@@ -0,0 +1,133 @@
+require_relative 'Common'
+
+module Fzeet
+	module ShellFileDialogMethods
+		def Show(*args)
+			raise "#{self}.#{__method__} failed." if
+				Windows.FAILED(result = vtbl[:Show].call(self, *args)) &&
+				result != Windows.HRESULT_FROM_WIN32(Windows::ERROR_CANCELLED) - 0x1_0000_0000
+
+			result
+		end
+
+		def path
+			result = nil
+
+			FFI::MemoryPointer.new(:pointer) { |psi|
+				next unless GetResult(psi) == Windows::S_OK
+
+				si = Windows::ShellItem.new(psi.read_pointer)
+
+				begin
+					FFI::MemoryPointer.new(:pointer) { |pwcs|
+						next unless si.GetDisplayName(Windows::SIGDN_FILESYSPATH, pwcs) == Windows::S_OK
+
+						wcs = pwcs.read_pointer
+
+						begin
+							result = Windows.WCSTOMBS(wcs)
+						ensure
+							Windows.CoTaskMemFree(wcs)
+						end
+					}
+				ensure
+					si.Release
+				end
+			}
+
+			result
+		end
+
+		def paths
+			result = []
+
+			FFI::MemoryPointer.new(:pointer) { |psia|
+				next unless GetResults(psia) == Windows::S_OK
+
+				sia = Windows::ShellItemArray.new(psia.read_pointer)
+
+				begin
+					FFI::MemoryPointer.new(:ulong) { |pc|
+						next unless sia.GetCount(pc) == Windows::S_OK
+
+						pc.read_long.times { |i|
+							FFI::MemoryPointer.new(:pointer) { |psi|
+								next unless sia.GetItemAt(i, psi) == Windows::S_OK
+
+								si = Windows::ShellItem.new(psi.read_pointer)
+
+								begin
+									FFI::MemoryPointer.new(:pointer) { |pwcs|
+										next unless si.GetDisplayName(Windows::SIGDN_FILESYSPATH, pwcs) == Windows::S_OK
+
+										wcs = pwcs.read_pointer
+
+										begin
+											result << Windows.WCSTOMBS(wcs)
+										ensure
+											Windows.CoTaskMemFree(wcs)
+										end
+									}
+								ensure
+									si.Release
+								end
+							}
+						}
+					}
+				ensure
+					sia.Release
+				end
+			}
+
+			result
+		end
+
+		def show(window = Application.window)
+			DialogResult.new((Show(window.handle) == Windows::S_OK) ? Windows::IDOK : Windows::IDCANCEL)
+		end
+	end
+
+	class ShellFileOpenDialog < Windows::FileOpenDialog
+		include ShellFileDialogMethods
+
+		def initialize(opts = {})
+			super()
+
+			begin
+				yield self
+			ensure
+				Release()
+			end if block_given?
+		end
+	end
+
+	class ShellFileSaveDialog < Windows::FileSaveDialog
+		include ShellFileDialogMethods
+
+		def initialize(opts = {})
+			super()
+
+			begin
+				yield self
+			ensure
+				Release()
+			end if block_given?
+		end
+	end
+
+	class ShellFolderDialog < Windows::FileOpenDialog
+		include ShellFileDialogMethods
+
+		def initialize(opts = {})
+			super()
+
+			SetOptions(Windows::FOS_PICKFOLDERS)
+
+			begin
+				yield self
+			ensure
+				Release()
+			end if block_given?
+		end
+	end
+end

data/lib/fzeet/Dialog.rb

@@ -1,2 +1,6 @@
 require_relative 'Dialog/FileDialog'
-require_relative 'Dialog/FolderDialog'
+require_relative 'Dialog/ShellFileDialog' if Fzeet::Windows::WINVER.AtLeastWindowsVista?
+require_relative 'Dialog/FontDialog'
+require_relative 'Dialog/ColorDialog'
+require_relative 'Dialog/FindReplaceDialog'
+require_relative 'Dialog/PrintDialog'

data/lib/fzeet/windows/com.rb

@@ -20,12 +20,18 @@ module Fzeet
 		E_ACCESSDENIED = 0x80070005 - 0x1_0000_0000
 		E_PENDING = 0x8000000A - 0x1_0000_0000
 
+		FACILITY_WIN32 = 7
+
+		ERROR_CANCELLED = 1223
+
 		def SUCCEEDED(hr) hr >= 0 end
 		def FAILED(hr) hr < 0 end
+		def HRESULT_FROM_WIN32(x) (x <= 0) ? x : (x & 0x0000FFFF) | (FACILITY_WIN32 << 16) | 0x80000000 end
 
 		module_function \
 			:SUCCEEDED,
-			:FAILED
+			:FAILED,
+			:HRESULT_FROM_WIN32
 
 		def DetonateHresult(name, *args)
 			failed = FAILED(result = send(name, *args)) and raise "#{name} failed (hresult #{format('%#08x', result)})."
@@ -264,5 +270,14 @@ module Fzeet
 		]
 
 		Unknown = COM::Instance[IUnknown]
+
+		IObjectWithSite = COM::Interface[IUnknown,
+			GUID['FC4801A3-2BA9-11CF-A229-00AA003D7352'],
+
+			SetSite: [[:pointer], :long],
+			GetSite: [[:pointer, :pointer], :ulong]
+		]
+
+		ObjectWithSite = COM::Callback[IObjectWithSite]
 	end
 end

data/lib/fzeet/windows/comdlg/ColorDialog.rb

@@ -0,0 +1,34 @@
+require_relative 'Common'
+
+module Fzeet
+	module Windows
+		CCERR_CHOOSECOLORCODES = 0x5000
+
+		CC_RGBINIT = 0x00000001
+		CC_FULLOPEN = 0x00000002
+		CC_PREVENTFULLOPEN = 0x00000004
+		CC_SHOWHELP = 0x00000008
+		CC_ENABLEHOOK = 0x00000010
+		CC_ENABLETEMPLATE = 0x00000020
+		CC_ENABLETEMPLATEHANDLE = 0x00000040
+		CC_SOLIDCOLOR = 0x00000080
+		CC_ANYCOLOR = 0x00000100
+
+		callback :CCHOOKPROC, [:pointer, :uint, :uint, :long], :uint
+
+		class CHOOSECOLOR < FFI::Struct
+			layout \
+				:lStructSize, :ulong,
+				:hwndOwner, :pointer,
+				:hInstance, :pointer,
+				:rgbResult, :ulong,
+				:lpCustColors, :pointer,
+				:Flags, :ulong,
+				:lCustData, :long,
+				:lpfnHook, :CCHOOKPROC,
+				:lpTemplateName, :pointer
+		end
+
+		attach_function :ChooseColor, :ChooseColorA, [:pointer], :int
+	end
+end

data/lib/fzeet/windows/comdlg/Common.rb

@@ -1,9 +1,45 @@
-require_relative '../common'
+require_relative '../user'
+require_relative '../com'
 
 module Fzeet
 	module Windows
 		ffi_lib 'comdlg32'
 		ffi_convention :stdcall
 
+		CDERR_DIALOGFAILURE = 0xFFFF
+		CDERR_GENERALCODES = 0x0000
+		CDERR_STRUCTSIZE = 0x0001
+		CDERR_INITIALIZATION = 0x0002
+		CDERR_NOTEMPLATE = 0x0003
+		CDERR_NOHINSTANCE = 0x0004
+		CDERR_LOADSTRFAILURE = 0x0005
+		CDERR_FINDRESFAILURE = 0x0006
+		CDERR_LOADRESFAILURE = 0x0007
+		CDERR_LOCKRESFAILURE = 0x0008
+		CDERR_MEMALLOCFAILURE = 0x0009
+		CDERR_MEMLOCKFAILURE = 0x000A
+		CDERR_NOHOOK = 0x000B
+		CDERR_REGISTERMSGFAIL = 0x000C
+
+		attach_function :CommDlgExtendedError, [], :ulong
+
+		CDM_FIRST = WM_USER + 100
+		CDM_LAST = WM_USER + 200
+
+		CDN_FIRST = 0x1_0000_0000 - 601
+		CDN_LAST = 0x1_0000_0000 - 699
+
+		LBSELCHSTRING = 'commdlg_LBSelChangedNotify'
+		SHAREVISTRING = 'commdlg_ShareViolation'
+		FILEOKSTRING = 'commdlg_FileNameOK'
+		COLOROKSTRING = 'commdlg_ColorOK'
+		SETRGBSTRING = 'commdlg_SetRGBColor'
+		HELPMSGSTRING = 'commdlg_help'
+		FINDMSGSTRING = 'commdlg_FindReplace'
+
+		CD_LBSELNOITEMS = -1
+		CD_LBSELCHANGE = 0
+		CD_LBSELSUB = 1
+		CD_LBSELADD = 2
 	end
 end

data/lib/fzeet/windows/comdlg/FileDialog.rb

@@ -2,6 +2,11 @@ require_relative 'Common'
 
 module Fzeet
 	module Windows
+		FNERR_FILENAMECODES = 0x3000
+		FNERR_SUBCLASSFAILURE = 0x3001
+		FNERR_INVALIDFILENAME = 0x3002
+		FNERR_BUFFERTOOSMALL = 0x3003
+
 		OFN_READONLY = 0x00000001
 		OFN_OVERWRITEPROMPT = 0x00000002
 		OFN_HIDEREADONLY = 0x00000004
@@ -66,5 +71,37 @@ module Fzeet
 
 		attach_function :GetOpenFileName, :GetOpenFileNameA, [:pointer], :int
 		attach_function :GetSaveFileName, :GetSaveFileNameA, [:pointer], :int
+
+		CDM_GETSPEC = CDM_FIRST + 0x0000
+		CDM_GETFILEPATH = CDM_FIRST + 0x0001
+		CDM_GETFOLDERPATH = CDM_FIRST + 0x0002
+		CDM_GETFOLDERIDLIST = CDM_FIRST + 0x0003
+		CDM_SETCONTROLTEXT = CDM_FIRST + 0x0004
+		CDM_HIDECONTROL = CDM_FIRST + 0x0005
+		CDM_SETDEFEXT = CDM_FIRST + 0x0006
+
+		CDN_INITDONE = CDN_FIRST - 0x0000
+		CDN_SELCHANGE = CDN_FIRST - 0x0001
+		CDN_FOLDERCHANGE = CDN_FIRST - 0x0002
+		CDN_SHAREVIOLATION = CDN_FIRST - 0x0003
+		CDN_HELP = CDN_FIRST - 0x0004
+		CDN_FILEOK = CDN_FIRST - 0x0005
+		CDN_TYPECHANGE = CDN_FIRST - 0x0006
+		CDN_INCLUDEITEM = CDN_FIRST - 0x0007
+
+		class OFNOTIFY < FFI::Struct
+			layout \
+				:hdr, NMHDR,
+				:lpOFN, :pointer,
+				:pszFile, :pointer
+		end
+
+		class OFNOTIFYEX < FFI::Struct
+			layout \
+				:hdr, NMHDR,
+				:lpOFN, :pointer,
+				:psf, :pointer,
+				:pidl, :pointer
+		end
 	end
 end

data/lib/fzeet/windows/comdlg/FindReplaceDialog.rb

@@ -0,0 +1,50 @@
+require_relative 'Common'
+
+module Fzeet
+	module Windows
+		FRERR_FINDREPLACECODES = 0x4000
+		FRERR_BUFFERLENGTHZERO = 0x4001
+
+		FR_DOWN = 0x00000001
+		FR_WHOLEWORD = 0x00000002
+		FR_MATCHCASE = 0x00000004
+		FR_FINDNEXT = 0x00000008
+		FR_REPLACE = 0x00000010
+		FR_REPLACEALL = 0x00000020
+		FR_DIALOGTERM = 0x00000040
+		FR_SHOWHELP = 0x00000080
+		FR_ENABLEHOOK = 0x00000100
+		FR_ENABLETEMPLATE = 0x00000200
+		FR_NOUPDOWN = 0x00000400
+		FR_NOMATCHCASE = 0x00000800
+		FR_NOWHOLEWORD = 0x00001000
+		FR_ENABLETEMPLATEHANDLE = 0x00002000
+		FR_HIDEUPDOWN = 0x00004000
+		FR_HIDEMATCHCASE = 0x00008000
+		FR_HIDEWHOLEWORD = 0x00010000
+		FR_RAW = 0x00020000
+		FR_MATCHDIAC = 0x20000000
+		FR_MATCHKASHIDA = 0x40000000
+		FR_MATCHALEFHAMZA = 0x80000000
+
+		callback :FRHOOKPROC, [:pointer, :uint, :uint, :long], :uint
+
+		class FINDREPLACE < FFI::Struct
+			layout \
+				:lStructSize, :ulong,
+				:hwndOwner, :pointer,
+				:hInstance, :pointer,
+				:Flags, :ulong,
+				:lpstrFindWhat, :pointer,
+				:lpstrReplaceWith, :pointer,
+				:wFindWhatLen, :ushort,
+				:wReplaceWithLen, :ushort,
+				:lCustData, :long,
+				:lpfnHook, :FRHOOKPROC,
+				:lpTemplateName, :pointer,
+		end
+
+		attach_function :FindText, :FindTextA, [:pointer], :pointer
+		attach_function :ReplaceText, :ReplaceTextA, [:pointer], :pointer
+	end
+end

data/lib/fzeet/windows/comdlg/FontDialog.rb

@@ -0,0 +1,78 @@
+require_relative 'Common'
+
+module Fzeet
+	module Windows
+		CFERR_CHOOSEFONTCODES = 0x2000
+		CFERR_NOFONTS = 0x2001
+		CFERR_MAXLESSTHANMIN = 0x2002
+
+		CF_SCREENFONTS = 0x00000001
+		CF_PRINTERFONTS = 0x00000002
+		CF_BOTH = CF_SCREENFONTS | CF_PRINTERFONTS
+		CF_SHOWHELP = 0x00000004
+		CF_ENABLEHOOK = 0x00000008
+		CF_ENABLETEMPLATE = 0x00000010
+		CF_ENABLETEMPLATEHANDLE = 0x00000020
+		CF_INITTOLOGFONTSTRUCT = 0x00000040
+		CF_USESTYLE = 0x00000080
+		CF_EFFECTS = 0x00000100
+		CF_APPLY = 0x00000200
+		CF_ANSIONLY = 0x00000400
+		CF_SCRIPTSONLY = CF_ANSIONLY
+		CF_NOVECTORFONTS = 0x00000800
+		CF_NOOEMFONTS = CF_NOVECTORFONTS
+		CF_NOSIMULATIONS = 0x00001000
+		CF_LIMITSIZE = 0x00002000
+		CF_FIXEDPITCHONLY = 0x00004000
+		CF_WYSIWYG = 0x00008000
+		CF_FORCEFONTEXIST = 0x00010000
+		CF_SCALABLEONLY = 0x00020000
+		CF_TTONLY = 0x00040000
+		CF_NOFACESEL = 0x00080000
+		CF_NOSTYLESEL = 0x00100000
+		CF_NOSIZESEL = 0x00200000
+		CF_SELECTSCRIPT = 0x00400000
+		CF_NOSCRIPTSEL = 0x00800000
+		CF_NOVERTFONTS = 0x01000000
+		CF_INACTIVEFONTS = 0x02000000
+
+		callback :CFHOOKPROC, [:pointer, :uint, :uint, :long], :uint
+
+		SIMULATED_FONTTYPE = 0x8000
+		PRINTER_FONTTYPE = 0x4000
+		SCREEN_FONTTYPE = 0x2000
+		BOLD_FONTTYPE = 0x0100
+		ITALIC_FONTTYPE = 0x0200
+		REGULAR_FONTTYPE = 0x0400
+		PS_OPENTYPE_FONTTYPE = 0x10000
+		TT_OPENTYPE_FONTTYPE = 0x20000
+		TYPE1_FONTTYPE = 0x40000
+		SYMBOL_FONTTYPE = 0x80000
+
+		class CHOOSEFONT < FFI::Struct
+			layout \
+				:lStructSize, :ulong,
+				:hwndOwner, :pointer,
+				:hDC, :pointer,
+				:lpLogFont, :pointer,
+				:iPointSize, :int,
+				:Flags, :ulong,
+				:rgbColors, :ulong,
+				:lCustData, :long,
+				:lpfnHook, :CFHOOKPROC,
+				:lpTemplateName, :pointer,
+				:hInstance, :pointer,
+				:lpszStyle, :pointer,
+				:nFontType, :ushort,
+				:___MISSING_ALIGNMENT__, :ushort,
+				:nSizeMin, :int,
+				:nSizeMax, :int
+		end
+
+		attach_function :ChooseFont, :ChooseFontA, [:pointer], :int
+
+		WM_CHOOSEFONT_GETLOGFONT = WM_USER + 1
+		WM_CHOOSEFONT_SETLOGFONT = WM_USER + 101
+		WM_CHOOSEFONT_SETFLAGS = WM_USER + 102
+	end
+end

data/lib/fzeet/windows/comdlg/PrintDialog.rb

@@ -0,0 +1,198 @@
+require_relative 'Common'
+
+module Fzeet
+	module Windows
+		PDERR_PRINTERCODES = 0x1000
+		PDERR_SETUPFAILURE = 0x1001
+		PDERR_PARSEFAILURE = 0x1002
+		PDERR_RETDEFFAILURE = 0x1003
+		PDERR_LOADDRVFAILURE = 0x1004
+		PDERR_GETDEVMODEFAIL = 0x1005
+		PDERR_INITFAILURE = 0x1006
+		PDERR_NODEVICES = 0x1007
+		PDERR_NODEFAULTPRN = 0x1008
+		PDERR_DNDMMISMATCH = 0x1009
+		PDERR_CREATEICFAILURE = 0x100A
+		PDERR_PRINTERNOTFOUND = 0x100B
+		PDERR_DEFAULTDIFFERENT = 0x100C
+
+		PSD_DEFAULTMINMARGINS = 0x00000000
+		PSD_INWININIINTLMEASURE = 0x00000000
+		PSD_MINMARGINS = 0x00000001
+		PSD_MARGINS = 0x00000002
+		PSD_INTHOUSANDTHSOFINCHES = 0x00000004
+		PSD_INHUNDREDTHSOFMILLIMETERS = 0x00000008
+		PSD_DISABLEMARGINS = 0x00000010
+		PSD_DISABLEPRINTER = 0x00000020
+		PSD_NOWARNING = 0x00000080
+		PSD_DISABLEORIENTATION = 0x00000100
+		PSD_RETURNDEFAULT = 0x00000400
+		PSD_DISABLEPAPER = 0x00000200
+		PSD_SHOWHELP = 0x00000800
+		PSD_ENABLEPAGESETUPHOOK = 0x00002000
+		PSD_ENABLEPAGESETUPTEMPLATE = 0x00008000
+		PSD_ENABLEPAGESETUPTEMPLATEHANDLE = 0x00020000
+		PSD_ENABLEPAGEPAINTHOOK = 0x00040000
+		PSD_DISABLEPAGEPAINTING = 0x00080000
+		PSD_NONETWORKBUTTON = 0x00200000
+
+		callback :PAGESETUPHOOK, [:pointer, :uint, :uint, :long], :uint
+		callback :PAGEPAINTHOOK, [:pointer, :uint, :uint, :long], :uint
+
+		class PAGESETUPDLG < FFI::Struct
+			layout \
+			:lStructSize, :ulong,
+			:hwndOwner, :pointer,
+			:hDevMode, :pointer,
+			:hDevNames, :pointer,
+			:Flags, :ulong,
+			:ptPaperSize, POINT,
+			:rtMinMargin, RECT,
+			:rtMargin, RECT,
+			:hInstance, :pointer,
+			:lCustData, :long,
+			:lpfnPageSetupHook, :PAGESETUPHOOK,
+			:lpfnPagePaintHook, :PAGEPAINTHOOK,
+			:lpPageSetupTemplateName, :pointer,
+			:hPageSetupTemplate, :pointer
+		end
+
+		attach_function :PageSetupDlg, :PageSetupDlgA, [:pointer], :int
+
+		WM_PSD_PAGESETUPDLG = WM_USER
+		WM_PSD_FULLPAGERECT = WM_USER + 1
+		WM_PSD_MINMARGINRECT = WM_USER + 2
+		WM_PSD_MARGINRECT = WM_USER + 3
+		WM_PSD_GREEKTEXTRECT = WM_USER + 4
+		WM_PSD_ENVSTAMPRECT = WM_USER + 5
+		WM_PSD_YAFULLPAGERECT = WM_USER + 6
+
+		DN_DEFAULTPRN = 0x0001
+
+		class DEVNAMES < FFI::Struct
+			layout \
+				:wDriverOffset, :ushort,
+				:wDeviceOffset, :ushort,
+				:wOutputOffset, :ushort,
+				:wDefault, :ushort
+		end
+
+		PD_ALLPAGES = 0x00000000
+		PD_SELECTION = 0x00000001
+		PD_PAGENUMS = 0x00000002
+		PD_NOSELECTION = 0x00000004
+		PD_NOPAGENUMS = 0x00000008
+		PD_COLLATE = 0x00000010
+		PD_PRINTTOFILE = 0x00000020
+		PD_PRINTSETUP = 0x00000040
+		PD_NOWARNING = 0x00000080
+		PD_RETURNDC = 0x00000100
+		PD_RETURNIC = 0x00000200
+		PD_RETURNDEFAULT = 0x00000400
+		PD_SHOWHELP = 0x00000800
+		PD_ENABLEPRINTHOOK = 0x00001000
+		PD_ENABLESETUPHOOK = 0x00002000
+		PD_ENABLEPRINTTEMPLATE = 0x00004000
+		PD_ENABLESETUPTEMPLATE = 0x00008000
+		PD_ENABLEPRINTTEMPLATEHANDLE = 0x00010000
+		PD_ENABLESETUPTEMPLATEHANDLE = 0x00020000
+		PD_USEDEVMODECOPIES = 0x00040000
+		PD_USEDEVMODECOPIESANDCOLLATE = 0x00040000
+		PD_DISABLEPRINTTOFILE = 0x00080000
+		PD_HIDEPRINTTOFILE = 0x00100000
+		PD_NONETWORKBUTTON = 0x00200000
+		PD_CURRENTPAGE = 0x00400000
+		PD_NOCURRENTPAGE = 0x00800000
+		PD_EXCLUSIONFLAGS = 0x01000000
+		PD_USELARGETEMPLATE = 0x10000000
+
+		callback :PRINTHOOKPROC, [:pointer, :uint, :uint, :long], :uint
+		callback :SETUPHOOKPROC, [:pointer, :uint, :uint, :long], :uint
+
+		class PRINTDLG < FFI::Struct
+			layout \
+				:lStructSize, :ulong, # Set to 66 explicitly, NOT to struct.size
+				:hwndOwner, :pointer,
+				:hDevMode, :pointer,
+				:hDevNames, :pointer,
+				:hDC, :pointer,
+				:Flags, :ulong,
+				:nFromPage, :ushort,
+				:nToPage, :ushort,
+				:nMinPage, :ushort,
+				:nMaxPage, :ushort,
+				:nCopies, :ushort,
+				:hInstance, :pointer, 34,
+				:lCustData, :long, 38,
+				:lpfnPrintHook, :PRINTHOOKPROC, 42,
+				:lpfnSetupHook, :SETUPHOOKPROC, 46,
+				:lpPrintTemplateName, :pointer, 50,
+				:lpSetupTemplateName, :pointer, 54,
+				:hPrintTemplate, :pointer, 58,
+				:hSetupTemplate, :pointer, 62
+		end
+
+		attach_function :PrintDlg, :PrintDlgA, [:pointer], :int
+
+		#PD_EXCL_COPIESANDCOLLATE = DM_COPIES | DM_COLLATE
+
+		class PRINTPAGERANGE < FFI::Struct
+			layout \
+				:nFromPage, :ulong,
+				:nToPage, :ulong
+		end
+
+		IPrintDialogCallback = COM::Interface[IUnknown,
+			GUID['5852A2C3-6530-11D1-B6A3-0000F8757BF9'],
+
+			InitDone: [[], :long],
+			SelectionChange: [[], :long],
+			HandleMessage: [[:pointer, :uint, :uint, :long, :pointer], :long]
+		]
+
+		PrintDialogCallback = COM::Callback[IPrintDialogCallback]
+
+		IPrintDialogServices = COM::Interface[IUnknown,
+			GUID['509AAEDA-5639-11D1-B6A1-0000F8757BF9'],
+
+			GetCurrentDevMode: [[:pointer, :pointer], :long],
+			GetCurrentPrinterName: [[:buffer_out, :pointer], :long],
+			GetCurrentPortName: [[:buffer_out, :pointer], :long]
+		]
+
+		PrintDialogServices = COM::Instance[IPrintDialogServices]
+
+		START_PAGE_GENERAL = 0xffffffff
+
+		PD_RESULT_CANCEL = 0
+		PD_RESULT_PRINT = 1
+		PD_RESULT_APPLY = 2
+
+		class PRINTDLGEX < FFI::Struct
+			layout \
+				:lStructSize, :ulong,
+				:hwndOwner, :pointer,
+				:hDevMode, :pointer,
+				:hDevNames, :pointer,
+				:hDC, :pointer,
+				:Flags, :ulong,
+				:Flags2, :ulong,
+				:ExclusionFlags, :ulong,
+				:nPageRanges, :ulong,
+				:nMaxPageRanges, :ulong,
+				:lpPageRanges, :pointer,
+				:nMinPage, :ulong,
+				:nMaxPage, :ulong,
+				:nCopies, :ulong,
+				:hInstance, :pointer,
+				:lpPrintTemplateName, :pointer,
+				:lpCallback, :pointer,
+				:nPropertyPages, :ulong,
+				:lphPropertyPages, :pointer,
+				:nStartPage, :ulong,
+				:dwResultAction, :ulong
+		end
+
+		attach_function :PrintDlgEx, :PrintDlgExA, [:pointer], :long
+	end
+end