C
.com
Unregistered / Unconfirmed
GUEST, unregistred user!
如何改变ie的历史记录。。？删除。。添加。。。谢谢。。
小
小天
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);<br>var<br> cache_info
InternetCacheEntryInfo;<br> cbSizeOf_Cache_info:dword;<br> hw:hwnd;<br> buf:tstrings;<br>begin<br> buf:=tstringlist.Create;<br> new(cache_info);<br> hw:=FindFirstUrlCacheEntryEx(nil,0,NORMAL_CACHE_ENTRY or URLHISTORY_CACHE_ENTRY,0,cache_info,@cbSizeOf_Cache_info,nil,nil,nil);<br> if hw<>0 then<br> begin<br> DeleteUrlCacheEntry(cache_info.lpszSourceUrlName);<br> buf.Add(cache_info.lpszSourceUrlName);<br> while FindNextUrlCacheEntryEx(hw,cache_info,@cbSizeOf_Cache_info,nil,nil,nil) do<br> buf.Add(cache_info.lpszSourceUrlName);<br> DeleteUrlCacheEntry(cache_info.lpszSourceUrlName);<br> end;<br> FindCloseUrlCache(hw);<br> dispose(cache_info);<br> showmessage(buf.Text);<br> buf.Free;<br>end;
InternetCacheEntryInfo;<br> cbSizeOf_Cache_info:dword;<br> hw:hwnd;<br> buf:tstrings;<br>begin<br> buf:=tstringlist.Create;<br> new(cache_info);<br> hw:=FindFirstUrlCacheEntryEx(nil,0,NORMAL_CACHE_ENTRY or URLHISTORY_CACHE_ENTRY,0,cache_info,@cbSizeOf_Cache_info,nil,nil,nil);<br> if hw<>0 then<br> begin<br> DeleteUrlCacheEntry(cache_info.lpszSourceUrlName);<br> buf.Add(cache_info.lpszSourceUrlName);<br> while FindNextUrlCacheEntryEx(hw,cache_info,@cbSizeOf_Cache_info,nil,nil,nil) do<br> buf.Add(cache_info.lpszSourceUrlName);<br> DeleteUrlCacheEntry(cache_info.lpszSourceUrlName);<br> end;<br> FindCloseUrlCache(hw);<br> dispose(cache_info);<br> showmessage(buf.Text);<br> buf.Free;<br>end;
W
wjiachun
Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案了.