Effacer les fichiers inutiles, facilement

Commenter

Contenu du snippet

c'est un code sans aucune prétention,
il as pour but d'être utile c'est tout.

ce code efface les fichiers avec les extentions designées dans le source,
le chemin du répertoire est prix dans le presse papier.

pour ma part je m'en sert tt les jours.

explication:
- vous mettez le prog compilé dans la barre de lancement rapide.
- copiez le chemin du dossier ou ce trouve les fichiers indésirablent
- clicquez sur l'icone du prog

les fichiers disparaissent

Source / Exemple : 


program Efface;

uses ClipBrd, windows, Sysutils;

Const
   MaxExtensions = 15;
   Extensions :array[0..14]of string =(
                     '*.~ds','*.dsp','*.~ddp','*.bak','*.~inc',
                     '*.~dfm','*.~pas','*.dcu','*.ddp','*.~dpr',
                     '*.cfg','*.~ddp','*.~dp','*.~df','*.~pa');

{$r *.res}

 var P :PChar;
     trouve :integer;
     Chemin :string;
     src :TSearchRec;
     i :integer;
begin
 GetMem(P,255);
 Clipboard.GetTextBuf(P,255);
 Chemin := P + '\';
 FreeMem(P);

    for i := 0 to MaxExtensions - 1 do
     begin
      trouve := FindFirst(Chemin + Extensions[i], faAnyFile, src);
        while trouve = 0 do
          begin
           deletefile(pchar(chemin + src.name));
           trouve := FindNext(src);
          end;
          findclose(src);
     end;

  clipboard.Clear;
  beep;
end.

Conclusion :


copiez le code dans un fichier, et nommez le efface.dpr, puis compilez.

http://delphicool.developpez.com

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (DelphiCool)