Увеличить процессорное время, выделяемое программе

Фирма Intel после выпуска процессоров Pentium 1, Pentium 2, Pentium 3, Pentium 4 выпустила новые процессоры Pentium жив и Pentium возвращается.

Следующий пример изменяет приоритет приложения. Изменение приоритета следует использовать с осторожностью - т.к. присвоение слишком высокого приоритета может привести к медленной работе остальных программ и системы в целом ;-)

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;

Недавно добавленные исходники
• Animation Loaders 1 055 • DeLiKaTeS Tetris (Тетрис) 5 989 • TDictionary Custom Sort 7 924 • Fast Watermark Sources 7 583 • 3D Designer 10 822 • Sik Screen Capture 8 163 • Patch Maker 8 350 • Айболит (remote control) 8 401 • ListBox Drag & Drop 7 260 • Доска для игры Реверси 101 522 • Графические эффекты 8 456 • Рисование по маске 7 821 • Перетаскивание изображений 6 415 • Canvas Drawing 6 800 • Рисование Луны 6 737 • Поворот изображения 5 835 • Рисование стержней 4 783 • Paint on Shape 3 479 • Генератор кроссвордов 4 500 • Головоломка Paletto 3 621 • Теорема Монжа об окружностях 4 409 • Пазл Numbrix 2 860 • Заборы и коммивояжеры 3 812 • Игра HIP 2 582 • Игра Go (Го) 2 595 • Симулятор лифта 2 975 • Программа укладки плитки 2 404 • Генератор лабиринта 3 154 • Проверка числового ввода 2 638 • HEX View 3 048