IsRegValueExists function
Easy Registry utilities
Return to Introduction  Previous page  Next page
Unit
acUtils  

Declaration
function IsRegValueExists(KeyName, ValueName: String; RootKey: hKey): Boolean;  

Description
The IsRegValueExists function returns True if the value, specified in ValueName parameter, is exists under registry key, specified by RootKey parameter.  

Original code
function IsRegValueExists(const KeyName, ValueName: String;  
  RootKey: hKey {$IFDEF D4}=HKEY_CURRENT_USER{$ENDIF}): Boolean;  
begin  
  Result := False;  
  if RegOpen(RootKey, KeyName, False) then  
   begin  
    Result := RegQueryValueEx(RootKey, PChar(ValueName), nil, nil, nil, nil) = ERROR_SUCCESS;  
    RegCloseKey(RootKey);  
   end;  
end;