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

 


//写入注册表操作


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