Mega Code Archive

 

Categories / Delphi / System

 

Change the priority of applications main thread

procedure TForm1.Button1Click(Sender: TObject); var MainThread: THandle; begin MainThread := GetCurrentThread; SetThreadPriority(MainThread, THREAD_PRIORITY_HIGHEST); end;