delphi 检查注册表键、键值是否存在

uses Registry;

//==============================================================================

// 注册表访问

//==============================================================================

// 检查注册表键是否存在

function RegKeyExists(const RegPath: string): Boolean;

var

Reg: TRegistry;

begin

try

Reg := TRegistry.Create;

try

Result := Reg.KeyExists(RegPath);

finally

Reg.Free;

end;

except

Result := False;

end;

// 检查注册表键值是否存在

function RegValueExists(const RegPath, RegValue: string): Boolean;

var

Reg: TRegistry;

begin

try

Reg := TRegistry.Create;

try

Result := Reg.OpenKey(RegPath, False) and Reg.ValueExists(RegValue);

finally

Reg.Free;

end;

except

Result := False;

end;

// 删除注册表键值

function RegDeleteValue(const RegPath, RegValue: string): Boolean;

var

Reg: TRegistry;

begin

try

Reg := TRegistry.Create;

try

Result := Reg.OpenKey(RegPath, False);

if Result then

Reg.DeleteValue(RegValue);

finally

Reg.Free;

end;

except

Result := False;

end;

// 写注册表字符串

function RegWriteStr(const RegPath, RegValue, Str: string): Boolean;

var

Reg: TRegistry;

begin

try

Reg := TRegistry.Create;

try

Result := Reg.OpenKey(RegPath, True);

if Result then Reg.WriteString(RegValue, Str);

finally

Reg.Free;

end;

except

Result := False;

end;

推荐分享