Форум: "Начинающим";
Текущий архив: 2006.08.20;
Скачать: [xml.tar.bz2];
Вниз
ПРиоритет программы Найти похожие ветки
← →
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 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.08.20;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.043 c
