Cookies löschen

[Haukez]

Leute konnte es lösen ich kann nun die cookies löschen !!!!

ein wenig suchen und umcoden hats gebracht! trial'error ^^

Delphi-Quellcode:

procedure FindAllFiles(RootFolder: string; Mask: string = '*.*'; Recurse: Boolean = True);

var
  x : integer;
  SR: TSearchRec;


begin
  // Implementation ab Delphi 5
  RootFolder := IncludeTrailingPathDelimiter(RootFolder);
  if Recurse then
    if FindFirst(RootFolder + '*.*', faAnyFile, SR) = 0 then
      try
        repeat
          if SR.Attr and faDirectory = faDirectory then
            // --> ein Verzeichnis wurde gefunden
            //   der Verzeichnisname steht in SR.Name
            //   der vollständige Verzeichnisname (inkl. darüberliegender Pfade) ist
            //       RootFolder + SR.Name
            if (SR.Name <> '.') and (SR.Name <> '..') then
              FindAllFiles(RootFolder + SR.Name, Mask, Recurse);
        until FindNext(SR) <> 0;
      finally
        FindClose(SR);
      end;
  if FindFirst(RootFolder + Mask, faAnyFile, SR) = 0 then
    try
      repeat
        if SR.Attr and faDirectory <> faDirectory then
        begin
          // --> eine Datei wurde gefunden
          //   der Dateiname steht in SR.Name
          //   der vollständige Dateiname (inkl. Pfadangabe) ist
          //       RootFolder + SR.Name
         deletefile(rootfolder+sr.Name);                             // HIER ERFOLGT NUN DAS LÖSCHEN
        end;
      until FindNext(SR) <> 0;
    finally
      FindClose(SR);
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
FINDALLFILES('C:\Dokumente und Einstellungen\BENUTZER\cookies', 'BENUTZER*.txt',true);          // benutzer in windowsprofilnamen ändern

es bietet sich vllt noch an den benutzer des systems direkt zu ermitteln , mein problem is gelöst