MGCEWin32 provides four separate controls for Windows CE applications capable of making use of COM oriented controls such as NS Basic. Included in this package are:

• Tray Image control
• Registry control
• API control
• Timer Control
• RAS Control

Installation

Connect your Windows CE device to your desktop using ActiveSync. On the desktop, run the program MGCEWin32.exe. Follow the instructions on the screen to complete the installation. All four controls will be installed and registered automatically.

API Control

There are hundreds of available functions in the Win32 API as implemented on Windows CE devices. Unfortunately, none of them are directly available from Basic. Visual Basic can access the functions using the "declare" statement, but it's not terribly intuitive and other brands of Basic may not be able to access the API at all. While it is impractical to provide access to every API function available, it is practical to provide access to the most commonly used and useful functions in the Win32 API which is what this object does. In addition, Windows CE sends messages to applications when certain system-wide changes or events take place. The API control catches these messages and turns them into events your application can handle if it so chooses. Note that the object does not attempt to protect the system from errant programming, so be careful when using this control!

The number of possible flags, options and messages available to even the limited subset of functions this object supports is large enough that this document does not list them, nor does it provide a tutorial of the Win32 API and its use. If you are not familiar with the Win32 API, it is strongly suggested that you do NOT use this object until you have become familiar with the API and the calls supported by this object. While its extremely unlikely that physical damage could occur to your device by using the API, it can't be ruled out and it is entirely possible to lock up a device, requiring a cold reset, using the API. You have been warned and have already agreed, by installing the object, that you accept full responsibility for the use of this object and may not hold the object's author or any distributor of the object liable for any loss or damage brought about by the use of the object.

Object Creation

Samples

• APIEvent - Capture desktop color change event
• APIMisc - Run through a number of API features in no particular order
• APIShell - Demo special folder and shortcut operations
• APIStatus - Demo memory, storage and power status functions

Properties

Methods

Events

sub API_ColorChange
	MsgBox "Something changed a system color"
end sub

sub API_FontChange
	MsgBox "A font has been added or removed"
end sub
		

sub API_Hibernate
	MsgBox "Uh oh...something bad is about to happen"
end sub
		

sub API_PaletteChange
	MsgBox "The system color palette has been changed"
end sub
		

sub API_SettingsChange( flag )
	val = API.SystemParameters( flag )
end sub
		

Tray Image Control

Object Creation

Samples

• Tray - Demo of Tray image functions

Properties

Methods

Events

sub Tray_Click( image )
	MsgBox "You tapped image #" & CStr( image )
end sub

Registry Control

Object Creation

• Registry - Demo of registry functions
• CETweak - Tweak some Window CE appearances via the registry

Properties

Registry.ValueType = REG_DWORD
Registry.Value = "32"      ' This will convert to the number 32
Registry.ValueType = REG_SZ
Registry.Value = 150       ' This will convert to the string "150"
Registry.ValueType = REG_BINARY
Registry.Value = "FFFF00FF0A0B0C0D"  ' Add a binary value
Registry.ValueType = REG_MULTI_SZ  ' Add a string array
a = Array( 2, 3, "Four", 5 )       ' Numbers will convert to strings
Registry.Value = a
a = Registry.Value    ' When reading an array, you can
if Registry.ValueType = REG_MULTI_SZ then ' determine the number of
	iItem = UBound( a )        ' items read by using UBound()
end if

Methods

on error resume next
Registry.Key = CURRENT_USER
Registry.Path = "Software\Test"
iNum = 1
while Err.Number = 0
	MsgBox Registry.GetPathName( iNum )
	iNum = iNum + 1
wend

on error resume next
Registry.Key = CURRENT_USER
Registry.Path = "Software\Test"
iNum = 1
while Err.Number = 0
	MsgBox Registry.GetValueName( iNum )
	iNum = iNum + 1
wend

Events

Timer Control

Object Creation

Samples

• Timer - Demo of Timer functions

Properties

Methods

Events

sub Timer_Interval	
	Listbox.AddItem "Interval fired"
end sub
	

RAS Control

Object Creation

Samples

• RAStest - Demo of RAS functions

Properties

Methods

Events

Change Log

10/24/99: Added RAS object

10/24/99: API Object: added cursorPos and SystemVersion properties

11/5/99: API Object: WindowLong added, example for showWindow corrected.

12/13/99: API Object: added LocalTime, SystemTime, Ticks and WindowParent properties