如何刪除ie的temporary files?

有關Delphi 的語法, 程式, 等
回覆文章
頭像
tim
文章: 1379
註冊時間: 2008年 11月 26日, 00:49

如何刪除ie的temporary files?

文章 tim »

請參考 http://delphi.about.com/bltip1002.htm 這篇:
44/2002. How to delete 'Temporary Internet Files' from code

代碼: 選擇全部

     
    { 
    Usage: 
    procedure Tform1.Button1Click(Sender: TObject);  
    begin  
      DeleteIECache;  
    end;  
    } 
     
    uses  
      WinInet;  
        
    procedure DeleteIECache;  
    var  
      lpEntryInfo: PInternetCacheEntryInfo;  
      hCacheDir: LongWord;  
      dwEntrySize: LongWord;  
    begin  
      dwEntrySize := 0;  
      FindFirstUrlCacheEntry(nil, TInternetCacheEntryInfo(nil^), dwEntrySize);  
      GetMem(lpEntryInfo, dwEntrySize);  
      if dwEntrySize > 0 then lpEntryInfo^.dwStructSize := dwEntrySize;  
      hCacheDir := FindFirstUrlCacheEntry(nil, lpEntryInfo^, dwEntrySize);  
      if hCacheDir <> 0 then   
      begin  
        repeat  
          DeleteUrlCacheEntry(lpEntryInfo^.lpszSourceUrlName);  
          FreeMem(lpEntryInfo, dwEntrySize);  
          dwEntrySize := 0;  
          FindNextUrlCacheEntry(hCacheDir, TInternetCacheEntryInfo(nil^), dwEntrySize);  
          GetMem(lpEntryInfo, dwEntrySize);  
          if dwEntrySize > 0 then lpEntryInfo^.dwStructSize := dwEntrySize;  
        until not FindNextUrlCacheEntry(hCacheDir, lpEntryInfo^, dwEntrySize);  
      end;  
      FreeMem(lpEntryInfo, dwEntrySize);  
      FindCloseUrlCache(hCacheDir);  
    end;  
多多留言, 整理文章, 把經驗累積下來.....
回覆文章