Registry value types

>Registry Value Types

Registry Value Types

These constants match the type passed back from RegQueryValueEx() Windows API. For example:

REM Get the PANIC file directory using server-side $DECLAREs
$DECLARE 'RegQueryValueEx(INT(),STR(),INT(),RETURN INT(),RETURN STR(),RETURN INT())="*"
$DECLARE 'RegOpenKeyEx(INT(),STR(),INT(),INT(),RETURN INT())="*"
$DECLARE 'RegCloseKey(INT())="*"
DIM pandir$256
pandir$ = 'RegGetPanicDir$()
PRINT "Panic directory is ";pandir$
END
REM Find the PANIC directory from the registry
DEFSUB 'RegGetPanicDir$()
 LOCAL DIM path$256
 LOCAL DIM hkey, valsize, valtype, rtn
 rtn = 'RegOpenKeyEx(_HKEY_LOCAL_MACHINE, "Software\Kerridge\KCML", 0, _KEY_READ, BYREF hkey)
 IF (rtn == 0 AND hkey <> 0)
  valsize = LEN(STR(path$))
  rtn = 'RegQueryValueEx(hkey, "panicdir", 0, BYREF valtype, BYREF path$, BYREF valsize)
  IF (rtn <>0 OR valtype <>_REG_SZ)
   REM Failed to read value or value isn't a string
   path$ = " "
  END IF
  'RegCloseKey(hkey)
  END IF
 RETURN path$
END SUB