Discussion :

[Bouguennec]

Bonjours j'aimerais savoir s'il est possible de suprimer un fichier éxécutable en quittant l'application. En résumé j'ai un bouton désinstaller, et je voudrais que l'appuis sur ce bouton ferme l'application mais également qu'il supprime le .exe.

Merci

[tintin22]

Je sais pas si c'est la bonne solution ! Créer un .bat (ou carrément un .exe) dans un dossier temporaire (celui de windows) qui est lancé quand tu appuies sur "désinstaller" qui, une fois l'appli fermée, supprime les fichiers de celle-ci.

[Bouguennec]

Ca devrait fonctionner mais comment pourrais-je générer cet executable avec l'application principale pour ne pas avoir deux application pour le fonctionnement global

[ero-sennin]

Salut,

Lorsque tu quittes ton application, en fait, ca doit supprimer l'application le .exe de l'application en cours ou une autre application via ce programme?
Je m'explique :
Si ton programme s'appelle toto.exe et dans ce programme, tu as ce bouton désinstaller. Lorsque tu cliques dessus, tu souhaites fermer toto.exe et le supprimer par la suite?

Merci

[Bouguennec]

Si ton programme s'appelle toto.exe et dans ce programme, tu as ce bouton désinstaller. Lorsque tu cliques dessus, tu souhaites fermer toto.exe et le supprimer par la suite?

C'est ça

[tintin22]

Si c'est un .bat alors c'est un fichier texte qui contiendrai

del x:\LeChemin\de\TonAppli\Appli.exe
del x:\LeChemin\de\tonAppli\MaDLL.dll

etc...

sinon pour générer un executable, il faudrait voir l'utilisation des ressources.

[ero-sennin]

Bonsoir (ou bonjour )

Concernant ta suppression de programme, lorsque je clic sur désinstaller, je crée un fichier .bat qui supprimera,lors du prochain redémarrage de windows le .exe de l'application à supprimer ainsi que le .bat ayant servi à la suppression.
Il est assez tard donc je te donne juste les grandes lignes.
Tout est fonctionnel mais je ne pense pas que ca soit la meilleure solution pour diverses raisons :
- Lorsque l'on crée un fichier .bat, une console ms-dos s'ouvre et aucun accent n'est pris en compte (à moins que j'ai mal cherché )
- Je crée une clé dans le registre, mais je ne l'efface pas (pas trop eu le temps de le coder ... )

Néanmoins, voici le code :

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Registry;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
  PathAppli : String;
  NameAppli : String;
  FileSupp:TextFile;
  Reg:TRegistry;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.BtnDesinstallerClick(Sender: TObject);
begin
 
//Création du .bat
assignfile(FileSupp,PathAppli+'supp.bat');
rewrite(FileSupp);
writeln(FileSupp,'del "'+PathAppli+NameAppli+'"');
writeln(FileSupp,'del "'+PathAppli+'supp.bat"');
closefile(FileSupp);
 
//Création de la clé registre
//Suppression du programme lors du prochain redémarrage de Windows
//ATTENTION : AUNCUN ACCENT AUTORISE (ni pour le programme, ni pour le chemin)
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
if Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',True)then
begin
Reg.WriteString('supp','"'+PathAppli+'supp.bat"');
Reg.CloseKey;
Reg.Free;
end;
 
Application.Terminate;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
//Récupération du Chemin et du nom de l'application
PathAppli:=ExtractFilePath(ParamStr(0));
NameAppli:= ExtractFileName(ParamStr(0));
end;
 
end.

Surtout n'oublie pas de rajouter dans les uses l'unité Registry

J'espère que ca répondera en parti à ton problème
@ ++

[tintin22]

Je propose plutot de créer un TStringList, de lui ajouter les lignes de suppression

Code :

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

1
2
3
4
5
6
7
8
 
S := TStringList.Create ;
 
S.Add('del ....') ;
S.Add(...
 
S.SaveToFile('x:\Chemin\supp.bat') ;
S.Free ;

Au lieu d'avoir recours à la BDR, faire un genre de Sleep(3000) le temps que l'appli se ferme et que la suppression ne demarre.

[Bouguennec]

Merci