Delphi-PRAXiS - Priority Test

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)

- - Priority Test (https://www.delphipraxis.net/202494-priority-test.html)

Mit der Delphi-Unit TlHelp32 laesst sich fuer die Prioritaet
nur die folgenden Werte setzen: 1) Idle=very low, 2) Normal, 3) High=
very high und 4) RealTime=geht nur im Admin-Mode.
Wobei:
1) IDLE_PRIORITY_CLASS, 2) NORMAL_PRIORITY_CLASS,
3) HIGH_PRIORITY_CLASS, 4) REALTIME_PRIORITY_CLASS.

Fuer Get Priority verwende ich den Wert in pe32.pcPriClassBase.
Er liefert zurueck: Fuer 1) =4, 2) =8, 3) =13 und 4) =24.

Im TaskManager laesst sich zusaetzlich setzen: 5) Low und 6) High.

Fuer Get Priority gibt pe32.pcPriClassBase zurueck: 5) =6, 6) =10.

Das 5) und 6) laesst sich mit Set Priority aber nicht setzen.

Die beiden Editfelder, die mit den Werten 2 und 4 starten koennen
verschiedene Werte ausprobiert werden. Ohne Erfolg!

Ich verwende Delphi 6 unter Windows Vista. MfG Terence;

AW: Priority Test

In solch einem Fall hilft es sich die Dokumentation zu der Funktion anzuschauen:

https://docs.microsoft.com/en-us/win...tpriorityclass

Zitat:

ABOVE_NORMAL_PRIORITY_CLASS
0x00008000
BELOW_NORMAL_PRIORITY_CLASS
0x00004000

Wenn du diese Werte angibst (32768 bzw. 16384), dann klappt es auch. ;-)

Nebenbei merkt man, dass du noch Delphi 6 benutzt... so sieht dein Programm unter Windows 10 aus:
Anhang 51806
Zudem war es nur zur Hälfte am rechten Bildschirmrand sichtbar.

An der Stelle der Hinweis, dass die aktuelle Version bis zu einem Umsatz von 5000 Dollar kostenlos ist. Wenn man also Delphi rein privat ohne damit etwas zu verdienen einsetzt, macht es keinen Sinn bei Delphi 6 zu bleiben. ;-)

https://www.embarcadero.com/de/products/delphi/starter

So sieht das Programm übrigens neu mit Delphi 10.3 kompiliert aus:
Anhang 51807