Problème avec la priorité des processus sous XP

Bonjour,
voilà dans un programme je modifie la priorité d'un processus. Sous win98 j'ai déjà testé pas de problème, mais sous windows XP la mes api me renvoie 0 (donc =erreur), et quand je vais dans le gestionnaire des taches je vois que la priorité du processus n'a pas changé.
Voici mon code (je ne met pas les api c'est pas la peine)

' Defini la priorité d'un processus Public Function PrioriteProcessus(ProcessID As Long, Niveau As Long) 'On Error Resume Next Dim Niv As Long Select Case Niveau Case Is = 1 Niv = IDLE_PRIORITY_CLASS Case Is = 2 Niv = BELOW_NORMAL_PRIORITY_CLASS Case Is = 3 Niv = NORMAL_PRIORITY_CLASS Case Is = 4 Niv = ABOVE_NORMAL_PRIORITY_CLASS Case Is = 5 Niv = HIGH_PRIORITY_CLASS Case Is = 6 Niv = REALTIME_PRIORITY_CLASS Case Else Exit Function End Select ' Applique la priorité Dim hProcess As Long hProcess = OpenProcess(&H1, 0, ProcessID) ' Pour Windows 9x SetPriorityClass hProcess, Niv ' Pour Windows NT SetPriorityClass ProcessID, Niv CloseHandle hProcess End Function

Ps: je ne suis pas en vb.net ;)
Merci pour ceux qui m'aideront
@ +
MadMatt

MSN

salut

selon MSDN même sous NT le premier param de SetPriorityClass c hProcess car un handle de processus est different d'un PID

sinon, il faut faire :

Dim hProcess As Long
hProcess = OpenProcess(&H200, 0, ProcessID) 'PROCESS_SET_INFORMATION
' Pour Windows 9x/NT
SetPriorityClass hProcess, Niv
CloseHandle hProcess

voilà

ShareVB

Ok donc c'est la même ligne pour tous les windows.
Et alors la où c'est pas bon c'est dans OpenProcess donc...
Merci ça marche nickel...
@ +
MadMatt

MSN