Page 1 sur 1
Quel est le problème avec ce code (lib NTService)
Publié : mer. 28/sept./2005 13:29
par gansta93
Bonjour,
Quelqu'un peut-il me dire ce qui ne va pas dans ce code (appart l'utilité ?)
Code : Tout sélectionner
If AppRunning("APB")
End
EndIf
If OpenWindow(0,0,0,20,20,#PB_Window_Invisible,"P")
AddHotkey(0,0,#VK_F1,1)
DefType.s NameApp, Prg, Path, Name
prg=Space(#MAX_PATH)
GetModuleFileName_(0,@Prg,#MAX_PATH)
GetShortPathName_(Prg,@Prg,#MAX_PATH)
Debug Prg
Name = GetFilePart(prg)
Debug Name
NameApp="Anti Pierre Bertrand !"
Installservice(Name,NameApp,Prg,"Empêche l'appuie intempestif de la touche F1.",1)
Repeat
Select WaitWindowEvent()
Case #PB_Event_Hotkey
Select EventwParam()
Case 1
Beep_(440,10)
EndSelect
Case #WM_CLOSE
End
EndSelect
Delay(0)
ForEver
EndIf
End
Je ne sais pas si c obligé ne mettre l'exécutable en nom court... mais je l'ai fais.
Publié : mer. 28/sept./2005 14:55
par lionel_om
Tu lance comment tout prog ? F5 ?
Ou tu crée un EXE que tu lance deux fois ?
(c'est ça le but non ? Je peux pas tester ton code là...)
Essaye en lançant depuis un EXE car le compilo PB généère un fichier avec un nom différent. (Voir pb de systray que j'ai posté ya qq semaines)
Publié : mer. 28/sept./2005 19:18
par gansta93
En fait le problème, c pour créer le service. Pour le lencer deux fois, ça marche comme il le faut. Pour AppRunning(), c la lib du mm nom (pour pas qu'on me reproche d'avoir pas signalé les libs).
Pour le lencer, je le compile, et après je l'exécute en faisant une fin de tâche du précédent pour pouvoir le recompiler&le lencer.
Publié : mer. 28/sept./2005 19:55
par Droopy
Pourquoi tu n'utilise pas PBOSL ( qui reprends la lib NTService avec pas mal d'améliorations )
Publié : jeu. 29/sept./2005 7:35
par gansta93
Droopy a écrit :Pourquoi tu n'utilise pas PBOSL ( qui reprends la lib NTService avec pas mal d'améliorations )
Oui, c celle-là que j'utilise mais je précisais les lib appart... il est bien ce pac de libs Open Sources.