Discussion :

[yosthegost]

Bonjour,

Je suis en train de faire un application en mode service que je lance de cette maniere dans une procedure.

Code :

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

 WinExec(PChar(application.ExeName + ' /install /silent >'),SW_HIDE);

Cette procedure est appelé lorsque je click sur un bouton tout simplement. Dans ce cas tout fonctionne correctement.

Mais je souhaite installé mon service lors du formCreate, et là le probleme est qui me lance mon exe.

Je ne comprend pas pourkoi.

Merci de bien vouloir me guider.

[wizdom]

Heuu...ton WinExec....il est dans la procédure FormCreate ?

Ben dans ce cas là c'est normal qu'il s'execute au démarrage puisque la procédure FormCreate est justement appellée au démarrage de l'appli !

[yosthegost]

Non le WinExec est dans la procedure ke j'apel.

mais le probleme est que lorsque je lence mon application mon exe est exécute alors que sa devrait etre l'instalation de mon service.

[wizdom]

C'est pas très clair...tu peux nous montrer un peu le code ? Notamment ta procédure FormCreate et ta procedure ButtonClick ?

[yosthegost]

Voila la procedure FormCreate, mon probleme est la car au lieu de m'installer mon service, il me lance mon application .exe

Code :

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

1
2
3
4
5
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Installer_service;
end;

Pour l'installaton de mon service

Code :

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

1
2
3
4
5
6
7
 
procedure TForm1.Installer_Service;
begin
....
  WinExec(PChar(application.ExeName + ' /install /silent >'),SW_HIDE);
....
end;

Et quand je le fait avec le click cela fonctionne tré bien.

Code :

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

1
2
3
4
5
 
procedure TForm1.Button3Click(Sender: TObject);
begin
Installer_Service;
end;

[wizdom]

Ben je ne vois aucun problème :

1. La procédure FormCreate s'execute quand ton executable est lancé....donc, d'après ce que j'ai cru comprendre, quand ton service est lancé (puisque tu as transformé cette appli en service).

2.Dans la procédure FormCreate tu lances la procedure Installer_Service.

Conclusion : la procédure Installer_Service s'execute au démarrage de ton service !


PS: Si je comprends bien, ton application possède un mode d'installation automatique en tant que service. Il faut lancer une premiere fois l'appli manuellement et cliquer sur le bouton Installer (qui execute ensuite la procedure Installer_Service). Du coup, je ne comprends pas pourquoi tu appelles la procedure Installer_Service dans ton FormCreate ??

[slimjoe]

Bonjour!

Je suis peut-être un peu imbécile et assurément naïf de nature mais est-ce que l'application que démarre WinExec ne va pas aussi déclencher le OnCreate de cette dernière (qui va elle même démarrer une autre instance de l'application qui va déclencer OnCreate etc.) de façon infinie ?