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

Вниз

RegEnumValue   Найти похожие ветки 

 
serge_af   (2002-10-03 17:50) [0]

Помогите пожалуйста разобраться с RegEnumValue. Как ей пользоваться? Надо у определенного ключа перебрать все значения и найти имя того, у которого значение (стринг) совпадает с заданным.


 
Arcus   (2002-10-04 17:12) [1]

выдрано из юнита, м.б. надо будет подправить

var
RootKey, SubKey: HKey;
SubKeyName: string;
Index: Integer;
BufVal, BufData: array[0..255];
ValSize, DataSize: DWord;
begin
...
if RegOpenKeyEx(RootKey, PChar(SubKeyName), 0, KEY_READ, SubKey) = ERROR_SUCCESS then
begin
try
ValSize:= Length(BufVal); //лучше выделять динамически, но так проще, если точно знаешь, что резулбтат - строки
DataSize:= Length(BufData);
Index := 0;
while RegEnumValue(SubKey, Index, BufVal, ValSize, nil, nil, BufData, DataSize) = ERROR_SUCCESS do // когда перебор закончится вернет ERROR_NO_MORE_ITEMS
begin
...BufVal - имя, BufData - значение
Inc(Index);
end;
finally
RegCloseKey(SubKey);
end;
end;
end;



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

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

Наверх




Память: 0.46 MB
Время: 0.019 c
1-45983
aQQQa
2002-11-03 21:52
2002.11.14
Помогите! Очень срочно!


6-46031
Akella
2002-09-16 12:19
2002.11.14
ПОМОГИТЕ!!! (Пароль для прокси программно)


1-45900
Ноавенький в Делфи
2002-11-06 05:50
2002.11.14
Как прокрутить StringGrid к определённой ячейке?


4-46183
denvor
2002-10-03 01:03
2002.11.14
Как дождаться завершения запущенной программы?


3-45714
seter
2002-10-24 11:10
2002.11.14
Базы данных