QREGISTRY Component

(*) Notes :
(*)    - READ and WRITE requires the mother KEY to be OPENED first with OpenKey(Key)
(*)    - WRITE subs Create ValueName if it does not exist
(*)    - MOVEKEY sets undefined ValueDatas of String type to "", which can be a problem.
(*)      MOVEKEY with Delete% set to one is like renaming a key.

' ---- EXAMPLE 1 (old)-----------
'  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)

'(index was 0 originally, but due to ReadBinary bug it must be -1)
IF Registry.ReadBinary("Remote Connection", -1) = 1 THEN
  ShowMessage("You're connected!")
ELSE
  ShowMessage("You're not connected!")
END IF
Registry.CloseKey '(*)

' ---- EXAMPLE 2 (new)-----------------
Const HKEY_CURRENT_USER  = &H80000001
'
DIM Registry AS QRegistry

With Registry
   .RootKey = HKEY_CURRENT_USER
'  Write Key and Values
'  --------------------
   .OpenKey("TestToDelete", 1)   ' Create Key if dont exist
        .WriteInteger("MyInteger", 1234567890)
        .WriteString ("Mystring", "1234567890")
        DefByte MyBinary(10) = {1,2,3,4,5,6,7,8,9,0}
        .WriteBinary ("MyBinary", MyBinary(), 10)
   .CloseKey
'  Read Values
'  -----------
   .OpenKey("TestToDelete", 1)
        Print "MyInteger=";.ReadInteger("MyInteger")
        Print " Mystring=";.ReadString ("Mystring")
        DefInt N
        For N = -1 To 8  ' This is a QREGISTRY 'bug' Binary index starts at -1
            Print "MyBinary(";N")=";.ReadBinary ("MyBinary", N)
        Next N
   .CloseKey
'  Delete the Key and all its Values
' ----------------------------------
   .DeleteKey ("TestToDelete")
End With
' Exit Console
' ------------
DefStr sExit
Input "    FINISHED               CR to QUIT ", sExit
Application.Terminate
' -------------------------------------