EnableExplicit

Define PID

ProcedureDLL 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

GetWindowThreadProcessId_(FindWindow_("notepad",#Null),@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