Ĺadny brzuch
Witam Serdecznie,
Chciałbym Usunąć, Wyczyścić plik index.dat w katalogu Temporary Internet Files bez zabijania procesu: explorer.exe
%userprofile%\Ustawienia lokalne\Temporary Internet Files\Content.IE5\index.dat
Długo szukałem jedyne co znalazłem to ten artykuł ale niestety jest on w języku C+ którego nie znam :(
Proszę o pomoc
Użytkownik bajeczny edytował ten post 03 październik 2008, 17:27
Funkcje które potrzebujesz to FindFirstUrlCacheEntry, FindNextUrlCacheEntry i DeleteUrlCacheEntry. Opisy znajdują się tutaj:
http://msdn.microsof...473(VS.85).aspx
Użytkownik Kozack edytował ten post 03 październik 2008, 17:46
Funkcje które potrzebujesz to FindFirstUrlCacheEntry, FindNextUrlCacheEntry i DeleteUrlCacheEntry. Opisy znajdują się tutaj:
http://msdn.microsof...473(VS.85).aspx
Nie bardzo wiem, albo coś źle robię bo, wcale nie czyści mi pliku index.dat :(
Pokaż kod.
Pokaż kod.
Taki wy-googlowałem:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, WinInet, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); 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 Memo1.Lines.Add(string(lpEntryInfo^.lpszSourceUrlName)); 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; end.
Otwieram kilka stron w IE. Następnie klikam dwa razy na przycisk. Za drugim razem nie dodaje wpisów do Memo, więc musi je usuwać :)
EDIT: Już wiem o chodzi. Powyższy kod czyści tylko cache. Spróbuj tego:
http://www.delphipag.......24&G=188213 (wyszukaj "ClearIEHistory")
Użytkownik Kozack edytował ten post 18 październik 2008, 16:13
Otwieram kilka stron w IE. Następnie klikam dwa razy na przycisk. Za drugim razem nie dodaje wpisów do Memo, więc musi je usuwać :)
EDIT: Już wiem o chodzi. Powyższy kod czyści tylko cache. Spróbuj tego:
http://www.delphipag.......24&G=188213 (wyszukaj "ClearIEHistory")
TO też nie działa :o
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Chciałbym Usunąć, Wyczyścić plik index.dat w katalogu Temporary Internet Files bez zabijania procesu: explorer.exe
%userprofile%\Ustawienia lokalne\Temporary Internet Files\Content.IE5\index.dat
Długo szukałem jedyne co znalazłem to ten artykuł ale niestety jest on w języku C+ którego nie znam :(
Proszę o pomoc
Użytkownik bajeczny edytował ten post 03 październik 2008, 17:27
Funkcje które potrzebujesz to FindFirstUrlCacheEntry, FindNextUrlCacheEntry i DeleteUrlCacheEntry. Opisy znajdują się tutaj:
http://msdn.microsof...473(VS.85).aspx
Użytkownik Kozack edytował ten post 03 październik 2008, 17:46
Funkcje które potrzebujesz to FindFirstUrlCacheEntry, FindNextUrlCacheEntry i DeleteUrlCacheEntry. Opisy znajdują się tutaj:
http://msdn.microsof...473(VS.85).aspx
Nie bardzo wiem, albo coś źle robię bo, wcale nie czyści mi pliku index.dat :(
Pokaż kod.
Pokaż kod.
Taki wy-googlowałem:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, WinInet, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); 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 Memo1.Lines.Add(string(lpEntryInfo^.lpszSourceUrlName)); 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; end.
Otwieram kilka stron w IE. Następnie klikam dwa razy na przycisk. Za drugim razem nie dodaje wpisów do Memo, więc musi je usuwać :)
EDIT: Już wiem o chodzi. Powyższy kod czyści tylko cache. Spróbuj tego:
http://www.delphipag.......24&G=188213 (wyszukaj "ClearIEHistory")
Użytkownik Kozack edytował ten post 18 październik 2008, 16:13
Otwieram kilka stron w IE. Następnie klikam dwa razy na przycisk. Za drugim razem nie dodaje wpisów do Memo, więc musi je usuwać :)
EDIT: Już wiem o chodzi. Powyższy kod czyści tylko cache. Spróbuj tego:
http://www.delphipag.......24&G=188213 (wyszukaj "ClearIEHistory")
TO też nie działa :o