EnableExplicit Define PID Procedure GetProcessPrio(PID) Protected hProcess Protected prio hProcess = OpenProcess_(#PROCESS_QUERY_INFORMATION | #PROCESS_VM_READ, 0, PID) If hProcess prio=GetPriorityClass_(hProcess) CloseHandle_(hProcess) ProcedureReturn prio EndIf EndProcedure If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered) GetWindowThreadProcessId_(WindowID(0),@PID) Select GetProcessPrio(PID) Case #IDLE_PRIORITY_CLASS MessageRequester("","Priorität: Niedrig",0) Case #BELOW_NORMAL_PRIORITY_CLASS MessageRequester("","Priorität: Niedriger als normal",0) Case #NORMAL_PRIORITY_CLASS MessageRequester("","Priorität: Normal",0) Case #ABOVE_NORMAL_PRIORITY_CLASS MessageRequester("","Priorität: Höher als normal",0) Case #HIGH_PRIORITY_CLASS MessageRequester("","Priorität: Hoch",0) Case #REALTIME_PRIORITY_CLASS MessageRequester("","Priorität: Echtzeit",0) EndSelect Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow EndIf