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

Вниз

Как 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 вся ветка

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

Наверх




Память: 0.45 MB
Время: 0.008 c
1-27512
Sirus
2003-09-26 12:16
2003.10.09
Как раскрасить строки в TListView в разные цвета???


1-27510
DimonA
2003-09-26 12:01
2003.10.09
Application.MessageBox


3-27347
Vitaly
2003-09-12 23:14
2003.10.09
Query.....


8-27613
Вячеслав В.К.
2003-06-06 08:47
2003.10.09
Необходимо получить изображение с USB видеокамеры


1-27599
SergP
2003-09-22 09:03
2003.10.09
Можно ли быстро вычистить TTreeView?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский