Статистика | Зарегистрировано на сайте: Всего: 51643
Онлайн всего: 8 Гостей: 8 Пользователей: 0
|
|
Каталог статей
Как поменять приоритет моего приложения?
Своим опытом делится Олег Кулабухов:
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;
|
Категория: API | Добавил: Lerka (22 Ноя 2012)
|
Просмотров: 572
| Рейтинг: 1.0/
7
Оштрафовать
| Жаловаться на материал |
|
|