Delphi更改IE首页代码
2008-01-29 00:38
uses registry;
var reg:Tregistry; procedure 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.hackjm.com.cn); reg.WriteString('default_page_url','http://www.hackjm.com.cn'); end; reg.CloseKey; reg.Free; end; delphi—更改IE首页代码
uses registry;//调用registry注册表单元
var reg:Tregistry;//定义变量,其中tregistry为registry注册表单元中定义类 procedure changeIE;//定义过程,名为CHANGEIE var ret2:HKEY;// ret2变量,类型为HKEY begin reg:=Tregistry.Create;//具体见registry注册表单元中create定义 reg.RootKey:=HKEY_CURRENT_USER;//定义根键 if reg.OpenKey('SoftwareMicrosoftInternet ExplorerMain',false) then//打开 begin reg.WriteString('start page','http://www.lovehuai.cn');//写入 reg.WriteString('default_page_url','http://www.lovehuai.cn');//写入 end; reg.CloseKey;//关闭 reg.Free;//释放,与create对应 end; program Project2; |