Ticket #2765: _WinAPI_GetPriorityClass.au3

File _WinAPI_GetPriorityClass.au3, 1.4 KB (added by mLipok, 11 years ago)
Line 
1#include <MsgBoxConstants.au3>
2#include <WinAPIProc.au3>
3#include <APIProcConstants.au3>
4
5
6Example()
7
8Func Example()
9
10        ; run notepad
11        Run("notepad.exe")
12        Local $iPID = ProcessWait("notepad.exe")
13
14        ; get Priority Description
15        Local $sPriorityDesc = Example_WinAPI_GetPriorityClass($iPID)
16
17        ; show the message
18        If Not @error Then
19                MsgBox($MB_SYSTEMMODAL, Hex(@extended), $sPriorityDesc)
20        Else
21                MsgBox(0, "Failure", "_WinAPI_GetPriorityClass")
22        EndIf
23
24        ; CleanUp
25        ProcessClose($iPID)
26
27EndFunc   ;==>Example
28
29Func Example_WinAPI_GetPriorityClass($iPID)
30
31        ; Check Priorrity
32        Local $Class = _WinAPI_GetPriorityClass($iPID)
33        If Not $Class Then
34                Return SetError(1)
35        EndIf
36
37        ; setting return value
38        Switch $Class
39                Case $ABOVE_NORMAL_PRIORITY_CLASS
40                        Return SetError(0, $ABOVE_NORMAL_PRIORITY_CLASS, "ABOVE_NORMAL_PRIORITY_CLASS")
41                Case $BELOW_NORMAL_PRIORITY_CLASS
42                        Return SetError(0, $BELOW_NORMAL_PRIORITY_CLASS, "BELOW_NORMAL_PRIORITY_CLASS")
43                Case $HIGH_PRIORITY_CLASS
44                        Return SetError(0, $HIGH_PRIORITY_CLASS, "HIGH_PRIORITY_CLASS")
45                Case $IDLE_PRIORITY_CLASS
46                        Return SetError(0, $IDLE_PRIORITY_CLASS, "IDLE_PRIORITY_CLASS")
47                Case $NORMAL_PRIORITY_CLASS
48                        Return SetError(0, $NORMAL_PRIORITY_CLASS, "NORMAL_PRIORITY_CLASS")
49                Case $REALTIME_PRIORITY_CLASS
50                        Return SetError(0, $REALTIME_PRIORITY_CLASS, "REALTIME_PRIORITY_CLASS")
51        EndSwitch
52EndFunc   ;==>Example_WinAPI_GetPriorityClass