Discussion :

[Invité(e)]

Bonsoir,

je cherche le moyen d'effacer les cookies et fichiers temps créés lorsqu'on utilise IE ou Firefox. Je suis tombé sur ce code qui apparemment ne fonctionne que pour IE et qui ne fait qu'effacer les cookies. Quelqu'un a une idée ? Un grand merci d'avance à tous, Arnaud.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
{ uses ComObj; }
 
type
  TSTATURL = record
    cbSize: DWORD;
    pwcsUrl: DWORD;
    pwcsTitle: DWORD;
    ftLastVisited: FILETIME;
    ftLastUpdated: FILETIME;
    ftExpires: FILETIME;
    dwFlags: DWORD;
  end;
 
type
  IEnumSTATURL = interface(IUnknown)
    ['{3C374A42-BAE4-11CF-BF7D-00AA006946EE}']
    function Next(celt: Integer; out elt; pceltFetched: PLongint): HRESULT; stdcall;
    function Skip(celt: Longint): HRESULT; stdcall;
    function Reset: HResult; stdcall;
    function Clone(out ppenum: IEnumSTATURL): HResult; stdcall;
    function SetFilter(poszFilter: PWideChar; dwFlags: DWORD): HResult; stdcall;
  end;
 
type
  IUrlHistoryStg = interface(IUnknown)
    ['{3C374A41-BAE4-11CF-BF7D-00AA006946EE}']
    function AddUrl(pocsUrl: PWideChar; pocsTitle: PWideChar; dwFlags: Integer): HResult; stdcall;
    function DeleteUrl(pocsUrl: PWideChar; dwFlags: Integer): HResult; stdcall;
    function QueryUrl(pocsUrl: PWideChar; dwFlags: Integer; var lpSTATURL: TSTATURL): HResult; stdcall;
    function BindToObject(pocsUrl: PWideChar; var riid: TGUID; out ppvOut: Pointer): HResult; stdcall;
    function EnumUrls(out ppenum: IEnumSTATURL): HResult; stdcall;
  end;
 
type
  IUrlHistoryStg2 = interface(IUrlHistoryStg)
    ['{AFA0DC11-C313-11D0-831A-00C04FD5AE38}']
    function AddUrlAndNotify(pocsUrl: PWideChar; pocsTitle: PWideChar;
                             dwFlags: Integer; fWriteHistory: Integer; var poctNotify: Pointer;
                             const punkISFolder: IUnknown): HResult; stdcall;
    function ClearHistory: HResult; stdcall;
  end;
 
function ClearIEHistory: Integer;
const
  CLSID_CUrlHistory: TGUID = '{3C374A40-BAE4-11CF-BF7D-00AA006946EE}';
var
  IEHistory:IUrlHistoryStg2;
begin
  IEHistory := CreateComObject(CLSID_CUrlHistory) as IUrlHistoryStg2;
  IEHistory.ClearHistory;
end;
 
procedure TForm1.Button1Click(Sender: TObject);

[mick605]

Tiens ... Re ^^

Pour IE, je sais que les cookies et les fichiers temporaires sont stockés dans : C:\Users\*****\AppData\Local\Microsoft\Windows\Temporary Internet Files

Pour trouver ce dossier, Outils > Options Internet > Historique de navigation .. Parametres > Afficher les fichiers

Ensuite, suffit de supprimer tout les .txt !

A+

[droggo]

Nai,

Pour Firefox, depuis la version 3, les cookies sont stockés dans une base de données Sqlite.

Facile à trouver sur ton disque.

[Invité(e)]

Un grand MERCI pour vos réponses ! Je vais essayer de voir quelle fonction utiliser pour :

1. récupérer dans une variable le chemin exact du dossier dans le lequel il y a les fichiers pour IE et la base SQL pour firefox

2. lancer la suppression des fichiers dans le répertoire adéquat de IE
3. Lancier la suppression des enregistrements dans la base SQL pour Firefox

Merci à vous, Arnaud