---

hejsa!

Er der nogen der ved hvordan man sætter sit program til at have en høj
prioritet, i forhold til de andre programmer?

I win2000 kan man gøre det fra sin "Windows jobliste", men hvordan gør man
det fra sit VB program?


Svar/eksempler sendes gerne til email, da jeg ik er så meget på nettet!

Mvh Ebbe

---

Ebbe H. Hjorth skrev:
> Er der nogen der ved hvordan man sætter sit program til at have en høj
> prioritet, i forhold til de andre programmer?
>
> I win2000 kan man gøre det fra sin "Windows jobliste", men hvordan gør man
> det fra sit VB program?

Sådan "lige fra hovedet" er det noget i retning af:

Const IDLE_PRIORITY_CLASS As Long = &H40
Const BELOW_NORMAL_PRIORITY_CLASS As Long = &H4000
Const NORMAL_PRIORITY_CLASS As Long = &H20
Const ABOVE_NORMAL_PRIORITY_CLASS As Long = &H8000
Const HIGH_PRIORITY_CLASS As Long = &H80
Const REALTIME_PRIORITY_CLASS As Long = &H100

Const PROCESS_SET_INFORMATION As Long = &H200

Declare Function GetCurrentProcessId Lib "kernel32" () As Long

Declare Function OpenProcess Lib "kernel32" _
(ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long

Declare Function SetPriorityClass Lib "kernel32" _
(ByVal hProcess As Long, ByVal dwPriorityClass As Long) As Long

Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Dim lHandle As Long
Dim lResult As Long

lResult = OpenProcess(lPROCESS_SET_INFORMATION, 0&, GetCurrentProcessId)
lResult = SetPriorityClass(lHandle, HIGH_PRIORITY_CLASS)
lResult = CloseHandle(lHandle)

-------
Tomas

---

Tomas Christiansen skrev meget som var rigtigt ... og lidt som var forkert.

Jeg fandt en VB-compler et der var lige et par fejl i den kode, som jeg sendte.
Følgende kode er lige til at lægge ind på en form og køre:

Option Explicit

Const IDLE_PRIORITY_CLASS As Long = &H40
Const BELOW_NORMAL_PRIORITY_CLASS As Long = &H4000
Const NORMAL_PRIORITY_CLASS As Long = &H20
Const ABOVE_NORMAL_PRIORITY_CLASS As Long = &H8000
Const HIGH_PRIORITY_CLASS As Long = &H80
Const REALTIME_PRIORITY_CLASS As Long = &H100

Const PROCESS_SET_INFORMATION As Long = &H200

Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long

Private Declare Function OpenProcess Lib "kernel32" _
(ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long

Private Declare Function SetPriorityClass Lib "kernel32" _
(ByVal hProcess As Long, ByVal dwPriorityClass As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long


Private Sub Form_Load()
Dim lHandle As Long
Dim lResult As Long

lHandle = OpenProcess(PROCESS_SET_INFORMATION, 0&, GetCurrentProcessId)
lResult = SetPriorityClass(lHandle, HIGH_PRIORITY_CLASS)
lResult = CloseHandle(lHandle)
End Sub

-------
Tomas