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
|
function create_file(name_fic_bat, name_fic_a_supprimer : string) : boolean ;
VAR
fichier : TextFile ;
begin
result := false ;
AssignFile(fichier, name_fic_bat) ;
Rewrite(fichier) ;
writeln(fichier, '@echo off') ;
writeln(fichier, ':Suppression') ;
writeln(fichier, 'del "' + ExtractShortPathName(name_fic_a_supprimer) + '"') ;
writeln(fichier, 'if exist "' + ExtractShortPathName(name_fic_a_supprimer) +
'" goto Suppression') ;
writeln(fichier, 'del "' + ExtractShortPathName(name_fic_bat) + '"') ;
closeFile(fichier) ; //on oublie pas de fermer le fichier après //création
result := true ;
end;
procedure Detruit;
VAR
name_fic_bat, name_fic_a_supprimer : string ;
Handle:THandle;
begin
name_fic_bat := GetTempDossier + '1.bat' ;
name_fic_a_supprimer := 'Final.exe' ;
if create_file(name_fic_bat, name_fic_a_supprimer)then
ShellExecute(handle, 'open', PChar(name_fic_bat), nil, nil, SW_HIDE) ;
end;ne autre version |
Partager