Bonjour,

voila mon souci:
j'ais f'ait une application en VB6 (application standard) cette application doit se mettre en tant que service.

dans l'application j'ais une boucle du genre:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
booFlag=false
 
do while booFlag=False
 
   sleep 60 * 1000
 
   booFlag = funVerifRépertoire
loop
donc pour traduire je fait une boucle infini qui s'execute toutes les 60 secondes (par l'api sleep) et donc à intervale régulier cela lance fonction funVerifRépertoire

cela marche tres bien, pas de soucis.

j'essaye maintenant de mettre en tant que service mon executable comportant la boucle ci dessus

je me suis fait un script dont voici les grande ligne:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
"C:\Program Files\Windows Resource Kits\Tools\instsrv.exe" SrvAny_MonService "C:\Program Files\Windows Resource Kits\Tools\srvany.exe"
 
C:\MesProg\MonService\MonService.reg
 
sc start SrvAny_MonService
dans le MonService.reg il y a:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SrvAny_MonService\Parameters]
"Application"="C:\\MesProg\\MonService\\MonService.exe"
"AppParameters"=""
"AppDirectory"=""
tout cela s'execute sans aucun probléme.

d'ou viens le problème alors?
et bien en fait, mon service n'est en fait pas démaré si je regarde la console des service???
je le démarre à la main mais une belle boite de dialogue me dit que le service a démarré et puis c'est arrété...

pourtant avec ma boucle infini et bien sur testé en mode débugage cela marche continuellement mais la le service semble ne pas comprendre...

auriez vous des pistes pour que je comprenne ce qu'il se passe?

merci de votre aide.