Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Win Api / Как увеличить процессорное время, выделяемого программе?

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

Следующий пример изменяет приоритет приложения. Изменение приоритета следует использовать с осторожностью - т.к. присвоение слишком высокого приоритета может привети к медленной работе остальных программ и системы в целом. См. Win32 help for SetThreadPriority() function.
Пример:

  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;

Источник: Дельфи. Вокруг да около.

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru