Usage of Registry_GETValue Registry_SetValue Keywords

[Michael Clease]

' How to find out who your computer is registered to.
'and change it if you wanted to. see rem section at bottom.
's = Registry_GetValue(HKEY, MainKey, KeyName)

USES "OS"
USES "Registry"

Dim RegOrg as STRING
DIM RegOwn as STRING
DIM sMsg AS STRING

if OS_WinGetVersionTimeline < %OS_Windows_nt then
RegOwn = Registry_GetValue("HKEYLM", "SOFTWARE\Microsoft\Windows\CurrentVersion", "RegisteredOwner")
RegOrg = Registry_GetValue("HKEYLM", "SOFTWARE\Microsoft\Windows\CurrentVersion", "RegisteredOrganization")
ELSE
RegOwn = Registry_GetValue("HKEYLM", "SOFTWARE\Microsoft\Windows NT\CurrentVersion", "RegisteredOwner")
RegOrg = Registry_GetValue("HKEYLM", "SOFTWARE\Microsoft\Windows NT\CurrentVersion", "RegisteredOrganization")
ENDIF

sMsg += "Registered Organization = " & RegOrg & $CRLF
sMsg += "Registered Owner = " & RegOwn & $crlf & $CRLF

sMsg += "Now Right Click on my computer & Select Properties"

MSGBOX 0, sMsg

stop

' No error trapping just an example. DONT RUN!!! IT WILL CHANGE YOUR SETTINGS
'if OS_WinGetVersionTimeline < %OS_Windows_nt then
' RegOwn = Registry_SETValue("HKEYLM", "SOFTWARE\Microsoft\Windows\CurrentVersion", "RegisteredOwner", "ABRAXAS")
' RegOrg = Registry_SETValue("HKEYLM", "SOFTWARE\Microsoft\Windows\CurrentVersion", "RegisteredOrganization", "THINBASIC")
'ELSE
' RegOwn = Registry_SETValue("HKEYLM", "SOFTWARE\Microsoft\Windows NT\CurrentVersion", "RegisteredOwner", "ABRAXAS")
' RegOrg = Registry_SETValue("HKEYLM", "SOFTWARE\Microsoft\Windows NT\CurrentVersion", "RegisteredOrganization", "ABRAXAS")
'ENDIF