Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Приоритеты


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, сам в этом не шарю " !!!

Сделать это в прЫнципе мона. А вы уверены что приведенный пример вам что-то даст?

И вообще я считаю что не надо лазить в те области, которые имеет для вас только смутное представление. Для начала надо книжки всякие почитать. Извините если не прав, но ваша фраза меня просто удивила.


Наверх

Титульная страница Поиск, карта сайта Написать письмо