Delphi操作注册表步骤如下:
-------------------------------------
1)在Uses中添加Registry单元;
2)声明TRegistry对象;
3)创建TRegistry对象;
4)指定根键;
----------------try------------------
5)打开需要操作的主键;
6)读写操作;
7)保存并关闭主键;
--------------finally----------------
8)释放TRegistry对象;
---------------end------------------
==========================================================
Uses Registry; //添加Registry单元;
var
MyReg: TRegistry; //声明TRegistry对象;
begin
MyReg := TRegistry.Create; //创建TRegistry对象;
try
MyReg.RootKey := HKEY_LOCAL_MACHINE; //指定根键;
if MyReg.OpenKey('主键名', true) then //打开需要操作的主键;
begin
MyReg.ReadType(---); //读注册表文件
MyReg.WriteType(---); //写注册表文件
end;
MyReg.CloseKey; //保存并关闭主键;
finally
MyReg.Free; //释放TRegistry对象;
end;
end;
==========================================================
function OpenKey(const Key:String; CanCreate:Boolean):Boolean;
//第二个参数指明,如果需要打开的主键不存在时是否创建该主键
function CreateKey(const Key:String):Boolean;
//此方法用于创建主键,实际上并不常用
function KeyExists(const Key:String):Boolean;
//判断主键是否存在
(***对于字符串类型的操作函数***)
function ReadString(const Name: String):String;
procedure WriteString(const Name, Value: String);
//对于其它数据类型的注册表读写操作与上雷同
==========================================================
//[eg:]//
var
Reg:TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('/Software/Microsoft/Windows/CurrentVersion/Run',True)
then begin
Reg.WriteString('MyApp', ParamStr(0));
Reg.CloseKey;
end;
finally
Reg.Free;
end;
end;
==========================================================