Как Hkey2Str

← →
microlab (2003-01-29 11:37) [0]

Как произвольный ключ реестра перевести в строку. Необходимо результаты поиска в реестре сохранить в KolListView. Имя переменной и её значение выводятся, а как сохранить путь к ним для изменения или удаления?

← →
blackalex (2003-01-29 16:55) [1]

function HKEY2Str(const KEY: HKEY): String;
begin
case KEY of
HKEY_CLASSES_ROOT: result:= "HKEY_CLASSES_ROOT";
HKEY_CURRENT_USER: result:= "HKEY_CURRENT_USER";
HKEY_LOCAL_MACHINE: result:= "HKEY_LOCAL_MACHINE";
HKEY_USERS: result:= "HKEY_USERS";
HKEY_PERFORMANCE_DATA: result:= "HKEY_PERFORMANCE_DATA";
HKEY_CURRENT_CONFIG: result:= "HKEY_CURRENT_CONFIG";
HKEY_DYN_DATA: result:= "HKEY_DYN_DATA";
else result:= "HKEY_LOCAL_MACHINE";
end;
end;

function Str2HKEY(const KEY: String): HKEY;

Код не мой. Взят отсюда
http://delphiworks.sourceforge.net/
begin
if KEY = "HKEY_CLASSES_ROOT" then result:= HKEY_CLASSES_ROOT else
if KEY = "HKEY_CURRENT_USER" then result:= HKEY_CURRENT_USER else
if KEY = "HKEY_LOCAL_MACHINE" then result:= HKEY_LOCAL_MACHINE else
if KEY = "HKEY_USERS" then result:= HKEY_USERS else
if KEY = "HKEY_PERFORMANCE_DATA" then result:= HKEY_PERFORMANCE_DATA else
if KEY = "HKEY_CURRENT_CONFIG" then result:= HKEY_CURRENT_CONFIG else
if KEY = "HKEY_DYN_DATA" then result:= HKEY_DYN_DATA else
result:= HKEY_LOCAL_MACHINE;
end;

← →
blackalex (2003-01-29 16:57) [2]

Блин. Строки запутались Так должно быть

function HKEY2Str(const KEY: HKEY): String;
begin
case KEY of
HKEY_CLASSES_ROOT: result:= "HKEY_CLASSES_ROOT";
HKEY_CURRENT_USER: result:= "HKEY_CURRENT_USER";
HKEY_LOCAL_MACHINE: result:= "HKEY_LOCAL_MACHINE";
HKEY_USERS: result:= "HKEY_USERS";
HKEY_PERFORMANCE_DATA: result:= "HKEY_PERFORMANCE_DATA";
HKEY_CURRENT_CONFIG: result:= "HKEY_CURRENT_CONFIG";
HKEY_DYN_DATA: result:= "HKEY_DYN_DATA";
else result:= "HKEY_LOCAL_MACHINE";
end;
end;

function Str2HKEY(const KEY: String): HKEY;
begin
if KEY = "HKEY_CLASSES_ROOT" then result:= HKEY_CLASSES_ROOT else
if KEY = "HKEY_CURRENT_USER" then result:= HKEY_CURRENT_USER else
if KEY = "HKEY_LOCAL_MACHINE" then result:= HKEY_LOCAL_MACHINE else
if KEY = "HKEY_USERS" then result:= HKEY_USERS else
if KEY = "HKEY_PERFORMANCE_DATA" then result:= HKEY_PERFORMANCE_DATA else
if KEY = "HKEY_CURRENT_CONFIG" then result:= HKEY_CURRENT_CONFIG else
if KEY = "HKEY_DYN_DATA" then result:= HKEY_DYN_DATA else
result:= HKEY_LOCAL_MACHINE;
end;

Код не мой. Взят отсюда
http://delphiworks.sourceforge.net/

← →
blackalex (2003-01-29 17:07) [3]

Кому интерессно, весь проект DelphiWorks (56k) можно сгрузить здесь.
http://delphiworks.sourceforge.net/DelphiWorks/Download/DW10243.zip
Там есть пару интересных мыслей

← →
microlab (2003-01-29 18:15) [4]

Это простейшая функция. Неужели ты считаешь что я до этого бы не догодался? Мне нужно переводить в строку не константы типа HKey, а произвольный открытый ключь реестра . Может я вопрос не так задаю? Поправте меня или помогите с ответом.

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