Discussion :

[Le_Suisse]

Bonjour,

Je développe actuellement une application en Delphi. Il s'agit uniquement d'un exe qui n'a pas besoin d'être installé. On le télécharge, l'exécute et c'est bon...

Ce que j'aimerais faire c'est que l'exécutable soit supprimé automatiquement une fois que l'on quitte le programme. Avez-vous une idée pour savoir comment faire ?

Merci pour toutes vos réponses.

[Andnotor]

Un fichier en exécution ne peut pas se supprimer lui-même.

Par contre, il doit pouvoir l'être au prochain reboot par un appel du style:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MoveFileEx(PChar(Application.ExeName), nil, MoveFile_Delay_Until_Reboot);

[Le_Suisse]

Oui en effet il ne peut pas se supprimer lui-même. Mais à l'exécution du programme n'est-il pas possible de lancer un processus qui va se charger de détruire l'exe ?

[Pascal Jankowski]

Dans ce cas il faut fournir à l'utilsateur un second exe qui se charge de supprimer ton exe principal.

Lors de la fermeture de ton exe principal tu exécutes le programme de suppression avec la fonction shellExecute.

[Le_Suisse]

Oui mais je pense qu'il y a sûrement un moyen de tout mettre dans le même exe ? Lorsque l'on exécute le principal, il lance en même temps un processus qui se charge de le détruire...

[andreditdd]

Oui, effectivement.
Trouvé il y a un moment sur la toile et utilisé régulièrement par moi meme:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
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;

André

[banban54]

bonjour

voir Un Programme Delete Lui Meme

à+

[Le_Suisse]

Merci beaucoup André pour ton code ainsi que les autres pour leur réponses. André, je peux copier-coller cette procédure dans mon code sans rien modifier ? Et je l'appelle simplement juste avant de fermer mon application ? Merci pour les précisions.

[andreditdd]

Exact, tu place cette procédure dans ton code et tu peux l'appeler directement sans rien changer.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if TuDoisDisparaitre then SelfEfface;

André

[andreditdd]

Dans ton cas, le code à mettre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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;
 
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   SelfEfface;
end;

André

[Le_Suisse]

Super ca marche très bien. Merci pour tout.