Форум: "KOL";
Текущий архив: 2003.10.09;
Скачать: [xml.tar.bz2];
ВнизКак 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, а произвольный открытый ключь реестра . Может я вопрос не так задаю? Поправте меня или помогите с ответом.
Страницы: 1 вся ветка
Форум: "KOL";
Текущий архив: 2003.10.09;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c