Главная страница
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.028 c
1-52907
Makhanev A.S.
2003-02-06 23:04
2003.02.17
Как работать отдельно с старшими и младшими байтами Cardinal?


14-53172
NetBreaker666
2003-02-02 17:38
2003.02.17
Ну, что, меня здесь еще кто-нибудь помнит ?


1-52836
lejik
2003-02-07 14:18
2003.02.17
Печать StringGrid


1-53059
harismatik
2003-02-06 16:38
2003.02.17
Количество файлов в папке


3-52785
dimmu3
2003-01-31 13:33
2003.02.17
количество клиентов, которое может быть соединено с IB-сервером