Mazání cookies – Delphi – Fórum – Programujte.com

Dobrý den,
nevíte jak provést pomocí "Buttonu" vymazání Cookiesů Internet Exploreru, popřípadě historie ?
Pokud možno, aby byl průběh zobrazen ProgressBarem...
Googlil jsem, ale nic kloudného jsem nenašel.



Předem Děkuji

Asi jsi googlil špatně.
http://www.delphipages.com/forum/showthread.php?t=188213
(jenom ukázka kódu, nezkoušel jsem)
Ale nemysli si že něco takového uděláš na dvou řádcích.

To Sniper : Na něco takového jsem narazil, kdybych si věděl rady tak bych to udělal....

Mě by alespoň tedy akorat stačil přikaz, který bych dal tlačítku, aby vymazal složku např:

C:\Users\*UŽIVATEL*\AppData\Local\Microsoft\Windows\History

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, Buttons, ShlObj, ShellApi, StdCtrls;



procedure Tovladaci_p.Button1Click(Sender: TObject);

var

  APath: string;

  MySearch: TSearchRec;

begin

  APath:=cesta_vymaz.Text;

  FindFirst(APath+'\*.*', faAnyFile, MySearch);

  Vypis.Lines.Add(MySearch.Name);

  DeleteFile(APath+'\'+MySearch.Name);

  while FindNext(MySearch)=0 do

  begin

    Vypis.Lines.Add(MySearch.Name);

    DeleteFile(APath+'\'+MySearch.Name);

  end;

  FindClose(MySearch);

end;

SHGetFolderPath, SHGetFolderLocation, SHGetSpecialFolderPath, SHGetSpecialFolderLocation
CSIDL_HISTORY, CSIDL_COOKIES, CSIDL_INTERNET_CACHE

Edit: tak nic, ten Sniperův odkaz je víc než dostačující