Discussion :

[T-B]

Bonjour, une peite question aux CADORS de dephi.

J'ai crée avec delphi 7 un programme de desinstallation pour une application que j'ai créée.

Mon problème est que j'aimerais bien qu'a la fin de la désinstallation le fichier exe se détruise automatiquement ainsi que le répertoire et je ne sais pas comment faire. (un peu comme les programme uninst.exe et cie)

Avez vous une petite idée ?

merci

[Bestiol]

Ouep

Tu crées un fichier .bat que tu lances à la fin de ta désinstallation...
Dans ce .bat tu demandes la suppression de ton exe de désinstallation, et tu tournes sur la commande jusqu'à ce qu'elle parvienne à être accomplie !

Ensuite, il me semble que le .bat peut "s'autosupprimer" ou un truc comme ça...

[lil_jam63]

Voilà qui devrait te convenir

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
function create_file(destructeur, process : string) : boolean ;
var
    fichier : TextFile ;
begin
  result := false ;
  AssignFile(fichier, destructeur) ;
  Rewrite(fichier) ;
  writeln(fichier, '@echo off') ;         //on ne montre pas l'execution
  writeln(fichier, ':Suppression') ;      //debut de la boucle
  //le fichier que l'on essaiera de supprimer
  writeln(fichier, 'del "' + ExtractShortPathName(process) + '"') ;
  //s'il est encore là, on boucle
  writeln(fichier, 'if exist "' + ExtractShortPathName(process) +
  '" goto Suppression') ;
  //sinon, on supprime destructeur
  writeln(fichier, 'del "' + ExtractShortPathName(destructeur) + '"') ;
  closeFile(fichier) ;
  result := true ;
end ;
 
procedure TForm1.Button1Click(Sender: TObject);
var
    destructeur, process : string ;
begin
  destructeur := ExtractFilePath(Application.exename)+ 'AutoUninstall.bat' ; // le fichier d'autodestruction
  process := Application.EXEName ; // le fichier à supprimer
  // on crée le fichier d'autodestruction
  if create_file(destructeur, process) then
    begin
      ShellExecute(handle, 'open', PChar(destructeur), nil, nil, SW_HIDE) ; // on lance le fichier d'autodestruction
      Application.Terminate ;
    end
  else showmessage ('Une erreure s''est produite lors de la désinstallation de '+ process) ;
end ;

[T-B]

merci je vais tester ça

ça marche nickel encore merci