Использование реестра

Code:

unit RDUnit;

interfaceuses

Windows, Messages, SysUtils, Classes, Graphics, Controls,

Forms, Dialogs, StdCtrls, Registry;

type

TForm1 = class(TForm)

   Memo1: TMemo;

   GroupBox1: TGroupBox;

   GroupBox2: TGroupBox;

   Label1: TLabel;

   Button1: TButton;

   Button2: TButton;

   Button3: TButton;

   Button4: TButton;

   Button5: TButton;

   Button6: TButton;

   procedure FormCreate(Sender: TObject);

   procedure Button1Click(Sender: TObject);

   procedure Button2Click(Sender: TObject);

   procedure Button3Click(Sender: TObject);

   procedure Button4Click(Sender: TObject);

   procedure Button5Click(Sender: TObject);

   procedure Button6Click(Sender: TObject);

   procedure FormClose(Sender: TObject;

     var Action: TCloseAction);

private

   { Private declarations }

public

   { Public declarations }

end;

var

Form1: TForm1;

implementation{$R *.DFM}var

RegFile: TRegIniFile;

const

//Подсекция

SubKey: string = 'Software\RegDemo';

// Элемент для хранения логических данных

BoolKey: string = 'BoolKey';

// Элемент для хранения целочисленных данных

IntKey: string = 'IntKey';

// Элемент для хранения строчных данных

StrKey: string = 'StrKey';

procedure TForm1.FormCreate(Sender: TObject);

begin

// Создать экземпляр класса

RegFile := TRegIniFile.Create(SubKey);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

// Записать целочисленное значение

RegFile.WriteInteger(IntKey, 'Value', 1998);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

// Записать булево значение

RegFile.WriteBool(BoolKey, 'Value', True);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

// Записать строку

RegFile.WriteString(StrKey, 'Value', 'Demo');

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

// Считать целочисленное значение

Memo1.Lines.Add('Int Value = ' +

   IntToStr(RegFile.ReadInteger(IntKey,

   'Value', 0)));

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

// Считать булево значение

if RegFile.ReadBool(BoolKey, 'Value', False) then

   Memo1.Lines.Add('Bool Value = True')

else

   Memo1.Lines.Add('Bool Value = False');

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

// Считать строку

Memo1.Lines.Add(RegFile.ReadString(StrKey, 'Value', ''));

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

// Удалить секцию

RegFile.EraseSection(SubKey);

// Освободить память

RegFile.Free;

end;

end.

Свойство

Описание

CurrentKey

Позволяет узнать текущую подсекцию, в которой проводятся операции по чтению и записи. Для изменения подсекции следует использовать методы OpenKey и OpenKeyReadOnly

CurrentPath

Позволяет узнать полное название текущей подсекции

LazyWrite

Задает способ обновления информации в реестре – непосредственно или после вызова метода CloseKey.

RootKey

Задает корневую секцию в реестре. По умолчанию установлено значение HKEY_CURRENT_USER

Метод

Описание

CloseKey

Записывает внесенные изменения и закрывает текущую подсекцию

Create

Создает экземпляр класса TRegistry и задает значение корневой секции - HKEY_CURRENT_USER

CreateKey

Создает подсекцию

DeleteKey

Удаляет подсекцию

DeleteValue

Удаляет значение элемента

Destroy

Уничтожает ранее созданный экземпляр класса TRegistry

GetDataInfo

Возвращает тип данных для указанного элемента

GetDataSize

Возвращает размер данных для указанного элемента

GetDataType

Возвращает тип данных для указанного элемента

GetKeyInfo

Возвращает информацию о текущем элементе

GetKeyNames

Возвращает имена подсекций для указанной секции

GetValueNames

Возвращает названия элементов для указанной подсекции

HasSubKeys

Позволяет узнать, имеются ли подсекции для указанной секции

KeyExists

Позволяет узнать, существует ли элемент

LoadKey

Создает новую подсекцию и загружает в нее информацию из указанного файла

MoveKey

Перемещает указанную подсекцию и все вложенные подсекции в заданное место

OpenKey

Открывает подсекцию

OpenKeyReadOnly

Открывает подсекцию только для чтения

ReadBinaryData

Считывает данные в бинарном формате

ReadBool

Считывает данные в булевом формате

ReadCurrency

Считывает данные в формате валюты

ReadDate

Считывает данные в формате даты

ReadDateTime

Считывает данные в формате “дата/время”

ReadFloat

Считывает данные в формате с плавающей точкой

ReadInteger

Считывает данные в целочисленном формате

ReadString

Считывает данные в строчном формате

ReadTime

Считывает данные в формате времени

RegistryConnect

Устанавливает соединение с реестром на другом компьютере

RenameValue

Переименовывает элемент

ReplaceKey

Замещает значение элемента значениями из файла

RestoreKey

Восстанавливает значение элемента из файла

SaveKey

Сохраняет значение элемента в файле

UnLoadKey

Удаляет подсекцию, загруженную методом LoadKey

ValueExists

Позволяет узнать, существует ли значение у элемента

WriteBinaryData

Записывает данные в бинарном формате

WriteBool

Записывает данные в булевом формате

WriteCurrency

Записывает данные в формате валюты

WriteDate

Записывает данные в формате даты

WriteDateTime

Записывает данные в формате “дата/время”

WriteExpandString

Записывает данные в формате "расширенно" строки

WriteFloat

Записывает данные в формате с плавающей точкой

WriteInteger

Записывает данные в целочисленном формате

WriteString

Записывает данные в строчном формате

WriteTime

Записывает данные в формате времени

Code:

var

R: TRegistry;

...R := TRegistry.Create;

Code:

HKEY_CLASSES_ROOT

HKEY_CURRENT_USER

HKEY_LOCAL_MACHINE

HKEY_USERS

HKEY_PERFORMANCE_DATA

HKEY_CURRENT_CONFIG

HKEY_DYN_DATA

Code:

with R do

begin

RootKey := HKEY_LOCAL_MACHINE;

//

// Продолжаем работу с реестром

//

end;