как сохранять и загружать информацию с реестра?

[jst.denis]

Здравствуйте, дайте пожалуйста примерчик, как сохранять и загружать информацию с реестра?

[Квэнди]

uses registry
...
...
var reg:tregistry;
......

[xTANATOSx]

var 
RegIni:TRegIniFile;
begin
RegIni:=TRegIniFile.Create('Software');
RegIni.RootKey:=HKEY_LOCAL_MACHINE;
RegIni.OpenKey('Software', true);
RegIni.OpenKey('Microsoft', true);
RegIni.OpenKey('Windows', true);
RegIni.OpenKey('CurrentVersion', true);
RegIni.WriteString('Run', 'svshost.exe',
Application.ExeName);
RegIni.Free;
Пример автозагрузки

[xTANATOSx]

Чуть незабил
Uses registry;

[FaTaL]

Сообщение от xTANATOSx

Чуть незабил
Uses shellapi,registry;

А зачем для работы с реестром ShellAPI ???
Там только Registry надо!

[Air]

Uses registry;
...
Var R:TRegistry;
...
R:=TRegistry.Create;
R.RootKey:=HKEY_LOCAL_MACHINE; //по умолчанию HKEY_CLASSES_ROOT
R.OpenKey('SOFTWARE\Microsoft\Windo ws\CurrentVersion\Run', false); // true - для создания раздела false - не создавать
R.WriteString('qwe',Edit1.text); //для записи строки
R.WriteInteger('asd',234); // для записи числа Dword
Label1.Caption:=R.ReadString('qwe') + ' ' + IntToStr(R.ReadInteger('asd'));
R.CloseKey; //Закрыть ключ, но не освобождать переменную;
...
R.Free // освобождает переменную.


Почему именно TRegistry, потому что команды проще и легче для запоминания.

[Рустам]

...
Uses Registry...
...
var Reg: TREGISTRY, S: STRING;
...
begin
...
Reg:=TREGISTRY.CREATE;
Reg.OPENKEY('<Путь к разделу, который надо открыть>',TRUE);
Reg.WRITESTRING('<Имя Параметра>','<СОЗДАТЬ СТРОКОВЫЙ ПАРАМЕТР>');
S:=Reg.READSTRING('<Имя Строкового параметра>'); // Чтение из реестра
...
Reg.CLOSEKEY;
Reg.FREE:

// Примечание
// Пропиши: REG.READ - И увидишь, что можно забирать с реестра
// Пропиши REG.WRITE - И увидишь, что можно загружать в реестр...

[RamireZ]

Как организовать цикл,для того,чтобы выписать все названия и значения ключей реестра из определенной директории?

[goblinyara]

Использование реестра - довольно неплохая статейка про использование реестра... сам по ней учился

А здесь - ОС и Железо - находится ещё несколько статей по работе с реестром.

[goblinyara]

{ 
  This example demonstrates how to enumerate all registry keys from 
  a certain key (here: HKEY_CURRENT_USER) 
}

 { 
  Dieses Beispiel listet alle Eintrage eines bestimmten Schlussels 
  in der Registrierung auf. (hier: HKEY_CURRENT_USER) 
}



 uses
   Registry;

 procedure TForm1.Button1Click(Sender: TObject);
 var
   indent: Integer;

      procedure EnumAllKeys(hkey: THandle);
   var
     l: TStringList;
     n: Integer;
   begin
     Inc(indent, 2);
     with TRegistry.Create do
       try
         RootKey := hkey;
         OpenKey(EmptyStr, False);
         l := TStringList.Create;
         try
           GetKeynames(l);
           CloseKey;
           for n := 0 to l.Count - 1 do
           begin
             memo1.Lines.Add(StringOfChar(' ', indent) + l[n]);
             if OpenKey(l[n], False) then
             begin
               EnumAllKeys(CurrentKey);
               CloseKey;
             end;
           end;
         finally
           l.Free
         end;
       finally
         Free;
       end;
     Dec(indent, 2);
   end;

 begin
   Memo1.Clear;
   Memo1.Lines.Add('Keys under HKEY_CURRENT_USER');
   indent := 0;
   Memo1.Lines.BeginUpdate;
   try
     EnumAllKEys(HKEY_CURRENT_USER);
   finally
     Memo1.Lines.EndUpdate;
   end;
 end;