没有找到有效删除IE历史记录的方法

Question

我找了好久都没有找到有效删除IE历史记录的方法,我指的是地址栏一拉的那些地址
 
不管是注册表还是 等等的方法,以及以下流行的方法都不能,比如下面这段代码我测试过无效
uses wininet; procedure TForm1.Button1Click(Sender: TObject); 
var 
cache_info:PInternetCacheEntryInfo; 
cbSizeOf_Cache_info:dword; 
hw:hwnd; 
buf:tstrings; 
begin 
new(cache_info); 
hw:=FindFirstUrlCacheEntryEx(nil,0,NORMAL_CACHE_ENTRY or URLHISTORY_CACHE_ENTRY,0,cache_info,@cbSizeOf_Cache_info,nil,nil,nil); 
if hw<>0 then 
begin 
DeleteUrlCacheEntry(cache_info.lpszSourceUrlName); 
while FindNextUrlCacheEntryEx(hw,cache_info,@cbSizeOf_Cache_info,nil,nil,nil) do 
DeleteUrlCacheEntry(cache_info.lpszSourceUrlName); 
end; 
FindCloseUrlCache(hw); 
dispose(cache_info); 
end;  

Answer 1

HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs此项之下所有记录

Answer 2

HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs此项之下所有记录
根本就不行,我地历史记录至少有近百条,但是TypedURLs 下面却只有十几个 我删除了,照旧有,历史记录 我不知道为什么人都这么说,又不去检验一下 我测试通过唯一有效的办法是删除C:\Documents and Settings\Administrator\Local Settings 下面的 今天 和星期五 可是他不是文件夹,命令无法删除 必需要用键盘我倒,这个程序怎么就这么难

Answer 3

HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Doc Find Spec MRU
中除了默认以外的所有值之后重新启动看看
一般来说这些配置是在程序启动时读入的，程序运行期间修改不会立刻生效
另外，如果你要删除地址栏的自动完成项目，你需要在历史记录中删除对应的URL。

Answer 4

最重要的是把“Temporary Internet Files”这个目录里的东西清空，就什么都没有了。
另外：你在先欣赏的mp3在文件装载完成后，（或者你完整听过一遍后）在这个目录里复制粘贴出来就好了

Answer 5

我今年年初写的程序：Win98se\Win2K server + Delphi 7IE地址栏中//你可以导入一个列表里边自己选择删除什么
var
  tempList:TStringList;
  i:integer;
begin
  reg:=TRegistry.Create;
  try
    reg.RootKey:=HKEY_CURRENT_USER;
    if reg.OpenKey('Software\Microsoft\Internet Explorer\TypedURLs',false) then
    begin
      tempList:=TStringList.Create;
      try
        reg.GetValueNames(tempList);
        for i:=0 to tempList.Count-1 do
          reg.DeleteValue(tempList.Strings[i]);
        addurlLb.Items.Clear;        freshaddFsb.Enabled:=false;
        deladdressFsb.Enabled:=false;
        delallFsb.Enabled:=false;
      finally
        tempList.Free;
      end;
    end;
  finally
    reg.Free;
  end;清除历史记录：
type
  TSTATURL=record
    cbSize:DWORD;
    pwcsUrl:DWORD;
    pwcsTitle:DWORD;
    ftlastVisited:FILETIME;
    ftlastUpdated:FILETIME;
    ftExpirts:FILETIME;
    dwFlags:DWORD;
  end;type
  IEnumSTATURL=interface(IUnknown)
  ['{3C374A42-BAE4-11CF-BF7D-00AA006946EE}']
    function Next(celt: Integer; out elt; pceltFetched: PLongint): HRESULT; stdcall;
    function Skip(celt: Longint): HRESULT; stdcall;
    function Reset: HResult; stdcall;
    function Clone(out ppenum: IEnumSTATURL): HResult; stdcall;
    function SetFilter(poszFilter: PWideChar; dwFlags: DWORD): HResult; stdcall;
  end;type
  IUrlHistoryStg = interface(IUnknown)
    ['{3C374A41-BAE4-11CF-BF7D-00AA006946EE}']
    function AddUrl(pocsUrl: PWideChar; pocsTitle: PWideChar; dwFlags: Integer): HResult; stdcall;
    function DeleteUrl(pocsUrl: PWideChar; dwFlags: Integer): HResult; stdcall;
    function QueryUrl(pocsUrl: PWideChar; dwFlags: Integer; var lpSTATURL: TSTATURL): HResult; stdcall;
    function BindToObject(pocsUrl: PWideChar; var riid: TGUID; out ppvOut: Pointer): HResult; stdcall;
    function EnumUrls(out ppenum: IEnumSTATURL): HResult; stdcall;
  end;type
  IUrlHistoryStg2 = interface(IUrlHistoryStg)
    ['{AFA0DC11-C313-11D0-831A-00C04FD5AE38}']
    function AddUrlAndNotify(pocsUrl: PWideChar; pocsTitle: PWideChar; dwFlags: Integer;
      fWriteHistory: Integer; var poctNotify: Pointer;
      const punkISFolder: IUnknown): HResult; stdcall;
    function ClearHistory: HResult; stdcall;
  end;
//***************************************************************function iehistoryClear:integer;
const
  CLSID_CUrlHistory:TGUID='{3C374A40-BAE4-11CF-BF7D-00AA006946EE}';
var
  IeHistory:IUrlHistoryStg2;
begin
  IeHistory:=CreateComobject(CLSID_CUrlHistory) as IUrlHistoryStg2;
  IeHistory.ClearHistory;
  IeHistory._Release;
  result:=S_OK;
end;