Registry access is working fine in thinBasic under Wine.
uses "Registry"
dim lRet as long
dim sKeyPath as string value "Software\thinBasic"
dim sKeyName as string value "InstallPath"
DIM MyValue AS STRING
lRet = Registry_KeyExists("HKEYLM", sKeyPath, sKeyName)
if lRet = %TRUE then
MyValue = Registry_GetValue("HKEYLM", sKeyPath, sKeyName)
msgbox 0, "Key " & sKeyPath & sKeyName & " exists: " & MyValue
else
if lRet = -1 then
msgbox 0, "Path [" & sKeyPath & "] not found in registry"
elseif lRet = -2 then
msgbox 0, "Path [" & sKeyPath & "] exists but key [" & sKeyName & "] not found in registry"
end if
end if
Bookmarks