Comment fermer son application ?

**declencher** · 29/01/2007, 20h32

Bonjour,

Voici le problème. Je veux que mon programme ne soit instancier qu'une fois et ça marche (voir le code de la faq). Ensuite j'ai voulu ajouter un système d'aide. J'ai donc ajouté la panoplie D6OnHelpFix.pas, hh.pas et hh_funcs.pas et c'est là que ça par en sucette.

Quand je tente d'instancier mon appli une 2° fois, elle plante...Après avoir passer le "Exit", le debuggueur passe sur le dernier end du programme, et j'ai une exception. Quand je supprime D6OnHelpFix.pas, ça fonctionne parfaitement.

J'ai pensé que ça venait de la fonction Exit qui n'était pas approprié, donc j'ai fait quelques tests et recherche mais sans succès.

Peut être en aurez vous plus que moi ?

**TicTacToe** · 29/01/2007, 20h36

C'est peut être dans la section (si elle existe)

Code :

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

finalization

de l'unité qu'il y a un truc qui ne vas pas ?

**declencher** · 29/01/2007, 20h54

J'ai tenté un débuggage pas à pas, ça plante après avoir passé toutes les méthodes de libération des objets, sur un "end;", comme pour la plupart des problèmes de ce type là.

**declencher** · 29/01/2007, 21h01

Normalement on fait le controle du mutex avant le Application.initialize . Si je place un Exit juste avant le Application.Run, ça ne plante pas. Si je le place juste après le Application.initialize, ça plante.

Niveau mémoire, c'est propre si je fait un exit juste avant le Application.Run ?

**Linkin** · 30/01/2007, 08h39

Pour ma part je fais:

Code :

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

1
2
3
4
5
6
7
 
  if not FirstInstanceExists(True) then
  begin
    Application.Initialize;
    Application.CreateForm(TfMain, fMain);
    Application.Run;
  end;