System Delphi

  1. Home
  2. Delphi
  3. System
  4. Change the priority of applications main thread
procedure TForm1.Button1Click(Sender: TObject);
var
MainThread: THandle;
begin
MainThread := GetCurrentThread;
SetThreadPriority(MainThread, THREAD_PRIORITY_HIGHEST);
end;