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

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

 

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

 

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

Code:

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.Checked)
    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;

 

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

 

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