本文整理自网络,侵删。
uses registry;//调用registry注册表单元
var
reg:Tregistry;//定义变量,其中tregistry为registry注册表单元中定义类
////////////////////////////////////////////////////
procedure changeIE;//定义过程,名为CHANGEIE
var
ret2:HKEY;
begin
reg:=Tregistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
if reg.OpenKey('Software\Microsoft\Internet Explorer\Main',false) then
begin
reg.WriteString('start page','http://www.3464.com/');
reg.WriteString('default_page_url','http://www.3464.com/');
end;
reg.CloseKey;
reg.Free;
end;
相关阅读 >>
Delphi异常处理try except语句和try finally语句用法以及区别
Delphi 读取流 image1 stream 加载到image2 timage 对象
Delphixe4 版本中,已针对移动平台 引入了 arc 模型
更多相关阅读请进入《Delphi》频道 >>