Содержимое архива

:: Delphi - Модули

squallregistry.zip  (1370 байт)
Посмотреть содержимое

Squall : 2008-01-01 20:04:52

Delphi - Модули

Модуль, существенно облегчающий работу с реестром. Понимает относительные пути к реестру.
Пример. Вы можете использовать стандартный модуль Registry, и тогда код добавления ключа в реестр будет следующим.

procedure TForm1.Button1Click(Sender:TObject);
var reg: TRegistry.Create;
begin
reg := TRegistry.Create;
reg.RootKey := hkey_local_machine;
reg.OpenKey('Software\MyCompany\MyApplication',True);
reg.WriteString('TestKey','TestValue');
reg.CloseKey;
reg.Free;
end;

Тоже самое можно сделать, используя SquallRegistry так:

procedure TForm1.Button1Click(Sender:TObject);
begin
RegWriteString('HKLM\Software\MyCompany\MyApplication\TestKey',TestValue);
end;

Любая операция с реестром выполняется одним методом. В модуле следующие методы:
function RegGetRoot(regpath: string): hkey;
function RegValueName(regpath: string):string;
function RegValueExists(regpath: String):Boolean;
function RegDeleteValue(regpath: string): Boolean;
function RegWriteString(regpath: String; value: String):Boolean;
function RegWriteInt(regpath: String; value: Longint):Boolean;
function RegWriteBool(regpath: String; value: boolean):Boolean;
function RegReadInt(regpath: String; def:Int64):Int64;
function RegReadBool(regpath: String; def:Boolean):Boolean;
function RegReadString(regpath: String; def: String):String;
function RegGetValueNames(regpath: string; strings: TStrings):Boolean;
function RegGetKeyNames(regpath: string; strings: TStrings):Boolean;
function RegGetDataType(regpath: string): TRegDataType;

Путь реестра - это путь к ключу или параметру в реестре. Задается он следующим образом:
[rootkey]/[mainkey]/[valuename]
В качестве rootkey используется не полное название, а сокращение. Вот сокращения всех корневых ключей:
HKLM = HKEY_LOCAL_MACHINE
HKCU = HKEY_CURRENT_USER
HKCR = HKEY_CLASSES_ROOT
HKU = HKEY_USERS
HKPD = HKEY_PERFORMANCE_DATA
HKCC = HKEY_CURRENT_CONFIG
HKDD = HKEY_DYN_DATA

E-mail: Squall2007@yandex.ru

Скачать

Комментарии (0) 1483 скачиваний


Archive:  squallregistry.zip
  Length      Date    Time    Name
---------  ---------- -----   ----
     8100  2008-01-01 20:06   SquallRegistry.pas
---------                     -------
     8100                     1 file