Главная страница
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.014 c
1-52823
sergey_1212
2003-02-07 10:30
2003.02.17
Работа с INI-файлом


3-52759
fool
2003-01-30 18:21
2003.02.17
Как с помощью T-SQL создать значение


1-53107
Axis_of_Evil
2003-02-07 10:23
2003.02.17
Многие часто хотели отрубить Keyboard и Mouse ...


6-53162
Bosh
2002-12-25 17:38
2003.02.17
Сервис Telnet


1-52827
Эд
2003-02-07 12:51
2003.02.17
Прокрутить StringGrid