Cette unitée permet au programme de s'effacer lui meme.

au départ c'etait une réponse de FW-S, sur mon forum.
Puis j'en ai fait une unité perso.



unit SelfEfface_unit;

{   DelphiCool
    11.03.2002

   piqué à FW-S

}

interface
  uses SysUtils, Windows;


      Procedure SelfEfface;



implementation





Procedure SelfEfface;
 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; 

end.