Appendix A: QREGISTRY

QREGISTRY Component

QRegistry encapsulates functions that operate on the Window's system registry.

QRegistry Properties

Field	Type	R/W	Default
CurrentKey	INTEGER	R
CurrentPath	STRING	R
GetDataSize	INTEGER	R
GetDataType	INTEGER	R
HasSubKeys	INTEGER	R
KeyItemCount	INTEGER	R
ValueItemCount	INTEGER	R
RootKey	INTEGER	RW	HKEY_CURRENT_USER

QRegistry Methods

Method	Type	Description	Params
CloseKey	SUB	Closes opened key	0
CreateKey	FUNCTION (Key$) AS INTEGER	Creates a new key in CurrentPath.	1
DeleteKey	FUNCTION (Key$) AS INTEGER	Deletes key.	1
DeleteValue	FUNCTION (ValName$) AS INTEGER	Deletes a value data.	1
KeyExists	FUNCTION (Key$) AS INTEGER	Returns 0 or 1 if key exists.	1
KeyItem	FUNCTION (Index%) AS STRING	Retrieve the names of the subkeys	1
MoveKey	FUNCTION (Old$, New$, Delete%)	Moves existing key, subkeys, and data values.	3
OpenKey	FUNCTION (Key$, CanCreate%)	CanCreate specifies whether to create the specified key if it does not exist.	2
ReadBinary	FUNCTION (Key$, Index%) AS BYTE	Return binary value of specified key	2
ReadFloat	FUNCTION (Key$) AS DOUBLE	Return double value of specified key	1
ReadInteger	FUNCTION (Key$) AS INTEGER	Return integer value of specified key	1
ReadString	FUNCTION (Key$) AS STRING	Return string value of specified key	1
RegistryConnect	FUNCTION (CompName$) AS INTEGER	Establishes connection to another computer's registry.	1
RenameValue	FUNCTION (Old$, New$) AS INTEGER	Renames existing data value.	2
ValueExists	FUNCTION (Value$) AS INTEGER	Returns 0 or 1 if data value Value$ exists.	1
ValueItem	FUNCTION (Index%) AS STRING	Retrieve the names of the data values	1
WriteBinary	SUB (Key$, BYTE(), Size%)	Write Array of BYTEs in the specified key	3
WriteFloat	SUB (Key$, Value#)	Write double value in the specified key	2
WriteInteger	SUB (Key$, Value&)	Write integer value in the specified key	2
WriteString	SUB (Key$, Value$)	Write string in the specified key	2

QRegistry Events

Event

Type

Occurs when...

Params

QRegistry Examples

'  Detect if your computer is connected to the internet

Const HKEY_LOCAL_MACHINE = &H80000002

DIM Registry AS QRegistry

Registry.RootKey = HKEY_LOCAL_MACHINE
Registry.OpenKey("System\CurrentControlSet\Services\RemoteAccess", 0)

IF Registry.ReadBinary("Remote Connection", 0) = 1 THEN
  ShowMessage("You're connected!")
ELSE
  ShowMessage("You're not connected!")
END IF

Prev Component

Contents

Next Component