Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.10;
Скачать: CL | DM;

Вниз

Читаем значение реестра с помощью RegOpenKeyEx.   Найти похожие ветки 

 
Mazenrat   (2002-09-28 15:38) [0]

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

Помогите реализовать проверку значения в реестре. В ключе реестра, представленном ниже, есть параметр по умолчанию, равный - "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");


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


 
Cr@sh ©   (2002-09-28 16:04) [1]

Посмотри это может поможет

reg:=TRegIniFile.create;
reg.RootKey:=HKey_Classes_Root;
if reg.ReadString(".asr","","No")="No" then
showmessage("Значения нет")
else
showmessage("OK");


 
Mazenrat   (2002-09-28 17:02) [2]


> Посмотри это может поможет


Это никак не поможет, т.к. я не хочу использовать модуль Registry.


 
Cr@sh ©   (2002-09-28 17:19) [3]

Ну не хочешь твое право. Мое дело предложить...



Страницы: 1 вся ветка

Текущий архив: 2002.10.10;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
3-31622
KIR
2002-09-19 10:23
2002.10.10
Вопрос по FastReport -> MasterHeader


14-31982
Некогда не РАСКОЛЮСЬ
2002-09-15 15:21
2002.10.10
Как стать мастером...


1-31859
Hanson
2002-09-27 17:51
2002.10.10
Есть ли в компиляторах Pascal оптимизация?


4-32056
Delphi 5.01
2002-08-21 13:31
2002.10.10
Ukazat sisteme chto bil izmenenon shrift


6-31928
VARVAR
2002-08-11 20:18
2002.10.10
Получить MAC-адреса по известным IP в локальной сети