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

markieren

Code:

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

Danke Data

Probiers mal damit:

SetPriorityClass(GetCurrentProcess,DWORD(THREAD_PR IORITY_LOWEST));

erstmal Thanx a lot

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

So ,

der Parameter DWord(16384) entspricht THREAD_PRIORITY_BELOW_NORMAL !

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

markieren

Code:

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

Danke an alle,

Data