|
Как поменять приоритет моего приложения?
|
|
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 | Добавил: DelphiAiX (09.05.2012)
|
Просмотров: 617
| Рейтинг: 0.0/0 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ]
|
|