![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Приоритеты
Sulimxar © (2004-07-31 17:22:00)Подскажите пожалуйста:
У моего приложения высокий приоритет:
SetPriorityClass(GetCurrentProcess, HIGH_PRIORITY_CLASS);
SetPriorityClass(Application.Handle, HIGH_PRIORITY_CLASS);
SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_HIGHEST);
SetThreadPriority(Application.Handle, THREAD_PRIORITY_HIGHEST);
{код нашёл в каких-то faq, сам в этом не шарю :)}
А как при этом сделать низкий приоритет (IDLE) событиям происходящим
в этом же приложении по таймеру? Это возможно?
parovoZZ (2004-07-31 23:37:00) [1]Procedure ProgrammPriority;
Var
ProcessID : DWORD;
ProcessHandle : THandle;
ThreadHandle : THandle;
Begin
ProcessID := GetCurrentProcessID;
ProcessHandle := OpenProcess (PROCESS_SET_INFORMATION, False, ProcessID);
SetPriorityClass (ProcessHandle, IDLE_PRIORITY_CLASS);
ThreadHandle := GetCurrentThread;
SetThreadPriority (ThreadHandle, THREAD_PRIORITY_LOWEST);
CloseHandle (ProcessHandle);
End;
Работает 100%, сам проверял. Приоритет ниже некуда.
Sulimxar (2004-07-31 22:51:00) [2]>Эти две строки не должны работать.
Я это уже понял
Если для всего что не совсем понятно покпать книги и читать маннуалы, то не хватит ни денег ни времени. Всего не перечитаешь, к сожалению. А такие форумы и существуют как разумная альтернатива
GrayFace (2004-07-31 19:06:00) [3]Это сделать не очень просто. Поищи готовый компонент.
Sulimxar © (31.07.04 17:22)
> SetPriorityClass(Application.Handle, HIGH_PRIORITY_CLASS);
> SetThreadPriority(Application.Handle, THREAD_PRIORITY_HIGHEST);
Эти две строки не должны работать.
Кириешки © (31.07.04 17:56) [1]
Можно и без книжек. В Help все есть.
Кириешки (2004-07-31 17:56:00) [4]>"код нашёл в каких-то faq, сам в этом не шарю " !!!
Сделать это в прЫнципе мона. А вы уверены что приведенный пример вам что-то даст?
И вообще я считаю что не надо лазить в те области, которые имеет для вас только смутное представление. Для начала надо книжки всякие почитать. Извините если не прав, но ваша фраза меня просто удивила.