Rapid-Q Documentation by William Yu (c)1999 Appendix A: QREGISTRY


QREGISTRY Компонент

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

QRegistry Свойства
ПолеТипR/WПо умолчанию




CurrentKeyINTEGERR
CurrentPathSTRINGR
GetDataSizeINTEGERR
GetDataTypeINTEGERR
HasSubKeysINTEGERR
KeyItemCountINTEGERR
ValueItemCountINTEGERR
RootKeyINTEGERRWHKEY_CURRENT_USER

QRegistry Методы
МетодТипОписаниеПараметры




CloseKeySUBCloses opened key0
CreateKeyFUNCTION (Key$) AS INTEGERCreates a new key in CurrentPath.1
DeleteKeyFUNCTION (Key$) AS INTEGERDeletes key.1
DeleteValueFUNCTION (ValName$) AS INTEGERDeletes a value data.1
KeyExistsFUNCTION (Key$) AS INTEGERВозвращает 0 or 1 if key exists.1
KeyItemFUNCTION (Index%) AS STRINGRetrieve the names of the subkeys1
MoveKeyFUNCTION (Old$, New$, Delete%)Moves existing key, subkeys, and data values.3
OpenKeyFUNCTION (Key$, CanCreate%)CanCreate specifies whether to create the specified key if it does not exist.2
ReadBinaryFUNCTION (Key$, Index%) AS BYTEReturn binary value of specified key2
ReadFloatFUNCTION (Key$) AS DOUBLEReturn double value of specified key1
ReadIntegerFUNCTION (Key$) AS INTEGERReturn integer value of specified key1
ReadStringFUNCTION (Key$) AS STRINGReturn string value of specified key1
RegistryConnectFUNCTION (CompName$) AS INTEGEREstablishes connection to another computer's registry.1
RenameValueFUNCTION (Old$, New$) AS INTEGERRenames existing data value.2
ValueExistsFUNCTION (Value$) AS INTEGERВозвращает 0 or 1 if data value Value$ exists.1
ValueItemFUNCTION (Index%) AS STRINGRetrieve the names of the data values1
WriteBinarySUB (Key$, BYTE(), Size%)Write Array of BYTEs in the specified key3
WriteFloatSUB (Key$, Value#)Write double value in the specified key2
WriteIntegerSUB (Key$, Value&)Write integer value in the specified key2
WriteStringSUB (Key$, Value$)Write string in the specified key2

QRegistry События
СобытиеТипПроисходит когда...Параметры






QRegistry Примеры
'  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

Предыдущий Компонент Содержание Следующий Компонент