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;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;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;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;end;
 

相关阅读 >>

Delphi cardpanel1 简单的切换

Delphi webbrowser控件的事件

Delphi mscomm 发送接收

Delphi 网上获取北京时间xmlhttprequest如何访问需要安全验证的网站

Delphi gb2312 编码转义url字符串

Delphi 不重启不注销不关explorer刷新注册表

Delphi中对进程内存进行读写

idftp tencoding and iidtextencoding

Delphi apihook createprocess

Delphi xe7实现获取程序是否已管理员模式运行以及运行的windows用户名

更多相关阅读请进入《Delphi》频道 >>