Форум: "Основная";
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];
Вниззагрузка CPU при прорисовке Найти похожие ветки
← →
ppcat (2002-03-24 20:02) [1]Уменьшить приоритет
==================================================================================
Пример:
procedure TForm1.Button1Click(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_TIME_CRITICAL);
end;
Но все равно увидишь тоже самое. Чем хорошо - если время понадобится другому процессу, он его отдаст. А больше никак.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c