Ustalenie priorytetu aplikacji

Aby po kliknięciu przycisku Button1 ustalić dla aplikacji najwyższy priorytet:

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject* Sender)
{
   SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);
   SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);
}

Natomiast aby po kliknięciu przycisku przywrócić dla aplikacji normalny priorytet:

Unit1.cpp

void __fastcall TForm1::Button2Click(TObject* Sender)
{
   SetPriorityClass(GetCurrentProcess, NORMAL_PRIORITY_CLASS);
   SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_NORMAL);
}