Navigation:  thinBasic Modules > Registry >

Registry_KeyExists

Previous pageReturn to chapter overviewNext page

 

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