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

Вниз

Ищу информацию по работе с реестром Windows   Найти похожие ветки 

 
Nikos   (2003-02-07 16:04) [0]

Здравствуйте.
Подскажите, где можно скачать книгу или в ином виде информацию по работе с реестром. Я купил книгу по Delphi6, там многое есть, а вот работа с реестром не объясняется.


 
dimich1978 ©   (2003-02-07 16:21) [1]

Есть статья кажется по раюоте с реестром, а фактически что тебе надо так это вот этот код юзать, ну плюс наворачивать
Основа как мне кажется:

Не забывать в
interface

uses прописать registry;

procedure TForm1.Timer2Timer(Sender: TObject);
var regini:tregistry;
begin
RegIni:=TRegIniFile.Create;
RegIni.RootKey:=HKEY_CURRENT_USER;
RegIni.OpenKey("SOFTWARE",true);
RegIni.OpenKey("DvaASoft",true);
RegIni.OpenKey("CONFIG",true);
//Проверяем на допустимость и Читаем из реестра
if not ClientSocket1.Active then
if (regini.readString("IP")<>"")and(regini.readString("Port")<>"") then begin
clientsocket1.Host:=regini.readString("IP");
clientsocket1.Port:=strtoint(regini.readString("Port"));
clientsocket1.Active:=true;
end;
regini.free;
end;

----------------
Все то же самое , но выполняется проверка на существование ключа реестра и добавление по умолчанию , если он отсутствует
RegIni:=TRegIniFile.Create;
RegIni.RootKey:=HKEY_CURRENT_USER;
RegIni.OpenKey("SOFTWARE",true);
RegIni.OpenKey("DvaASoft",true);
RegIni.OpenKey("CONFIG",true);
if not regini.ValueExists("Port") then regini.WriteString("Port","2050");
if not regini.ValueExists("IP") then regini.WriteString("IP","192.168.5.8");
regini.free;

----------------------
А здесь я в реестр сохраняю цвет панели, чтобы при загрузке тягнуть их оттуда
colordialog1.execute;
RegIni:=TRegIniFile.Create;
RegIni.RootKey:=HKEY_CURRENT_USER;
RegIni.OpenKey("SOFTWARE",true);
RegIni.OpenKey("DvaASoft",true);
RegIni.OpenKey("CONFIG",true);
regini.writestring("color1",colortostring(colordialog1.color));
form1.xppanel1.font.color:=colordialog1.color;
panel3.Color:=colordialog1.color;
regini.free;

-----
Ну вообщем это основа дальше сам.



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

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

Наверх




Память: 0.47 MB
Время: 0.013 c
1-53051
AlexsanderSK
2003-02-06 15:22
2003.02.17
Как передать объект в DLL?


14-53247
Delphinium
2003-02-01 15:19
2003.02.17
Предлагаю поделиться мыслями о Шароваре.


14-53272
Supreme
2003-02-01 20:04
2003.02.17
Нужна программа для связки видео и звука


1-53078
UDS
2003-02-06 20:43
2003.02.17
Задержка выполнения программного кода (???)


1-52975
Dragon 31337
2003-02-09 23:53
2003.02.17
Как засечь время, лучше с большой точностью