|
<< Click to Display Table of Contents >> Navigation: ThinBASIC Modules > Registry > Registry_KeyExists |
Description
Check if a registry key exists.
Syntax
n = Registry_KeyExists(HKEY, sMainKey, sKeyName)
Returns
Numeric.
%TRUE if requested key exists
-1 if sMainKey does not exists
-2 if sMainKey exists but sKeyName not
Parameters
Name |
Type |
Optional |
Meaning |
HKEY |
String |
No |
Can be one of the following strings: "HKEYCR" (%HKEY_CLASSES_ROOT) "HKEYCU" (%HKEY_CURRENT_USER) "HKEYLM" (%HKEY_LOCAL_MACHINE) "HKEYU" (%HKEY_USERS) "HKEYCC" (%HKEY_CURRENT_CONFIG) |
sMainKey |
String |
No |
The requested key path |
sKeyName |
String |
No |
Name of the value to query |
Remarks
Restrictions
See also
Examples
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