SET PROCEDURE TO clsRapiReg ADDITIVE
#DEFINE HKEY_CURRENT_USER   0x80000001
 
LOCAL oRapi, oKey, cKeyName, cSubkeyName, oSubkey
oRapi = CREATEOBJECT("Trapi")
 
IF NOT oRapi.Connected
    = MESSAGEBOX("Mobile device is unavailable.     ", 48, "Error")
    RETURN
ENDIF
 
cKeyName = "Software"
cSubkeyName = "News2News\winapi\membership"
 
oKey = CREATEOBJECT("Tkey", HKEY_CURRENT_USER, cKeyName)
IF NOT oKey.OpenKey()
    = MESSAGEBOX("Could not open the specified key.     ", 48, "Error")
ENDIF
 
IF oKey.CreateSubkey(cSubkeyName, "")
    oSubkey = CREATEOBJECT("Tkey", HKEY_CURRENT_USER,;
        cKeyName+"\"+cSubkeyName)
 
    IF oSubkey.OpenKey()
        oSubkey.SetValueStr("account", SYS(0))
        oSubkey.SetValueStr("group", "guest")
 
        oSubkey.SetValueInt("start", VAL(SYS(11, DATE())))
        oSubkey.DeleteValue("start")  && value deleted immediately
    ENDIF
ENDIF
 
* delete the subkey when it is no longer needed
*oKey.DeleteSubkey("news2news")