Как работать с реестром Windows?

Previous  Top  Next

    
 

 

Вот небольшой пример работы с системным реестром;

Code:

 

uses

Registry, Windows;

 

procedure TForm1.Button1Click(Sender: TObject);

var

Registry: TRegistry;

begin

{ создаём объект TRegistry }

Registry := TRegistry.Create;

{ устанавливаем корневой ключ; напрмер hkey_local_machine или hkey_current_user }

Registry.RootKey := hkey_local_machine;

{ открываем и создаём ключ }

Registry.OpenKey('software\MyRegistryExample',true);

{ записываем значение }

Registry.WriteString('MyRegistryName','MyRegistry Value');

{ закрываем и освобождаем ключ }

Registry.CloseKey;

Registry.Free;

end;

 

 

// для удаления ключа используется функция Registry.DeleteKey

 

©Drkb::02268

Взято из http://forum.sources.ru