急，高手救命啊

Question

有什么API函数可以设置IE，让IE不保留（清除）历史记录？

Answer 1

uses WinInet;//....
var
  lpEntryInfo : PInternetCacheEntryInfo;
  hCacheDir : LongWord;
  dwEntrySize : LongWord;
  dwLastError : LongWord;
begin
  dwEntrySize := 0;
  FindFirstUrlCacheEntry(nil, TInternetCacheEntryInfo(nil^), dwEntrySize);
  GetMem(lpEntryInfo, dwEntrySize);
  try
    hCacheDir := FindFirstUrlCacheEntry(nil, lpEntryInfo^, dwEntrySize);
    if hCacheDir <> 0 then
      DeleteUrlCacheEntry(lpEntryInfo^.lpszSourceUrlName);
  finally
    FreeMem(lpEntryInfo);
  end;
  repeat
    dwEntrySize := 0;
    FindNextUrlCacheEntry(hCacheDir, TInternetCacheEntryInfo(nil^), dwEntrySize);
    dwLastError := GetLastError();
    if (GetLastError = ERROR_INSUFFICIENT_BUFFER) then
    begin
      GetMem(lpEntryInfo, dwEntrySize);
      try
        if FindNextUrlCacheEntry(hCacheDir, lpEntryInfo^, dwEntrySize) then
          DeleteUrlCacheEntry(lpEntryInfo^.lpszSourceUrlName);
      finally
        FreeMem(lpEntryInfo);
      end;
    end;
  until (dwLastError = ERROR_NO_MORE_ITEMS);
end;

Answer 2

uses WinInet;procedure IE_Setting;
var
  HInet: HINTERNET;
begin
  hInet := InternetOpen(PChar('Project1'), INTERNET_OPEN_TYPE_DIRECT, nil, nil, INTERNET_FLAG_FROM_CACHE);
  try
    if hInet <> nil then
      InternetSetOption(hInet, INTERNET_OPTION_REFRESH, nil, 0);
  finally
    InternetCloseHandle(hInet);
  end;
end;説明：試試看、能不能強制修正「INTERNET OPTION」

Answer 3

我水平比较低，我想把IE保存临时文件的文件夹清空就可以了吧，用TIMER编程设置清除时间

Answer 4

通过API访问IE Cache :http://blog.csdn.net/technofantasy/archive/2002/03/29/2962.aspx