日期:2014-05-16  浏览次数:20390 次

来者有分 清除历史纪录代码
下拉菜单的纪录   象讯雷的清除历史纪录类似   解决者给100分

------解决方案--------------------
是要清除浏览器的吗?

有难度 , 期待!
------解决方案--------------------
就是删除COOKIE嘛。
------解决方案--------------------
关注
------解决方案--------------------
ie设置里边都清楚掉
------解决方案--------------------
学习

------解决方案--------------------
看你是要清什么软件的纪录。一般都在注册表中。有的软件有设置,像realplay什么的。最直接的办法是打开注册表后直接搜索你要清除的文件名或者关键字。
------解决方案--------------------
楼主能举个要实现的例子吗?
------解决方案--------------------
帮顶
------解决方案--------------------
哈哈,这么厉害
------解决方案--------------------
应该是操作注册表的问题
------解决方案--------------------
代码还有问题,你自己调试吧!注意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;
------解决方案--------------------
也可以在regedit-> HKEY_CURRENT_USER-> Software-> Local 里找册掉