Как узнать приоритетность процесса?

Кто бы мог подумать, что это есть в DRKB (прикреплённый топик в теме)

Код

Как получить / установить приоритет процесса? Previous  Top  Next   Const      ppIdle                  : Integer = -1;      ppNormal                : Integer =  0;      ppHigh                  : Integer =  1;      ppRealTime              : Integer =  2;   Function SetProcessPriority( Priority : Integer ) : Integer;   Var      H : THandle;   Begin      Result := ppNormal;      H := GetCurrentProcess();      If ( Priority = ppIdle ) Then          SetPriorityClass( H, IDLE_PRIORITY_CLASS )      Else If ( Priority = ppNormal ) Then          SetPriorityClass( H, NORMAL_PRIORITY_CLASS )      Else If ( Priority = ppHigh ) Then          SetPriorityClass( H, HIGH_PRIORITY_CLASS )      Else If ( Priority = ppRealTime ) Then          SetPriorityClass( H, REALTIME_PRIORITY_CLASS );      Case GetPriorityClass( H ) Of          IDLE_PRIORITY_CLASS     : Result := ppIdle;          NORMAL_PRIORITY_CLASS   : Result := ppNormal;          HIGH_PRIORITY_CLASS     : Result := ppHigh;          REALTIME_PRIORITY_CLASS : Result := ppRealTime;      End;   End;   Function GetProcessPriority : Integer;   Var      H : THandle;   Begin      Result := ppNormal;      H := GetCurrentProcess();      Case GetPriorityClass( H ) Of          IDLE_PRIORITY_CLASS     : Result := ppIdle;          NORMAL_PRIORITY_CLASS   : Result := ppNormal;          HIGH_PRIORITY_CLASS     : Result := ppHigh;          REALTIME_PRIORITY_CLASS : Result := ppRealTime;      End;   End;   Как использовать:    Function SetProcessPriority( Priority : Integer ) : Integer;   для установки приоритета Вашего приложения, либо:    Function GetProcessPriority : Integer;   для получения приоритета. Взято с Исходников.ru www.sources.ru

Это сообщение отредактировал(а) dm9 - 5.10.2004, 18:02

С GetProcessPriority() не сталкивались, а вот получение приоритета:
SetPriorityClass(Processhandle, priorityclass) - получаем приоритет процессу
Processhandle - дескриптор процесса
priorityclass - вид приоритета (REALTIME_PRIORITY_CLASS, HIGH_PRIORITY_CLASS, NORMAL_PRIORITY_CLASS, больше не помню...)

SetThreadPriority(Processhandle, priorityclass) - приоритет для потока
Processhandle - то же самое
priorityclass - THREAD_PRIORITY_LOWEST, THREAD_PRIORITY_BELOW_NORMAL, THREAD_PRIORITY_NORMAL, THREAD_PRIORITY_HIGHEST, THREAD_PRIORITY_ABOVE_NORMAL, THREAD_PRIORITY_ERROR_RETURN, THREAD_PRIORITY_TIME_CRITICAL, THREAD_PRIORITY_IDLE.