Привет!
Можно ли проверить существование определенного значения ключа реестра, если известен корневой каталог и сам ключ?

Цитата

TRegistry.KeyExists Determines if a specified key exists. function KeyExists(const Key: String): Boolean; Description Call KeyExists to determine if a key of a specified name exists. Key is the name of the key for which to search.

вот гогда-то себе писал:

Код

...    uses     Registry...    ...    function ValueKeyExist(const Key:string; Value:string):boolean;    var regi : TRegistry;    PN:string;    begin    Result:=true;    Regi:=TRegistry.Create;    Regi.RootKey:=HKEY_LOCAL_MACHINE;    // проверяем наличие ключа    if regi.KeyExists(key) then    // если существует       begin       // открываем ключ       regi.OpenKey(key, false);       try       // записываем значение параметра       pn:=regi.ReadString(Value);       // если ничего не получилось(не строка или параметр пустой)       if pn='' then          Result:=false;       except        // если возникли ошибки (нет параметра)         Result:=false;         regi.CloseKey;         regi.free;         end;    // закрываем ключ    regi.CloseKey;    end    else    // если ключа нет     Result:=false;     // освобождаем память     regi.free;     end;

функция возвращяет true если запись существует, в переменную Value записывается содержание параметра ключа.

Функция немного специализирована для моей программы, поэтому у неё есть недостатки при применении в общем случае:
1. Только для строковых параметров
2. только для раздела HKEY_LOCAL_MACHINE;

PS: указанные недостатки легко устраняются, думаю принцип работы функции понятен и кому будет необходимо, её подправит под себя..

ЗЫЫ: а вообще здесь кто-то уже задавал такой вопрос... можно было бы и поиском воспользоваться

Как я понял, нужна функция ValueExists, вот пример чтения строкового значения (выдрано из моего модуля):

Код

function RegReadString(KeyName,SubKey:string):string; var   Registry: TRegistry; begin   Result:='';   Registry := TRegistry.Create(KEY_READ);   try     Registry.RootKey := HKEY_CURRENT_USER;     Registry.OpenKey(KeyName,False);     If Registry.ValueExists(SubKey) then       Result:=Registry.ReadString(SubKey);   finally     Registry.CloseKey;     Registry.Free;   end; end;

Это сообщение отредактировал(а) Voyager - 11.11.2005, 23:43