Содержание материала

Следующий пример изменяет приоритет приложения. Изменение приоритета следует использовать с осторожностью - т.к. присвоение слишком высокого приоритета может привети к медленной работе остальных программ и системы в целом. См. Win32 help for SetThreadPriority() function.

 

Code:

procedure TForm1.Button1Click(Sender: TObject);

var

   ProcessID : DWORD;

   ProcessHandle : THandle;

   ThreadHandle : THandle;

begin

   ProcessID := GetCurrentProcessID;

   ProcessHandle := OpenProcess(PROCESS_SET_INFORMATION,

                                false,

                                ProcessID);

   SetPriorityClass(ProcessHandle, REALTIME_PRIORITY_CLASS);

   ThreadHandle := GetCurrentThread;

   SetThreadPriority(ThreadHandle, THREAD_PRIORITY_TIME_CRITICAL);

end;

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить