Discussion :

[Droïde Système7]

Bonjour

Je cherche durant des heures et patine un max

Mon but est de simplement supprimer un de mes fichiers en .txt dans ...\Temporary Internet Files\'

(Histoire de manip de mise à jour)

Or, il semblerait que tous les fichiers dans ce dossier spécial soient "invisibles".

J'ai aussi trouvé une source avec :

Code :

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

DeleteURLCacheEntry(PAnsiChar(PathFile));

Mais toujours impossible de supprimer ce fichier.

Le genre de problème que l'on juge "basic" et qui...

Merci d'avance de vos idées

Edit : Lorsque je "ping" par exemple via un FileExists, ça ne trouve pas le fichier.
Si je regarde dans "Propriétés" de ce fichier (en cache IE) il est nommé avec un "[1.].txt" à la fin. Même si je rectifie de nom pour un Delete(...) [etc. !] , ça foire = fichier inconnu au bataillon.
Par contre si je "ping" le dossier (caché) d'Internet Temporary Files, hé bien c'est ok, il est visible.
J'ai vu et je sais qu'il existe des procédures pour cleaner TOUT le contenu du cache en question, mais je ne souhaite pas intervenir sur les autres fichiers.
Donc je ne sais toujours pas comment supprimer un seul... fichier

[Gilbert Geyer]

Salut Droïde,

Voici un Zip qui contient du code pour vider carrément :
1 - la corbeille
2 - l'historique
3 - les Cookies
4 - les fichiers temporaires internet
5 - la liste des fichiers récemment consultés
6 - les vieilles données du Prefetch
7 - le dossier Temp
8 - Ou n'importe quel autre dossier
... Mais faire gaffe : Actions irréversibles ça vide les dossiers quel que soit leur contenu (*.txt, *.jpg, et tous les autres formats);

Par contre à côté de chaque rubrique il y a un bouton 'VOIR' histoire de voir ce qu'on va détruire avent de détruire.

Si tu veux uniquement détruire le fichier 'FichierADetruire.txt' dans le dossier des fichiers temporaires internet il faut modifier la routine suivante :

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
procedure DeleteIECache; // Supprimer les Temporary Internet Files
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
               if (pos('Cookie:gg@www.developpez.net',lpEntryInfo^.lpszSourceUrlName)=1)
               or (pos('Cookie:gg@www.lesite.com',lpEntryInfo^.lpszSourceUrlName)=1)
               then Continue
               else begin
                    DeleteUrlCacheEntry(lpEntryInfo^.lpszSourceUrlName);
                    FreeMem(lpEntryInfo, dwEntrySize);
                    dwEntrySize := 0;
                    FindNextUrlCacheEntry(hCacheDir, TInternetCacheEntryInfo(nil^), dwEntrySize);
                    GetMem(lpEntryInfo, dwEntrySize) ;
                    if dwEntrySize > 0 then lpEntryInfo^.dwStructSize := dwEntrySize;
               end;
            until not FindNextUrlCacheEntry(hCacheDir, lpEntryInfo^, dwEntrySize);
          end;
          FreeMem(lpEntryInfo, dwEntrySize);
          FindCloseUrlCache(hCacheDir);
end;

.... avec les lignes suivantes :
if (pos('Cookie:gg@www.developpez.net',lpEntryInfo^.lpszSourceUrlName)=1)
or (pos('Cookie:gg@www.lesite.com',lpEntryInfo^.lpszSourceUrlName)=1)
then Continue
j'évite de détruire les deux fichiers cités.
Donc pour ne détruire qu'un seul fichier il faut que le 'Continue' s'active pour tous les autres fichiers c'est à dire lorsque :
if (pos('FichierADetruire.txt',lpEntryInfo^.lpszSourceUrlName)=0)
then Continue

A+.

[Droïde Système7]

Salut Gilbert

Merci de ton aide, c'est très sympa.

Oui mais as-tu prévu la façon de supprimer Un seul fichier en cache IE ?

Car là seul est mon but.

J'ai passé des heures sur le web à tenter de trouver cette infos, je pensais avoir trouvé cela à deux ou trois endroits, mais ça s'est terminé en eau de boudin.

[Droïde Système7]

Gilbert, c'est de la dynamite ton truc

Je regarde si je peux "mettre en cible" de la méthode cleanant tout le cache IE ; un seul fichier.

@+

Edit : j'admire ta procédure DeleteIECache, mais je ne pense pas pouvoir la modifier dans les règles afin de supprimer qu'un seul fichier là ça me dépasse un peu.

[Gilbert Geyer]

Re-salut Droïde,

mais je ne pense pas pouvoir la modifier dans les règles afin de supprimer qu'un seul fichier

Je viens de compléter mon message précédent pendant que tu rédigeais les tiens.

J'y ai ajouté une indication pour ne supprimer qu'un seul fichier. Je te laisse faire la modif.

A+.

[Droïde Système7]

Nous claviotions ensemble alors

Whaouuuu Gilbert

Je regarde ça...

[Droïde Système7]

Gilbert,



oufffffff car ça me bloquait !

Impec, je n'y croyais plus ; affaire résolue.

Merci encore !

@+

[cincap]

Bonjour à toutes et à tous,

@ Gilbert Geyer, comme j'utilise ton excellente source, je me suis permis de modifier le code pour voir le contenu de la poubelle.

Sans connaître le CLSID :

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
 
procedure TFNettoyeur.B1Click(Sender: TObject);
 var
    recycleBinPIDL: PItemIDList;
    execInfo: TShellExecuteInfo;
 begin
    SHGetSpecialFolderLocation(Handle, CSIDL_BITBUCKET, recycleBinPIDL) ;
    with execInfo do
    begin
      cbSize := Sizeof(execInfo) ;
      fMask := SEE_MASK_IDLIST;
      Wnd := Handle;
      lpVerb := nil;
      lpFile := nil;
      lpParameters := nil;
      lpDirectory := nil;
      nShow := SW_SHOWNORMAL; //SW_SHOWDEFAULT
      hInstApp:=0;
      lpIDList := recycleBinPIDL;
    end;
    ShellExecuteEx(@execInfo) ; 
end;

En connaissant le CLSID :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TFNettoyeur.B2Click(Sender: TObject);
begin
ShellExecute (0,
     'open', //commande à exécuter
     'explorer.exe', // programme à exécuter
     '/root,::{645FF040-5081-101B-9F08-00AA002F954E}', // Switch pour explorer +  CLSID de la corbeille
     0, // pas de rep. par défaut
     SW_SHOWDEFAULT);
end;

@+,

Cincap