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

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

//写入注册表操作

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