Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];

Вниз

Читаем значение реестра с помощью 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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.031 c
14-31965
BigBadMutuh
2002-09-15 23:21
2002.10.10
Как писать по русски в вин XP?


1-31705
AZ
2002-09-30 10:20
2002.10.10
TCollection


1-31891
NeyroSpace
2002-09-26 17:30
2002.10.10
Fast Report - unixtimes.dcu not found !!!!


1-31768
sArthur
2002-10-01 08:39
2002.10.10
Формирование отчетов в HTML и печать из TWebBrowser


7-32035
Wazowski
2002-07-29 16:49
2002.10.10
Загадочная служба





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский