Czyszczenie Cookies z pomocą Delphi?

[duzers]

Jak wykonać wykasowanie Cookies zapisanych w Temporary Internet Files?
Wykasowanie katalogu niemożliwe, nazwy plików dziwne, więc?

 

[adikx]

Coś prostego:
wstawiasz 2 komponenty filelistbox oraz memo
zrób żeby pliki trafiły do zmiennej memo
dodaj instrukcje warunką sprawdzającą czy dana linia nie jest pusta a to wszystko w pętli

 

[duzers]

Użyłem czegoś takiego:
//Kasowanie pliku C:sciezkanazwa.roz

procedure TForm1.SkasujPlik(plik: String);
begin
FileSetAttr(plik,FileGetAttr(plik) and not (faReadOnly or faHidden));
DeleteFile(plik);
end;

SkasujPlik('C:sciezkanazwa.roz');

--------------------
I właśnie mam problem (wybaczcie jestem początkującym w Delphi). Wywołanie procedury SkasujPlik.... wstawiłem pod Button na formę. Co powinienem zrobić, aby SkasujPlik po prostu sam sie uruchomił?
I drugie pytanie. Jak wykonać kasowanie plików zaczynających się np. od ciągu Marcin.....?

Ale i tak tą procedurą nie wykasuję pliku np. "Cookie:[email protected]/"
Jakieś inne pomysły?

[ Dodano: 15-12-2007, 16:39 ]
Gdzie znajdę komponent "filelistbox"?

 

[Dark Smark]

Originally posted by duzers
I właśnie mam problem (wybaczcie jestem początkującym w Delphi).

Nie w Delphi tylko w Object Pascalu.
Poczytaj kompendium:
http://www.4programmers.net/

Ja bym wylistował pliki z folderu i pętla i usuwamy

 

[maly3900]

Wstawiasz na formę komponent `FileListBox`, w Object Insp. ustawiasz `Mask` na pliki tekstowe [*.txt]

z poziomu kodu wchodzisz do katalogu z coockies'ami

FileListBox1.Directory := 'KATALOG';

-Potem for'em kasujesz wylistowane pliki! - proste!

 

[duzers]

OK dziękuję.
Tu jeszcze cały kodzik do kasowania InternetTemporary
http://www.delphitricks.com/source-code/in...rnet_files.html

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;


procedure TForm1.Button1Click(Sender: TObject);
begin
DeleteIECache;
end;[/b]