Главная страница
    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.009 c
14-27726
NeyroSpace
2003-09-20 14:44
2003.10.09
Всем программистам! СРОЧНО! Собраться в организованные группы и


1-27592
ivc_andr
2003-09-29 09:52
2003.10.09
как сделать чтоб не отображалась запущенная программа?


1-27437
X-shadow
2003-09-28 08:11
2003.10.09
Как програмно поставить фоном рабочего стола HTML страничку


14-27708
Senti
2003-09-21 00:43
2003.10.09
У кого есть новая версия DynamicSkinForm


9-27292
R2D2
2003-04-04 11:29
2003.10.09
GLScene - Запись AVI файла.





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