title image


Smiley Re: Wie kann ich ein Cookie löschen
Moin Dani,



so zum Beispiel:



procedure TForm1.Cookies1Click(Sender: TObject);



var

icei : PINTERNETCACHEENTRYINFO;

dwSize : DWord;

hSearch : DWord;



begin

CheckListBox1.Items.BeginUpdate;

CheckListBox1.Items.Clear;

dwSize := 65536;

icei := AllocMem(dwSize);

try

hSearch := FindFirstURLCacheEntry('cookie:',icei^,dwSize);

if hSearch = 0 then

begin

ShowMessage(SysErrorMessage(GetLastError)+' '+IntToStr(dwSize));

exit;

end;

while hSearch 0 do

begin

Application.ProcessMessages;

CheckListBox1.Items.Add(icei^.lpszSourceUrlName);

dwSize := 65536;

if not FindNextURLCacheEntry(hSearch,icei^,dwSize) then

begin

hSearch := 0;

end;

end;

finally

FreeMem(icei,65536);

CheckListBox1.Items.EndUpdate;

end;

end;



procedure TForm1.Lschen1Click(Sender: TObject);



var

i : integer;



begin

for i := 0 to CheckListBox1.Items.Count-1 do

begin

if CheckListBox1.Checked[i] then

begin

DeleteURLCacheEntry(PChar(CheckListBox1.Items[i]));

end;

end;

Cookies1.Click;

end;



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: