Форум АНТИЧАТ - HELP!!! Работа с реестром в делфи!!!

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - HELP!!! Работа с реестром в делфи!!! (https://forum.antichat.xyz/showthread.php?t=116808)

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

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

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

У меня сегодня не плохое настроение
Кусок кодес из проги 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.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-- большое спасибо очень полезно!!!