delphi 固定注册表项写入和读取函数

最新推荐文章于 2023-11-28 18:38:17 发布

trassion

最新推荐文章于 2023-11-28 18:38:17 发布

阅读量2.6k

点赞数

分类专栏： delphi

本文链接：https://blog.csdn.net/Trassion/article/details/9027347

版权

delphi 专栏收录该内容

63 篇文章 2 订阅

订阅专栏

自己写了两个固定注册表项目的函数，方便在统一项目中进行操作

//写入注册表操作

procedure TDM.WriteRegSPC(_KeyName, _KeyValue: string);
var
   SubKeys:TRegistry;       //首先定义一个TRegistry类型的变量Reg
begin
   SubKeys:=TRegistry.Create;
   try                           //创建一个新键
     SubKeys.RootKey:=HKEY_LOCAL_MACHINE;     //将根键设置为HKEY_LOCAL_MACHINE
     if SubKeys.OpenKey('SOFTWARE\Tyler\SPC',true) then begin
        SubKeys.WriteString(_KeyName,_KeyValue);           //在SubKeys这个键中写入数据名称和数据数值
     end
     else begin
        SubKeys.WriteString(_KeyName,_KeyValue);           //在SubKeys这个键中写入数据名称和数据数值
     end;
   finally
     SubKeys.CloseKey;       //关闭键
     SubKeys.Free;
   end;
end;

//读取注册表操作

function TDM.ReadRegSPC(_KeyName: string): string;
var
   SubKeys:TRegistry;       //首先定义一个TRegistry类型的变量Reg
   _Result:string;
begin
   SubKeys:=TRegistry.Create;
   try                           //创建一个新键
     SubKeys.RootKey:=HKEY_LOCAL_MACHINE;     //将根键设置为HKEY_LOCAL_MACHINE
     if SubKeys.OpenKey('SOFTWARE\Tyler\SPC',true) then begin
        _Result:= SubKeys.ReadString(_KeyName);           //在SubKeys这个键中写入数据名称和数据数值
     end
     else begin
        _Result:='';           //在SubKeys这个键中写入数据名称和数据数值
     end;
   finally
     SubKeys.CloseKey;       //关闭键
     SubKeys.Free;
   end;
   if _Result='' then _Result:='0';
   Result := _Result;
end;

使用例子：

WriteRegSPC('server','192.168.1.100');
WriteRegSPC('password','123');

_server:=ReadRegSPC('server');
_password:=ReadRegSPC('password');