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

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

Приоретет [D7, WinXP]

Neznaika ©   (2004-12-20 12:36:00) 

Не раз в разных прогах видел установку приоретета программы.
Сам не разу не реализовывал и смутно представляю как. Может кто поделится ссылочкой или советом?

---

Leonid Troyanovsky   (2004-12-20 14:58:00) [1]

> Хакер ©   (20.12.04 12:37) [1]
>  ProcessID := GetCurrentProcessID;
>  ProcessHandle := OpenProcess(PROCESS_SET_INFORMATION, False,
> ProcessID);


GetCurrentProcess, псевдохендл.

--
С уважением, LVT.

---

Хакер   (2004-12-20 13:05:00) [2]

Спасибо :))))

---

Neznaika   (2004-12-20 12:44:00) [3]

От души, Хакер!

---

Хакер   (2004-12-20 12:37:00) [4]

// Установка LOW приоритета у всего приложения

Procedure SetProgramPriority;
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;

---

Наверх