来者有分 清除历史纪录代码

Question

看你是要清什么软件的纪录。一般都在注册表中。有的软件有设置，像realplay什么的。最直接的办法是打开注册表后直接搜索你要清除的文件名或者关键字。

Answer 1

代码还有问题，你自己调试吧！注意uses   wininet。   
                          procedure   TForm1.Button1Click(Sender:   TObject);   
                          var   
                              cache_info:PInternetCacheEntryInfo;   
                              cbSizeOf_Cache_info:dword;   
                              hw:hwnd;   
                              buf:tstrings;   
                          begin   
                          //     buf:=tstringlist.Create;   
                              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);   
                          //         buf.Add(cache_info.lpszSourceUrlName);   
                                  while     
                          FindNextUrlCacheEntryEx(hw,cache_info,@cbSizeOf_Cache_info,nil,nil,nil)     
                          do   
                          //             buf.Add(cache_info.lpszSourceUrlName);   
                                      DeleteUrlCacheEntry(cache_info.lpszSourceUrlName);   
                              end;   
                              FindCloseUrlCache(hw);   
                              dispose(cache_info);   
                          //     showmessage(buf.Text);   
                          //     buf.Free;   
                          end;

Answer 2

也可以在regedit->HKEY_CURRENT_USER->Software->Local   里找册掉