[转]Delphi 几个读写注册表的函数

转自: http://topic.csdn.net/t/20031117/10/2464684.html

{************************************************************************
* 名称：用于string写注册表信息的过程
*
* 参数: 1. MarkName: 注册标志名称
* 2. Values : 字符串值写入注册表的值
*
* 版本：最后修改于：2003.06.17 编写：dengwen
************************************************************************}
procedure TDwShare.WriteRegInfoStr(Path,MarkName,Values:string);
var
registertemp : tregistry;
begin
registertemp := tregistry.create; //准备使用注册表
with registertemp do
begin
rootkey:=HKEY_CURRENT_USER; //存放在此根下
//Path :注册表路经
if openkey(Path,true) then
begin
writestring(MarkName,Values);
end;
closekey;
free;
end;

end;

{************************************************************************
* 名称：用于Integer写注册表信息的过程
*
* 参数: 1. MarkName: 注册标志名称
* 2. Values : Integer值写入注册表的值
*
* 版本：最后修改于：2003.06.17 编写：dengwen
************************************************************************}
procedure TDwShare.WriteRegInfoInt(Path,MarkName:string;Values:integer);
var
registertemp : tregistry;
begin
registertemp := tregistry.create; //准备使用注册表
with registertemp do
begin
rootkey:=HKEY_CURRENT_USER; //存放在此根下
if openkey(Path,true) then
begin
writeInteger(MarkName,Values);
end;
closekey;
free;
end;

end;

{************************************************************************
* 名称：用于string截取字符串
*
* 参数: 1. Str: 欲截取的字符串
* 2. Start : 开始位置
* 3. Number: 字符个数
*
* 返回: 截取后的字符串
*
* 版本：最后修改于：2003.06.17 编写：dengwen
************************************************************************}
function TDwShare.ReadRegInfoStr(Path,MarkValues :String):String;
var
registertemp : tregistry;
begin
registertemp := tregistry.create; //准备使用注册表
with registertemp do
begin
rootkey:=HKEY_CURRENT_USER; //存放在此根下
if openkey(Path,true) then
begin
if valueexists(MarkValues) then //标志是否存在？
Result:=Readstring(MarkValues)//读出标志值
else
Result:= ' ';
end;
closekey;
free; reintroduce
end;
end;

{************************************************************************
* 名称：用于从注册表中读取Integer值
*
* 参数: 1. Str: 欲截取的字符串
* 2. Start : 开始位置
* 3. Number: 字符个数
*
* 返回: 截取后的字符串
*
* 版本：最后修改于：2003.06.17 编写：dengwen
************************************************************************}
function TDwShare.ReadRegInfoInt(Path,MarkValues :String):Integer;
var
registertemp : tregistry;
begin
result:= 1;
registertemp := tregistry.create; //准备使用注册表
with registertemp do
begin
rootkey:=HKEY_CURRENT_USER; //存放在此根下
// Path:注册表路径
if openkey(Path,true) then
begin
if valueexists(MarkValues) then //标志是否存在？
Result:=ReadInteger(MarkValues)//读出标志值
else
Result:=0;
end;
closekey;
free;
end;
end;