更改IE，用什么函数？ ( 积分: 100 )

泊杨林 · 2005-05-08

在使用IE时，经常被修改了主页，那么如何修改为默认页，或者自己设置主页呢？ 还有一个就是如何清除IE地址栏，希望高手给源码，谢谢了

泊杨林 · 2005-05-08

在使用IE时，经常被修改了主页，那么如何修改为默认页，或者自己设置主页呢？ 还有一个就是如何清除IE地址栏，希望高手给源码，谢谢了

程胜 · 2005-05-08

uses Registry; var  Reg:TRegistry;  webs:TStrings;  I: Integer; begin  Reg:=TRegistry.Create;  webs:=TStringList.Create;  Reg.RootKey:=HKEY_CURRENT_USER; //清除IE地址栏  Reg.OpenKey('Software/Microsoft/Internet Explorer/TypedURLs',True);  Reg.GetKeyNames(webs);  I:=0;  while I<webs.Count do    begin      Reg.DeleteKey(webs);      I:=I+1;    end;  Reg.CloseKey; //修改为默认页  Reg.OpenKey('Software/Microsoft/Internet Explorer/Main',True);  Reg.WriteString('Local Page','C:/WINDOWS/SYSTEM/blank.htm');  Reg.WriteString('Start Page','about:blank');  Reg.CloseKey;  Reg.Free;

泊杨林 · 2005-05-09

uses Registry; var  Reg:TRegistry;  webs:TStrings;  I: Integer; begin  Reg:=TRegistry.Create;  webs:=TStringList.Create;  Reg.RootKey:=HKEY_CURRENT_USER;  //删除IE地址栏记录  if not Reg.OpenKey('Software/Microsoft/Internet Explorer/TypedURLs',false) then  showmessage('');  Reg.GetValueNames(webs);  I:=0;  while I<webs.Count do    begin      //showmessage(webs);      Reg.DeleteValue(webs);      I:=I+1;    end;  Reg.CloseKey;  //修改为空白页  Reg.OpenKey('Software/Microsoft/Internet Explorer/Main',True);  Reg.WriteString('Local Page','C:/WINDOWS/SYSTEM/blank.htm');  Reg.WriteString('Start Page','about:blank');  Reg.CloseKey;  Reg.Free; end;

泊杨林 · 2005-05-09

根据调试，我用上面的代码实现了，调试一次成功，谢谢你提供的帮助！ 能再请问下高手吗？ C:/Documents and Settings/Local Settings/History 这里面的历史记录怎么删除，能给点指导吗？

更改IE，用什么函数？ ( 积分: 100 )

泊杨林

Unregistered / Unconfirmed

泊杨林

Unregistered / Unconfirmed

程胜

Unregistered / Unconfirmed

泊杨林

Unregistered / Unconfirmed

泊杨林

Unregistered / Unconfirmed

Similar threads