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 :wall:

Code:

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

Danke Data

[Bernhard Geyer]

Probiers mal damit:

SetPriorityClass(GetCurrentProcess,DWORD(THREAD_PR IORITY_LOWEST));

[DataCool]

erstmal Thanx a lot :thuimb:

das setzen dewr Priorität geht jetzt !

Aber wie bekomm ich den Wert "THREAD_PRIORITY_BELOW_NORMAL" bzw. "niedriger als normal" hin ?

Ich habe eben als Parameter DWord(THREAD_PRIORITY_BELOW_NORMAL) versucht, jetzt bin ich aber bei niedrigster Priorität entsprechend tpLower ?

Gruß Data

[DataCool]

So :mrgreen:,

der Parameter DWord(16384) entspricht THREAD_PRIORITY_BELOW_NORMAL !

Ich habs einfach im Taskmanager umgestellt und dann den Wert ausgelesen mit :

Code:

Var p : Cardinal;
begin
   p := GetPriorityClass(GetCurrentProcess);
   showmessage(inttostr(p));
end;

Danke an alle,

Data