Скачать: CL | DM;

ПРиоритет программы   Найти похожие ветки 

← →
Gnoll   (2006-07-28 23:37) [0]

Как поставить максимальный приоритет для поей программы?

---

← →
Sergey Masloff   (2006-07-28 23:44) [1]

Зачем? А вообще см.
SetThreadPriority() - для потока
SetPriorityClass() - для процесса

---

← →
Handle   (2006-07-29 10:08) [2]

procedure TForm1.FormCreate(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_ABOVE_NORMAL);
end;

---

← →
Sergey Masloff   (2006-07-29 10:25) [3]

Handle   (29.07.06 10:08) [2]
>TForm1.FormCreate
REALTIME_PRIORITY_CLASS, THREAD_PRIORITY_ABOVE_NORMAL
хм... вот для нити в которой пользовательский интерфейс выполняется не нужно так делать.

---

← →
Handle   (2006-07-29 11:34) [4]

> Sergey Masloff   (29.07.06 10:25) [3]
> хм... вот для нити в которой пользовательский интерфейс
> выполняется не нужно так делать.


procedure TForm1.ButtonClick(Sender: TObject);
begin
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_ABOVE_NORMAL);
end;

А так?

---

← →
Sergey Masloff   (2006-07-29 12:45) [5]

Да дело не в том. Просто система резко тормозить станет на мышь и на кнопки не реагировать и другие приятности. Такой приоритет нужно ставить дополнительным тредам и на короткие промежутки времени.

---

← →
Handle   (2006-07-29 12:56) [6]

> Sergey Masloff   (29.07.06 12:45) [5]


Понятно.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c