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

来源：互联网发布：圣剑网络奥特曼刷钻石编辑：程序博客网时间：2024/06/07 05:01

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

//写入注册表操作

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');