HELP!!! Работа с реестром в делфи!!!

[dimarik-dima]

Люди!!! у кого есть ссылки на учебники по delphi работа с реестром киньте плиз!!! или дайте пару уроков по работе с реестром с помощью delphi!!!

[slesh]

delphi world - десятки статей по поводу работы с реестром и на WinAPI и через класс Tregistry

[s0l_ir0n]

У меня сегодня не плохое настроение
Кусок кодес из проги 2к6 года :p
uses
registry;

procedure loadregsettings;
var
h: TRegistry;
begin
h := TRegistry.Create;
with h do
begin
RootKey := HKEY_CURRENT_USER;
If h.KeyExists('\Software\mysoft')
then OpenKey('\Software\mysoft', true)
Else begin h.CreateKey('\Software\mysoft');
OpenKey('\Software\mysoft', true)
end;

if h.ValueExists('Make backup')
then begin
If h.ReadBool('Make backup')=true
Then Form1.CheckBox8.Checked:=true
Else Form1.CheckBox8.Checked:=false;
end
Else
h.WriteBool('Make backup',True);

if h.ValueExists('Compatibility')
then begin
If h.ReadBool('Compatibility')=true
Then Form1.CheckBox1.Checked:=true
Else Form1.CheckBox1.Checked:=false;
end
Else
h.WriteBool('Compatibility',True);
CloseKey;
Free;
end;
end;

procedure saveregsettings;
var
h: TRegistry;
begin
h := TRegistry.Create;
with h do
begin
RootKey := HKEY_CURRENT_USER;
If h.KeyExists('\Software\mysoft')
then OpenKey('\Software\mysoft', true)
Else begin h.CreateKey('\Software\mysoft');
OpenKey('\Software\mysoft', true)
end;

if h.ValueExists('Compatibility')
then h.WriteBool('Compatibility',Form1.CheckBox1.Checke d)
Else h.WriteBool('Compatibility',True);

if h.ValueExists('Make backup')
then h.WriteBool('Make backup',Form1.CheckBox8.Checked)
Else h.WriteBool('Make backup',True);
CloseKey;
Free;
end;
end;

[--StraNger--]

а вот пару ссылок почитать:
http://www.delphi.ucoz.org/publ/14-1-0-53
http://forum.vingrad.ru/articles/topic-200341.html

[dimarik-dima]

s0l_ir0n и --StraNger-- большое спасибо очень полезно!!!