Discussion :

[marcb03]

Bonjour,

J'ai trouvé dans les sources ce code qui est destiné à permettre de transformer une application Access en service pour que la machine lui alloue davantage de ressources.

Cela m'a paru très intéressant, mais je n'arrive pas à le mettre en oeuvre car cela bugue à l'exécution sur la partie en rouge:

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
17
18
19
20
21
22
23
24
25
26
27
28
 
Const RSP_SIMPLE_SERVICE = 1
Const RSP_UNREGISTER_SERVICE = 0
Private Declare Function GetCurrentProcessId Lib _
"kernel32" () As Long
Private Declare Function RegisterServiceProcess Lib _
"kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long
 
Public Sub ServiceOn()
Dim pid As Long, reserv As Long
pid = GetCurrentProcessId()
reserv = RegisterServiceProcess _
(pid, RSP_SIMPLE_SERVICE)
End Sub
 
Public Sub ServiceOff()
Dim pid As Long, reserv As Long
pid = GetCurrentProcessId()
reserv = RegisterServiceProcess _
(pid, RSP_UNREGISTER_SERVICE)
End Sub
 
Private Sub Form_Load()
ServiceOn
End Sub
Private Sub Form_Unload(Cancel As Integer)
ServiceOff
End Sub

J'utilise Access 2000 sur Windows XP.
Ceci peut-il expliquer cela?
Si c'est le cas quelqu'un aurait-il solution?

Merci d'avance de vos réponse.

[Arkham46]

Bjr,

Ce code ne fonctionne que pour Windows 9x

La gestion des services n'est pas si simple dans XP (et 2000/2003...) et je ne pense pas qu'une appli access puisse "s'auto-transformer" en service
d'ailleurs je ne sais même pas si une appli access peut tourner en service