Главная страница
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
3-52787
UnDISCOvery
2003-01-30 20:47
2003.02.17
MIDAS !!! Клиент не может изменить данные !


1-53058
neXt2
2003-02-06 10:01
2003.02.17
Как в TreeView очистить все ветки?


3-52778
Arman
2003-01-28 16:45
2003.02.17
SQL


1-52849
bearoman
2003-02-07 13:15
2003.02.17
Отчет в ширину из несколько листов.


1-52880
loginov
2003-02-08 01:31
2003.02.17
перенос слов в мемо