Quel est le problème avec ce code (lib NTService)

gansta93 · Message par **gansta93** » mer. 28/sept./2005 13:29

Bonjour,

Quelqu'un peut-il me dire ce qui ne va pas dans ce code (appart l'utilité ?)

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.

lionel_om · Message par **lionel_om** » mer. 28/sept./2005 14:55

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)

gansta93 · Message par **gansta93** » mer. 28/sept./2005 19:18

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.

Droopy · Message par **Droopy** » mer. 28/sept./2005 19:55

Pourquoi tu n'utilise pas PBOSL ( qui reprends la lib NTService avec pas mal d'améliorations )

gansta93 · Message par **gansta93** » jeu. 29/sept./2005 7:35

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.