Application.Terminate dans le OnCreate d'une form ?

Bonjour,

Je dois faire une action (arrêter certains services) si le paramètre "/uninstall" est passé à mon application, mais cela doit être transparent

Si aucun paramètre, cela affiche la fenêtre de mon appli.

d'où ma question, est-ce que faire Application.Terminate dans le onCreate de ma fiche est faisable ou cela peut avoir des conséquences inattendues ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11

procedure TMaFiche.FormCreate(Sender: TObject); begin {si on est en désinstall, juste arrêter les services} if ParamStr(1) = '/uninstall' then begin ArreterLesServices; Application.Terminate; exit; end; //... reste du code end;

---

Merci pour vos réponses

Isa

Je crois que c'est faisable... Mais tu ferais beaucoup mieux de mettre ce code dans ton unité projet .dpr :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

program Projet1;   uses Forms, Unit1;   begin if ParamStr(1) = '/uninstall' then begin ArreterLesServices; exit; end; Application.Initialize; Application.CreateForm(Form1, TForm1); Application.Run; end.

---

Bonjour,

Je ne suis pas sure que cela soit possible.

Si l'on est dans le onCreate d'une forme, il est impossible de faire un Free de la forme. Il faut attendre que la from soit créer pour la détruire. En générale il suffit de lancer un timer qui détruira la form deouis l'événement Ontimer.

Si vous créer une forme, et que vous faite un application.Terminate, cette imposibilité risque d'interdire le Terminate. C'est a tester mais c'est quand même une forte propabilité.

Citation:

---

Envoyé par sjrd

Je crois que c'est faisable... Mais tu ferais beaucoup mieux de mettre ce code dans ton unité projet .dpr :

---

Effectivement je n'y avais pas pensé. Mais comment dans le .dpr appeler ma fonction ArreterLesServices qui, elle, est écrite dans ma Form principale ?

merci

Isa

Salut :D

Citation:

---

Envoyé par isachat666

Effectivement je n'y avais pas pensé. Mais comment dans le .dpr appeler ma fonction ArreterLesServices qui, elle, est écrite dans ma Form principale ?

---

Tu n'a qu'à déclarer et implémenter ta fonction ArreterLesServices dans ton .dpr ;)

Bonjour,

Peut être pourriez vous isoler la procedure dans une unité séparé.

Ainsi vous pourriez l'appeler depuis d'ou vous le désirez (une Form, ou le Drp).

Citation:

---

Envoyé par Tardiff Jean-François

Bonjour,

Peut être pourriez vous isoler la procedure dans une unité séparé.

Ainsi vous pourriez l'appeler depuis d'ou vous le désirez (une Form, ou le Drp).

---

merci beaucoup, c'est ce que j'ai fait.

j'ai extrait mes fonctions de la Form pour les mettre dans une unité séparée.

Isa