自己写了两个固定注册表项目的函数,方便在统一项目中进行操作
//写入注册表操作
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;
//读取注册表操作
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');