Модуль, существенно облегчающий работу с реестром
Модуль, существенно облегчающий работу с реестром. Понимает относительные пути к реестру.
Пример. Вы можете использовать стандартный модуль 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 |
