| Статистика |
|
|
Каталог статей
Как поменять приоритет моего приложения?
Своим опытом делится Олег Кулабухов:
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)
|
Просмотров: 638
7
Оштрафовать
| Жаловаться на материал |
|
|