...change the priority of applications main thread?

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

printed from
www.swissdelphicenter.ch
developers knowledge base