[转]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;