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

页面导航:首页 > 软件编程 > Delphi > delphi 固定注册表项写入和读取函数

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

来源: 作者: 时间:2016-01-18 15:41 【

自己写了两个固定注册表项目的函数,方便在统一项目中进行操作//写入注册表操作procedure TDM.WriteRegSPC(_KeyName, _KeyValue: string);var SubKeys:TRegistry; //首先定义一个TRegistry类型的变量Regbeg...

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

 


//写入注册表操作


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

 


 

Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<