Доброго времени суток.

Помогите реализовать проверку значения в реестре. В ключе реестра, представленном ниже, есть параметр по умолчанию, равный - "C:\WINDOWS\cdplayer.exe -play %1". Нужно проверить, такое-ли значение в реестре юзера.

Код

[HKEY_CLASSES_ROOT\AudioCD\shell\Play\command] @="C:\WINDOWS\cdplayer.exe -play %1"

Следующим кодом я пытался именно это и сделать, но... Так как мне нужно проверить значение параметра по умолчанию, то второй параметр в RegQueryValueEx у меня - nil. Я пытаюсь прочитать значение, если не ошибаюсь - это BufSize.

Код

function ExistsPlayCD(const BufSize: String):Boolean; var Key : HKey; begin if RegOpenKeyEx(HKEY_CLASSES_ROOT, 'AudioCD\shell\Play\command', 0,  KEY_QUERY_VALUE, Key) = ERROR_SUCCESS then try   Result := RegQueryValueEx(Key, nil, nil, nil,    nil, @BufSize) = ERROR_SUCCESS finally  RegCloseKey(Key) end else  Result := False end; //Применение if ExistsPlayCD('C:\WINDOWS\cdplayer.exe -play %1') then ShowMessage('YES String') else ShowMessage('No String');

Вообщем ничего не читаеться, не работает. Помогите!!!

Используйте класс TRegistry и модуль Registry. Там все проще и работает.

Если бы я хотел реализовать то, что мне нужно с помощью модуля Registry, я бы не спрашивал на форуме...