* * HELP & MANUAL PREMIUM PACK 4 DEMO VERSION * *
This documentation was styled with a demo skin from the Premium Pack 4 add-on for Help & Manual. The contents of the skin are encrypted and not configurable. You can only publish HM projects with this skin. You cannot edit it or change it.
This version is copyright and may only be used for local testing purposes. It may not be distributed.
Please purchase the full version of the Premium Pack to get the configurable skins and remove this notice. The package will also include the Toolbox configuration utility for Premium Pack skins.
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
