鸿 网 互 联 www.68idc.cn

当前位置 : 服务器租用 > 编程语言开发 > delphi > >

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

来源:互联网 作者:佚名 时间:2015-07-05 21:31
自己写了两个固定注册表项目的函数,方便在统一项目中进行操作 //写入注册表操作 procedure TDM.WriteRegSPC(_KeyName, _KeyValue: string); var SubKeys:TRegistry;//首先定义一个TRegistry类型的变量Reg begin SubKeys:=TRegistry.Create; try//创建一个新

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

    //写入注册表操作

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

网友评论
<