delphi操作注册表最简单的方法TRegIniFile 对象

最新推荐文章于 2026-06-26 18:31:07 发布

转载最新推荐文章于 2026-06-26 18:31:07 发布 · 2.1k 阅读

标签

#delphi #microsoft #windows #ini #数据结构

本文介绍使用Delphi3.0中的TRegIniFile控件操作Windows注册表的方法，包括新建、读取和删除注册表项的具体实现。

　　操作注册表实例  
　　Delphi 3.0中的registry.dcu文件定义注册表的数据结构,并提供了TRegIniFile 
这个不可视的控件。在程序中可通过该控件来操作注册表。 
下面的例子描述了新建(修改)、读取、删除Windows注册表中 
的主键HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windo ws\Curre ntVersion\Run下 
的键值名RemoteOperate和键值remoteControl.exe 。  
　　unit s_registry;  
　　interface  
　　uses  
　　　 Windows, Messages, SysUtils, Classes, Graphics, Contr ols, Forms,  
Dial ogs, StdCtrls,registry;  
　　{注意:registry必须自己加上}  
　　type  
　　TForm1 = class(TForm)  
　　new: TButton;  
　　read: TButton;  
　　delete: TButton;  
　　procedure newClick(Sender: TObject);  
　　procedure readClick(Sender: TObject);  
　　procedure deleteClick(Sender: TObject);  
　　private  
　　{ Private declarations }  
　　public  
　　{ Public declarations }  
　　end;  
　　var  
　　Form1: TForm1;  
　　implementation  
　　{$R *.DFM}  
　　{新建(修改)注册表}  
　　procedure TForm1.newClick(Sender: TObject);  
　　var ini : TRegIniFile;  
　　begin  
　　ini := TRegIniFile.Create(‘');  
　　{创建TRegIniFile对象}  
　　ini.RootKey:=HKEY_LOCAL_MACHINE;  
　　{改变Rookey,缺省为HKEY_USERS}  
　　ini.WriteString(‘Software\Microsoft\Windows\CurrentVers ion\Run',{主键}  
　　‘RemoteOperate', {键值名,若该名称与主键下的键值名相同,  
则修改它的键值。否则,新建键值名及键值}  
　　‘remoteControl.exe');　 {键值}  
　　　 ini.Free;  
　　end;  
　　{读取键值}  
　　procedure TForm1.readClick(Sender: TObject);  
　　var ini　 :　TRegIniFile;  
　　 RegStr:　String;  
　　begin  
　　 ini := TRegIniFile.Create(‘');  
　　　 ini.RootKey:=HKEY_LOCAL_MACHINE;  
　　　 RegStr:=ini.ReadString(‘Software\Microsoft\Windows\C urrentVersion\Ru n’,‘RemoteOperate’,‘');  
　　ini.Free;  
　　ShowMessage(RegStr);  
　　end;  
　　{删除键值名及键值}  
　　procedure TForm1.deleteClick(Sender: TObject);  
　　var ini　 :　TRegIniFile;  
　　begin  
　　　 ini := TRegIniFile.Create(‘');  
　　　 ini.RootKey:=HKEY_LOCAL_MACHINE;  
　　　 ini.DeleteKey(‘Software\Microsoft\Windows\CurrentVer sion\Run',‘Remo teOperate');  
　　　 ini.Free;  
　　end;  
　　end.