Mega Code Archive

 

Categories / Delphi / Examples

 

Change the priority of applications main thread

Title: change the priority of applications main thread? procedure TForm1.Button1Click(Sender: TObject); var MainThread: THandle; begin MainThread := GetCurrentThread; SetThreadPriority(MainThread, THREAD_PRIORITY_HIGHEST); end;