TRegistry 对象

用于操作 WINDOWS 注册表。

RootKey	注册表根键
OpenKey(key:string;[create:boolean]):boolean	打开主键, 可选参数表示建立主键
CloseKey()	关闭当前主键
ReadString(key:string):string	读取字符串值
ReadInteger(key:String):Integer	读取整数值
function ReadBinaryData(const Name: string; var Buffer; BufSize: Integer):Integer	读二进制值，返回实际读入字节数
ReadBool ReadCurrency ReadDate ReadDateTime ReadFloat ReadTime
WriteString(name,value:String)	写字符串
WriteInteger(name:String;value:Integer)	写整数
procedure WriteBinaryData(const Name: string; var Buffer; BufSize: Integer);	写二进制值
WriteBool WriteCurrency WriteDate WriteDateTime WriteFloat WriteTime
CreateKey(key:String):Boolean	建立主键
DeleteKey(key:String):Boolean	删除主键
MoveKey(const OldName, NewName: string; Delete:Boolean)	主键复制/改名
KeyExists(const Key: string): Boolean	检测主键是否存在
HasSubKeys(): Boolean	检测是否有子键
GetKeyNames(Strings: TStrings)	返回所有子键名称
GetValueNames(Strings: TStrings)	返回所有数据值名称
ValueExists(const Name: string): Boolean	检测数据值名称存在
RenameValue(const OldName, NewName: string)	数据值名称改名

注册表根键

常量
HKEY_CLASSES_ROOT	类
HKEY_CURRENT_USER	当前用户
HKEY_LOCAL_MACHINE	本地机器
HKEY_USERS	用户
HKEY_CURRENT_CONFIG	配置

示例：

var
reg:TRegistry;
s:String;

begin
   reg := TRegistry.Create;
   reg.RootKey := HKEY_CLASSES_ROOT;
   if reg.OpenKey(ext,false) then
   begin
      s := reg.ReadString('');
      ShowMessage(s);
   end;
   reg.Free;
end;