Обновлено: 01 декабря, 2018

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

Следующий пример изменяет приоритет приложения:

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;

Рейтинг автора

Автор статьи

Юрий

Программист Delphi, MySQL. Образование: высшее. Специальность: программное обеспечение информационных технологий.

Написано статей

439