Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "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
4-27770
KIper
2003-08-04 15:38
2003.10.09
Как создать процесс?


14-27743
kopcap
2003-09-19 18:09
2003.10.09
Люди посоветуйте прогу для создания анимированных *.gif


3-27340
Denizzz
2003-09-20 07:50
2003.10.09
Работа с Excel


1-27505
Nikulin
2003-09-26 15:47
2003.10.09
Про сервисы...


1-27552
Wild River
2003-09-29 15:22
2003.10.09
Можно ли в TRichEdit вставить картинку?





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