vrvirtualdesktop 0.0.1

data/lib/Win32/Base.rb

@@ -0,0 +1,275 @@
+##################################################################################################
+#
+# $Author: Steve $
+# $Date: 2005/12/16 18:35:42 $
+# $Version: 0.99$
+# $Change: $
+#
+##################################################################################################
+require "rubygems"
+require_gem "SimpleTrace", "< 0.1.0"
+
+#-------------------------------------------------------------------------------------------------
+# This module contains some very common Win32 methods like LastError, language macros, etc
+module Win32
+
+	require "Win32/APIMapper"
+	require "Win32/Encoding"
+	require "Win32/Base-consts.rb"
+
+	#---------------------------------------------------------------------------------------------
+	#---------------------------------------------------------------------------------------------
+	# Win32 Exceptions
+	class Error < StandardError
+		#-----------------------------------------------------------------------------------------
+		# class methodsFor: "initialization"
+		def initialize(p_nError = nil)
+			$TRACE.debug 9, "p_nError = '#{p_nError}'"
+			@err = LastErrorInfo.new()
+			if p_nError.kind_of?(String) then
+				@err_string = p_nError
+				$TRACE.debug 9, "@err_string = '#{@err_string}'"
+			else
+				@err.set(p_nError) if !p_nError.nil?
+			end
+		end
+
+		#-----------------------------------------------------------------------------------------
+		# methodsFor: "accessing"
+		def errno
+			return @err.to_i
+		end
+
+		#-----------------------------------------------------------------------------------------
+		# methodsFor: "printing"
+		def to_s
+			$TRACE.debug 9, "@err_string = '#{@err_string}'"
+			if @err_string then
+				return @err_string + @err.to_s
+			else
+				return @err.to_s
+			end
+		end
+
+		def message
+			self.to_s
+		end
+	end
+
+	#---------------------------------------------------------------------------------------------
+	#---------------------------------------------------------------------------------------------
+	# Win32 MessageBoxes
+	include APIMapper
+
+	APIMapper.Initialize(
+		'MessageBox' => {	DLL => 'User32', NAME => 'MessageBoxW',
+							IN => ['L', 'P', 'P', 'L'], OUT => 'L'}
+	)
+
+	MB_OK                       = 0x00000000
+	MB_OKCANCEL                 = 0x00000001
+	MB_ABORTRETRYIGNORE         = 0x00000002
+	MB_YESNOCANCEL              = 0x00000003
+	MB_YESNO                    = 0x00000004
+	MB_RETRYCANCEL              = 0x00000005
+
+	MB_ICONHAND                 = 0x00000010
+	MB_ICONQUESTION             = 0x00000020
+	MB_ICONEXCLAMATION          = 0x00000030
+	MB_ICONASTERISK             = 0x00000040
+	MB_USERICON                 = 0x00000080
+	MB_ICONWARNING              = MB_ICONEXCLAMATION
+	MB_ICONERROR                = MB_ICONHAND
+	MB_ICONINFORMATION          = MB_ICONASTERISK
+	MB_ICONSTOP                 = MB_ICONHAND
+
+	def Win32.MessageBox(p_strTitle, p_strMessage, p_nIcon = 0)
+		APIMapper.WCall("MessageBox",
+						0,
+						p_strMessage.to_ucs2(true), p_strTitle.to_ucs2(true),
+						p_nIcon)
+	end
+
+	#---------------------------------------------------------------------------------------------
+	#---------------------------------------------------------------------------------------------
+	# This class encodes and decodes Win32 Language IDs
+	class LangID
+
+		#-----------------------------------------------------------------------------------------
+		# constsFor: "Languages IDs"
+		# (from WinBase.h)
+		LANG_NEUTRAL						= 0x00
+
+		SUBLANG_NEUTRAL						= 0x00	# language neutral
+		SUBLANG_DEFAULT						= 0x01	# user default
+		SUBLANG_SYS_DEFAULT					= 0x02	# system default
+
+		#-----------------------------------------------------------------------------------------
+		# class methodsFor: "initialization"
+		def initialize(p_primaryLang = LANG_NEUTRAL, p_subLang = SUBLANG_NEUTRAL)
+			@nLangID = (p_subLang << 10) | p_primaryLang
+		end
+
+		#-----------------------------------------------------------------------------------------
+		# methodsFor: "accessing"
+		def to_s
+			return @nLangID.to_s
+		end
+
+		def to_i
+			return @nLangID
+		end
+
+		def primary
+			return @nLangID & 0x3FF
+		end
+
+		def sub
+			return @nLangID >> 10
+		end
+	end
+
+	#---------------------------------------------------------------------------------------------
+	#---------------------------------------------------------------------------------------------
+	# This class is used to collect Win32 Last Error
+	
+	class LastErrorInfo
+
+		#-----------------------------------------------------------------------------------------
+		include APIMapper
+
+		APIMapper.Initialize(
+			'GetLastError'	=> {	DLL => 'kernel32', NAME => 'GetLastError',
+									IN => [], OUT =>'L'},
+			'SetLastError'  => {	DLL => 'kernel32', NAME => 'SetLastError',
+									IN => ['L'], OUT => 'V'},
+			'FormatMessage' => {	DLL => 'kernel32', NAME => 'FormatMessageW',
+									IN => ['L', 'P', 'L', 'L', 'P', 'L', 'P'], OUT => 'L'}
+			)
+
+		#-----------------------------------------------------------------------------------------
+		# constsFor: "Message Formats"
+		# (from WinBase.h)
+		FORMAT_MESSAGE_ALLOCATE_BUFFER		= 0x00000100
+		FORMAT_MESSAGE_IGNORE_INSERTS		= 0x00000200
+		FORMAT_MESSAGE_FROM_STRING			= 0x00000400
+		FORMAT_MESSAGE_FROM_HMODULE			= 0x00000800
+		FORMAT_MESSAGE_FROM_SYSTEM			= 0x00001000
+		FORMAT_MESSAGE_ARGUMENT_ARRAY		= 0x00002000
+		FORMAT_MESSAGE_MAX_WIDTH_MASK		= 0x000000FF
+
+		#-----------------------------------------------------------------------------------------
+		# class methodsFor: "initialization"
+		def initialize(p_nErrorCode = nil)
+			@err = p_nErrorCode
+			@err.nil? ? get() : set(p_nErrorCode)
+		end
+
+		#-----------------------------------------------------------------------------------------
+		# methodsFor: "accessing"
+		def to_i
+			return @err
+		end
+
+		def get(p_bSync = true)
+			return p_bSync ? (@err = WCall('GetLastError')) : @err
+		end
+
+		def set(p_err, p_bSync = true)
+			@err = p_err
+			WCall('SetLastError', p_err) if p_bSync
+		end
+
+		def text
+			pBuffer = " " * 1024		# buffer
+			ret = WCall('FormatMessage',
+						FORMAT_MESSAGE_FROM_SYSTEM | FORMAT_MESSAGE_IGNORE_INSERTS,
+						0, @err, LangID.new.to_i, pBuffer, 1024, 0)
+			return pBuffer[0, (ret - 2) * 2].to_utf8		# we don't need the \r\n at the end
+		end
+
+		#-----------------------------------------------------------------------------------------
+		# methodsFor: "printing"
+		def to_s
+			get() if @err.nil?
+			return "Win32 Error: #{@err}, " + text()
+		end
+	end
+
+	#---------------------------------------------------------------------------------------------
+	#---------------------------------------------------------------------------------------------
+	#TODO: The SecurityAttributes class is not finished!!!
+	class SecurityAttributes
+
+		#-----------------------------------------------------------------------------------------
+		# constsFor: "Message Formats"
+		# (from WinNT.h)
+		SE_ASSIGNPRIMARYTOKEN_NAME		= "SeAssignPrimaryTokenPrivilege"
+		SE_AUDIT_NAME					= "SeAuditPrivilege"
+		SE_BACKUP_NAME					= "SeBackupPrivilege"
+		SE_CHANGE_NOTIFY_NAME			= "SeChangeNotifyPrivilege"
+		SE_CREATE_PAGEFILE_NAME			= "SeCreatePagefilePrivilege"
+		SE_CREATE_PERMANENT_NAME		= "SeCreatePermanentPrivilege"
+		SE_CREATE_TOKEN_NAME			= "SeCreateTokenPrivilege"
+		SE_DEBUG_NAME					= "SeDebugPrivilege"
+		SE_INCREASE_QUOTA_NAME			= "SeIncreaseQuotaPrivilege"
+		SE_INC_BASE_PRIORITY_NAME		= "SeIncreaseBasePriorityPrivilege"
+		SE_LOAD_DRIVER_NAME				= "SeLoadDriverPrivilege"
+		SE_LOCK_MEMORY_NAME				= "SeLockMemoryPrivilege"
+		SE_MACHINE_ACCOUNT_NAME			= "SeMachineAccountPrivilege"
+		SE_PROF_SINGLE_PROCESS_NAME		= "SeProfileSingleProcessPrivilege"
+		SE_REMOTE_SHUTDOWN_NAME			= "SeRemoteShutdownPrivilege"
+		SE_RESTORE_NAME					= "SeRestorePrivilege"
+		SE_SECURITY_NAME				= "SeSecurityPrivilege"
+		SE_SHUTDOWN_NAME				= "SeShutdownPrivilege"
+		SE_SYSTEMTIME_NAME				= "SeSystemtimePrivilege"
+		SE_SYSTEM_ENVIRONMENT_NAME		= "SeSystemEnvironmentPrivilege"
+		SE_SYSTEM_PROFILE_NAME			= "SeSystemProfilePrivilege"
+		SE_TAKE_OWNERSHIP_NAME			= "SeTakeOwnershipPrivilege"
+		SE_TCB_NAME						= "SeTcbPrivilege"
+		SE_UNSOLICITED_INPUT_NAME		= "SeUnsolicitedInputPrivilege"
+
+		#-----------------------------------------------------------------------------------------
+		# class methodsFor: "Data sizing"
+		def SecurityAttributes.sizeof
+			return 12			# 1 DWORD, 1 void*, 1 BOOL
+		end
+
+		#-----------------------------------------------------------------------------------------
+		# class methodsFor: "initialization"
+		def initialize(p_bInheritHandle = true)
+			@bInheritHandle = p_bInheritHandle
+		end
+
+		#-----------------------------------------------------------------------------------------
+		# methodsFor: "packing"
+		def pack
+			[SecurityAttributes.sizeof, 0, @bInheritHandle].pack('L3')
+		end
+	end
+
+end
+#  Values are 32 bit values layed out as follows:
+#
+#   3 3 2 2 2 2 2 2 2 2 2 2 1 1 1 1 1 1 1 1 1 1
+#   1 0 9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0
+#  +---+-+-+-----------------------+-------------------------------+
+#  |Sev|C|R|     Facility          |               Code            |
+#  +---+-+-+-----------------------+-------------------------------+
+#
+#  where
+#
+#      Sev - is the severity code
+#
+#          00 - Success
+#          01 - Informational
+#          10 - Warning
+#          11 - Error
+#
+#      C - is the Customer code flag
+#
+#      R - is a reserved bit
+#
+#      Facility - is the facility code
+#
+#      Code - is the facility's status code

data/lib/Win32/Encoding.rb

@@ -0,0 +1,68 @@
+##################################################################################################
+#
+# $Author: Steve $
+# $Date: 2005/12/16 18:35:42 $
+# $Change: $
+#
+##################################################################################################
+
+#-------------------------------------------------------------------------------------------------
+# This mixin brings utf8 and ucs2 encoding to the class String
+module Encoding
+	#---------------------------------------------------------------------------------------------
+	# attributesFor: "String Encoding"
+	attr_writer :encoding
+	attr_reader :encoding
+
+	#---------------------------------------------------------------------------------------------
+	# constsFor: "String Encoding IDs"
+	ANSI = 'ANSI'
+	UTF8 = 'UTF8'
+	UCS2 = 'UCS2'
+
+	#---------------------------------------------------------------------------------------------
+	# class methodsFor: "initialization"
+	def initialize(p_encoding = ANSI)
+		@encoding = p_encoding
+	end
+
+	#---------------------------------------------------------------------------------------------
+	# methodsFor: "encoding"
+	def to_ucs2(p_bZeroTerminate = false)
+		return self if defined? @encoding and UCS2 == @encoding
+		array_enc  = self.unpack('U*')
+		array_ucs2 = []
+		array_enc.each do |byte|
+			array_ucs2 << (byte & 0xFF) << (byte >> 8)
+		end
+		strRet  = array_ucs2.pack('C*')
+		strRet += "\000\000" if p_bZeroTerminate
+		strRet.encoding = UCS2
+		return strRet
+	end
+
+	def to_utf8(p_bZeroTerminate = false)
+		return self if defined? @encoding and (UTF8 == @encoding or ANSI == @encoding)
+		array_enc  = self.unpack('C*')
+		array_utf8 = []
+		0.step(array_enc.size-1, 2) do |i| 
+			array_utf8 << (array_enc.at(i) + array_enc.at(i+1) * 0x100)
+		end
+		strRet  = array_utf8.pack('U*')
+		strRet += "\000" if p_bZeroTerminate
+		strRet.encoding = UTF8
+		return strRet
+	end
+
+	def to_hex
+		str = ''
+		self.unpack('C*').each do |byte|
+			str += " %02X" % byte
+		end
+		return str[1 .. -1]
+	end
+end
+
+class String
+	include Encoding
+end

data/lib/Win32/GetSystemMetrics.rb

@@ -0,0 +1,107 @@
+require "Win32API"
+
+$GetSystemMetrics = Win32API.new("user32","GetSystemMetrics","I","I")
+
+#/*
+# * GetSystemMetrics() codes
+#*/
+
+SM_CXSCREEN = 0
+SM_CYSCREEN = 1
+SM_CXVSCROLL = 2
+SM_CYHSCROLL = 3
+SM_CYCAPTION = 4
+SM_CXBORDER = 5
+SM_CYBORDER = 6
+SM_CXDLGFRAME = 7
+SM_CYDLGFRAME = 8
+SM_CYVTHUMB = 9
+SM_CXHTHUMB = 10
+SM_CXICON = 11
+SM_CYICON = 12
+SM_CXCURSOR = 13
+SM_CYCURSOR = 14
+SM_CYMENU = 15
+SM_CXFULLSCREEN = 16
+SM_CYFULLSCREEN = 17
+SM_CYKANJIWINDOW = 18
+SM_MOUSEPRESENT = 19
+SM_CYVSCROLL = 20
+SM_CXHSCROLL = 21
+SM_DEBUG = 22
+SM_SWAPBUTTON = 23
+SM_RESERVED1 = 24
+SM_RESERVED2 = 25
+SM_RESERVED3 = 26
+SM_RESERVED4 = 27
+SM_CXMIN = 28
+SM_CYMIN = 29
+SM_CXSIZE = 30
+SM_CYSIZE = 31
+SM_CXFRAME = 32
+SM_CYFRAME = 33
+SM_CXMINTRACK = 34
+SM_CYMINTRACK = 35
+SM_CXDOUBLECLK = 36
+SM_CYDOUBLECLK = 37
+SM_CXICONSPACING = 38
+SM_CYICONSPACING = 39
+SM_MENUDROPALIGNMENT = 40
+SM_PENWINDOWS = 41
+SM_DBCSENABLED = 42
+SM_CMOUSEBUTTONS = 43
+
+#if(WINVER >= 0x0400)
+SM_CXFIXEDFRAME = SM_CXDLGFRAME  #/* ;win40 name change */
+SM_CYFIXEDFRAME = SM_CYDLGFRAME  #/* ;win40 name change */
+SM_CXSIZEFRAME = SM_CXFRAME     	#/* ;win40 name change */
+SM_CYSIZEFRAME = SM_CYFRAME     	#/* ;win40 name change */
+
+SM_SECURE = 44
+SM_CXEDGE = 45
+SM_CYEDGE = 46
+SM_CXMINSPACING = 47
+SM_CYMINSPACING = 48
+SM_CXSMICON = 49
+SM_CYSMICON = 50
+SM_CYSMCAPTION = 51
+SM_CXSMSIZE = 52
+SM_CYSMSIZE = 53
+SM_CXMENUSIZE = 54
+SM_CYMENUSIZE = 55
+SM_ARRANGE = 56
+SM_CXMINIMIZED = 57
+SM_CYMINIMIZED = 58
+SM_CXMAXTRACK = 59
+SM_CYMAXTRACK = 60
+SM_CXMAXIMIZED = 61
+SM_CYMAXIMIZED = 62
+SM_NETWORK = 63
+SM_CLEANBOOT = 67
+SM_CXDRAG = 68
+SM_CYDRAG = 69
+#endif /* WINVER >= 0x0400 */
+SM_SHOWSOUNDS = 70
+#if(WINVER >= 0x0400)
+SM_CXMENUCHECK = 71   #/* Use instead of GetMenuCheckMarkDimensions()! */
+SM_CYMENUCHECK = 72
+SM_SLOWMACHINE = 73
+SM_MIDEASTENABLED = 74
+#endif /* WINVER >= 0x0400 */
+#if (WINVER >= 0x0500) || (_WIN32_WINNT >= 0x0400)
+SM_MOUSEWHEELPRESENT = 75
+#endif
+#if(WINVER >= 0x0500)
+SM_XVIRTUALSCREEN = 76
+SM_YVIRTUALSCREEN = 77
+SM_CXVIRTUALSCREEN = 78
+SM_CYVIRTUALSCREEN = 79
+SM_CMONITORS = 80
+SM_SAMEDISPLAYFORMAT = 81
+#endif /* WINVER >= 0x0500 */
+
+#if (WINVER < 0x0500) && (!defined(_WIN32_WINNT) || (_WIN32_WINNT < 0x0400))
+SM_CMETRICS = 76
+#else
+#SM_CMETRICS = 83
+#endif