Effacer un programme après sa fermeture

Thanks to Vitaly Nevzorov nevzorov@yahoo.com, http://www.interlync.com/vitaly for this code.

procedure TForm1.Button1Click(Sender: TObject);
var
f:Textfile;

begin
assignfile(f,changefileext(paramstr(0),'.bat'));
rewrite(f);
writeln(f,':1');
writeln(f,format('Erase "%s"',[paramstr(0)]));
writeln(f,format('If exist "%s" Goto 1',[paramstr(0)]));
writeln(f,format('Erase "%s"',[changefileext(paramstr(0),'.bat')]));
closefile(f);
winexec(PChar(changefileext(paramstr(0),'.bat')),sw_hide);
halt;
end;
Commentaire des internautes
avatar
Diégo DELPY le 07/12/2004
IL FAUT IMPERATIVEMENT DONNER DES CHEMINS COMPLETS à pFrom et à pTo, sinon ça marche
bizzarrement.
Exemple :

// Chemin relatif : PAS BON !
pFrom := \'Bureau\\Téléchargés\\Trucs et Astuces\\*.*\' ;
// Chemin absolu : BON !
pFrom := \'c:\\Windows\\Bureau\\Téléchargés\\Trucs et Astuces\\*.*\' ;

// ce serait pareil avec To ...
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour19/11/2001
VisualisationVu 1224 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Fichier
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur