IE暫存檔案夾問題 |
答題得分者是:pceyes
|
fanmeide
一般會員 發表:10 回覆:5 積分:3 註冊:2008-02-24 發送簡訊給我 |
|
pceyes
尊榮會員 發表:70 回覆:657 積分:1140 註冊:2003-03-13 發送簡訊給我 |
剛找到資料,案子卻又不見了,真奇怪!
把以下刪除改成copy檔案不就好了 如何刪除IE暫存檔案夾 http://delphi.ktop.com.tw/board.php?cid=30&fid=70&tid=29106
------
努力會更接近成功 |
taishyang
站務副站長 發表:377 回覆:5490 積分:4563 註冊:2002-10-08 發送簡訊給我 |
1.標題後面無意義的描述我幫您刪掉
2.將您測試不行的程式碼PO上來讓前輩們幫您看看問題在哪邊 ===================引 用 fanmeide 文 章=================== 各位大大好問題緊急我就揀重要的說我想實現按一下鍵就把暫存檔案夾下邊的所有檔複製到另外一個指定的地方如果能實現對比複製就更好了就是說已經有的就不複製沒有的就不能複製我試了很多方法都不行非常抱歉阿斑竹,我剛才第一次把問題發錯地方了,不知道怎麽轉就重發了次,結果兩個都被你刪了 |
fanmeide
一般會員 發表:10 回覆:5 積分:3 註冊:2008-02-24 發送簡訊給我 |
我更改过后的程序如下
var lpEntryInfo: PInternetCacheEntryInfo; hCacheDir: LongWord; dwEntrySize: LongWord; cachefile: string; i: integer; cancheqqlist: TStringList; begin cancheqqlist := TStringList.Create; cancheqqlist.Clear; 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 if (lpEntryInfo^.CacheEntryType) and (NORMAL_CACHE_ENTRY) = NORMAL_CACHE_ENTRY then cachefile := pchar(lpEntryInfo^.lpszSourceUrlName); //取消条件 //if pos('Delphibbs.com', cachefile) > 0 then //符合条件的清除 cancheqqlist.Add(cachefile); for i := 0 to cancheqqlist.Count - 1 do CopyFile(pchar(cancheqqlist.Strings[i]),pchar('e:\5555\' cancheqqlist.Strings[i]),true);//改成COPY // DeleteUrlCacheEntry(pchar(cancheqqlist.Strings[i])); //执行删除 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); cancheqqlist.Free; 但是实际上运行不了,你能告诉我原因么?万分感谢 |
pceyes
尊榮會員 發表:70 回覆:657 積分:1140 註冊:2003-03-13 發送簡訊給我 |
lpEntryInfo^.lpszLocalFileName);
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); // Start Copy Files // My Test Dir is use D: you Can Change it for i :=0 to CancheqqList.count -1 do begin CopyFile(pchar(CancheqqList[i]),pchar('D:\5555\' ExtractfileName(CancheqqList[i])),false);//改成COPY end; finally CancheqqList.free; end; end;
------
努力會更接近成功 |
fanmeide
一般會員 發表:10 回覆:5 積分:3 註冊:2008-02-24 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |