Как увеличить процессорное время, выделяемое программе в 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; 
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (10 оценок, среднее: 5,00 из 5)
Загрузка...
Добавить комментарий