各位先進好： 我利用TWebBrowser 來呈現瀏覽網頁時的畫面 而希望當關閉這個TWebBrowser的時候可以自動刪除掉 之前所瀏覽網頁留下的歷史資料 包含History , Temporary Internet Files , ,cookies等資料夾內的東西，請問該從何下手阿 謝謝

cache file 部份: http://www.delphipages.com/tips/thread.cfm?ID=84

uses wininet    procedure TForm1.Button1Click(Sender: TObject);
var
 lpEntryInfo: PInternetCacheEntryInfo;
 hCacheDir: LongWord (*Handle*);
 dwEntrySize, dwLastError: LongWord;
begin
 //Get size of first entry in dwEntrySize
 dwEntrySize := 0;
 FindFirstUrlCacheEntry(nil, TInternetCacheEntryInfo(nil^), dwEntrySize);
 //Create structure that can hold entry
 GetMem(lpEntryInfo, dwEntrySize);
 //Get first cache entry and handle to retrieve next entry, output url
 hCacheDir := FindFirstUrlCacheEntry(nil, lpEntryInfo^, dwEntrySize);
 if hCacheDir <> 0 then
   Memo1.Lines.Add(string(lpEntryInfo^.lpszSourceUrlName));       //Use this line to Delete
   {DeleteUrlCacheEntry(lpEntryInfo^.lpszSourceUrlName);}     //free structure
 FreeMem(lpEntryInfo);     //retrieve all subsequent entries
 repeat
   dwEntrySize := 0;
   FindNextUrlCacheEntry(hCacheDir, TInternetCacheEntryInfo(nil^), dwEntrySize);
   dwLastError := GetLastError();
   if GetLastError = ERROR_INSUFFICIENT_BUFFER then begin
     GetMem(lpEntryInfo, dwEntrySize);
     if FindNextUrlCacheEntry(hCacheDir, lpEntryInfo^, dwEntrySize) then
       Memo1.Lines.Add(string(lpEntryInfo^.lpszSourceUrlName));
     FreeMem(lpEntryInfo);
   end;
 until dwLastError = ERROR_NO_MORE_ITEMS;
end; 

其它造訪以下這個站吧, 它專們講 delphi & IE 的: http://www.euromind.com/iedelphi/index.htm --- Everything I say is a lie. 發表人 - hagar 於 2003/11/11 07:21:37

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.