Discussion :

[isachat666]

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 :

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

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

[sjrd]

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

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
program Projet1;
 
uses
  Forms,
  Unit1;
 
begin
  if ParamStr(1) = '/uninstall' then
  begin
    ArreterLesServices;
    exit;
  end;
  Application.Initialize;
  Application.CreateForm(Form1, TForm1);
  Application.Run;
end.

[Tardiff Jean-François]

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é.

[isachat666]

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

[Pedro]

Salut

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

[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).

[isachat666]

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