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 = &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