Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.06.19;
Скачать: [xml.tar.bz2];

Вниз

Реестр   Найти похожие ветки 

 
Xeon   (2003-06-04 16:41) [0]

дарова народ. Скажите мне, как записать значение в реестр типа стринг? Как считать значение - понял, как записать - непонял. Желатьльно записать значение используя ТРегистри.


 
Sandman25   (2003-06-04 16:44) [1]

WriteString заменяем на ReadString


 
Pattern   (2003-06-04 18:54) [2]

Пишу прямо здесь в Delphi не проверял, так штаааа..... Могут быть ошибки...
d;)
procedure TForm1.Button1Click(Sender: TObject);
var
reg_: TRegistry;
begin
reg_ := TRegistry.Create // Создаём объект reg_, с которой будем работать.
reg_.RootKey := HKEY_LOCAL_MACHINE; //Устанавливаем корневой ключ.
if reg_.KeyExists("\Software\Microsoft\MyProgs\") then // Если ключ существует ...
begin
reg_.OpenKey("\Software\Microsoft\MyProgs\", true); // ... открываем его ...
TEdit1.Text := Reg.ReadString("Version"); // ... и читаем строковый параметр Version
end
else // Если ключа не существет ...
begin
reg_.OpenKey("\Software\Microsoft\MyProgs\", true); // ... создаём его ...
reg_.WriteString("Version", "My best Prog Version 1.0"); // ... и записываем в него строковый параметр.
end;
reg_.Free; // Удаляем объект reg_ из памяти
end;


 
VMcL   (2003-06-04 19:05) [3]

>Pattern © (04.06.03 18:54)
try...finally...end.


 
Pattern   (2003-06-04 19:45) [4]

2VMcL -> 100 в гору!!! d;) Писал, что первое в бошку взбредёт (какое правильное слово!!!) Но если честно, то я вообще никогда реестром не пользуюсь - не доверяю этой фиче... d%(


 
Xeon   (2003-06-05 11:01) [5]

Да я просто дописываю программу для создания инсталяций. TheSoft install system 1.0. Но вот встала последняя проблема - это которая с реестром была.
P.S. Всем спасибо за ответы.


 
NickBat   (2003-06-05 11:38) [6]

Куда катится этот мир? Человек ДОПИСЫВАЕТ программу для создания инсталляций и не ЗНАЕТ как писать строки в реестр????



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.06.19;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.009 c
3-60081
alex_noskov
2003-05-28 20:28
2003.06.19
Base Date


3-60084
YuraKiller
2003-05-28 21:32
2003.06.19
Как с клиента создать пользователя?


14-60390
Домарощинер
2003-06-03 12:17
2003.06.19
Вопрошающим посвещается:


3-60021
Sergant
2003-05-27 14:41
2003.06.19
ZeosLib и GetTableNames


1-60220
aleman
2003-06-05 13:48
2003.06.19
Как рассчитать синус и косинус?





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