Supprimer des dossiers temporaires sous winxp

Télécharger le projet
Commenter

Description

Bon, ce code est un de mes premiers, j'espere qu'il y en aura d'autre ... Il sert a supprimer 2 dossier de Windows XP, un dossier où windows met les fichiers temps et un autre où il y a tout ce que tu a fais en dernier (Demarrer=>Mes documents recents)je n'ai pas mis pour les cookies et les fichiers internet temporaires, car moi, j'utilise Crasy Browser et quand je le ferme, il supprime ces fichiers automatiquement ;-).

Source / Exemple : 


unit supprimerdossier;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ShellApi;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Image1: TImage;
    Label1: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  function EffaceDossier(Dossier: String): Boolean;

implementation

{$R *.dfm}

{Code pas de moi ...}

function EffaceDossier(Dossier: String): Boolean;
 var FileOpStruct: TShFileOpStruct;
  begin
    FileOpStruct.Wnd := 0;
    FileOpStruct.wFunc := FO_DELETE;
    FileOpStruct.pFrom := PChar(Dossier);
    FileOpStruct.pTo := Nil;
    FileOpStruct.fFlags := FOF_NOCONFIRMATION or FOF_SILENT;
    FileOpStruct.lpszProgressTitle := Nil;
    Result := ShFileOperation(FileOpStruct) = 0;
  end;

{A partir de là, le code étant enfantin, ca ne peut etre que de moi :-)}

procedure TForm1.Button2Click(Sender: TObject);
begin
        Form1.close;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
x : string;
Dir : string;
begin
           x := Edit1.Text;
           Dir := 'C:\Documents and Settings\'+x+'\Local Settings\Temp';
           if DirectoryExists(Dir) Then EffaceDossier(Dir);   {Suppression du dossier temp}
           CreateDir('C:\Documents and Settings\'+x+'\Local Settings\Temp');   {Recréation du dossier}
           Dir := 'C:\Documents and Settings\'+x+'\Recent';
           if DirectoryExists(Dir) Then EffaceDossier(Dir);   {Suppression du dossier où il y a les derniers trucs executé par l'utilisateur}
           CreateDir('C:\Documents and Settings\'+x+'\Recent');   {Recréation du dossier}
           if x<>'' then Messagebox(form1.handle,'La suppression des fichiers est terminée !!!','Suppression terminée',64);   {Si il y a rien dans Edit1.text, dans ce cas là, ca sert a rien d'afficher le message comme quoi la suppression est terminée !!!}

end;

end.

Conclusion :


J'ai utiliser une source de ce site [c'est le code qui est pas de moi !!!]
Télécharger le projet

Codes Sources

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 (kanigou)