Ищу информацию по работе с реестром 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;

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

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