die Priorität des Haupt-Threads(eigener Anwendung) ändern?

[DataCool]

Hi Leute,

der Titel sagt schon alles !
Wie bekomme ich die Priorität meines Main-Threads auf tpLower ?

Ich habe folgendes versucht, was leider überall ausser bei XP funktioniert

Code:

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

Danke Data