Rapid-Q Documentation by William Yu (c)1999 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 = &H2

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 ComponentContentsNext Component