Durch eigenen Prozess verursachte CPU-Auslastung bekommen???

[romber]

Hallo!

Wie man die aktuelle CPU-Aulastung erhält, haben Matze und eigene Teilnemer bereits mehrmals beschrieben. Gibt es auch eine Möglichkeit, die CPU-Auslastung der einzelnen Prozesse zu bekommen, zum Beispiel die des eigenen Prozesses? Das wäre schön!

Mindestens einen Beitrag gab's bereits zu diesem Thema, hier:
CPU auslastung der einzelnen Prozesse

Zitat:

Zitat von supermuckl

Stichwort Perfmon ( Performance Monitor )
Ist eine API Schnittstelle wo du auf die Counters von Windows zugreifen kannst. Darunter fallen auch alle Prozesse und ihre Messwerte/Statistiken an. Entsprechende Perfmon Komponenten für Delphi gibt es. Habe selbst eine schon ausprobiert.

Aber was für Komponenten meinte supermuckl und wo finde ich diese?

Danke!

[DP-Maintenance]

Dieses Thema wurde von "Luckie" von "Object-Pascal / Delphi-Language" nach "Windows API / MS.NET Framework API" verschoben.
WinAPI Frage.

[Basilikum]

wenn es nur um den CPU-Load des eigenen Processes geht, ist dies sehr einfach:

Delphi-Quellcode:

var
  LastTick : LongWord;
  LastTime : Int64;
  CPUCount : Word;


// einmal initialisieren:

Var
  CreationTime,
  ExitTime,
  KernelTime,
  UserTime : TFILETIME;
  SystemInfo : TSystemInfo
Begin
  LastTick:=GetTickCount();

  GetProcessTimes(GetCurrentProcess(),CreationTime,ExitTime,KernelTime,UserTime);
  LastTime:=Int64(KernelTime) + Int64(UserTime);

  GetSystemInfo(SystemInfo);
  CPUCount:=SystemInfo.dwNumberOfProcessors;


// periodisch aufrufen (z.B. jede Sekunde):

Var
  CreationTime,
  ExitTime,
  KernelTime,
  UserTime : TFILETIME;
  TickDelta : LongWord;
  TimeDelta : Int64;
begin
  TickDelta:=GetTickCount() - LastTick;
  Inc(LastTick,TickDelta);

  GetProcessTimes(GetCurrentProcess(),CreationTime,ExitTime,KernelTime,UserTime);
  TimeDelta:=(Int64(KernelTime) + Int64(UserTime)) - LastTime;
  Inc(LastTime,TimeDelta);

  Label.Caption:=Format('CPU load: %.1f %%',[TimeDelta / 10000 / CPUCount / TickDelta * 100]);

PS: ev. wäre dies etwas für die Codelib, da diese Frage immer wieder kommt......

[Luckie]

Und für alle anderen Prozesse

Delphi-Quellcode:

GetProcessTimes(GetCurrentProcess(),CreationTime,ExitTime,KernelTime,UserTime);

als ersten Parameter eben die ProzessID abgeben.

[Basilikum]

Zitat:

Zitat von Luckie

Und für alle anderen Prozesse

Delphi-Quellcode:

GetProcessTimes(GetCurrentProcess(),CreationTime,ExitTime,KernelTime,UserTime);

als ersten Parameter eben die ProzessID abgeben.

GetProcessTimes() erwartet ein Process-Handle (nicht ID)...
GetCurrentProcess() liefert ein Pseudo-Handle des gegenwärtigen Prozesses... dementsprechend mittels OpenProcess() den Handle des fremden Prozesses holen...

[Luckie]

OK, knapp da neben. ;)

[Basilikum]

"Knapp daneben ist auch vorbei..." ;-)

[romber]

Danke für schnelle Antwort!

Kann man die Kode von Basilikum in einen Thread packen? Ich versuche es jetzt gerade, klappt aber nicht so richtig. An dieser Zeile

Delphi-Quellcode:

Form1.Label1.Caption := Format('CPU load: %.1f %%',[TimeDelta / 10000 / CPUCount / TickDelta * 100]);

bricht es ab mit der Fehlermeldung:
Invalid floating pointer operation.

Woran liegt es?

[Luckie]

1. Gibt der Code van Basilikum an wie viel CPU-Zeit der Prozess verbraucht und nicht die Auslastung in Prozent.
GetProcessTimes

Zitat:

lpKernelTime
[out] Pointer to a FILETIME structure that receives the amount of time that the process has executed in kernel mode. The time that each of the threads of the process has executed in kernel mode is determined, and then all of those times are summed together to obtain this value.
lpUserTime
[out] Pointer to a FILETIME structure that receives the amount of time that the process has executed in user mode. The time that each of the threads of the process has executed in user mode is determined, and then all of those times are summed together to obtain this value.

2. Wenn du die TThread Klasse benutzt darfst du nur mit der Synchronize Methode auf VCL Objekte einer Form zugreifen
3. Überprüf mal die Inahlte der variablen, was darin steht.

[Basilikum]

Zitat:

Zitat von Luckie

1. Gibt der Code van Basilikum an wie viel CPU-Zeit der Prozess verbraucht und nicht die Auslastung in Prozent.
GetProcessTimes

Zitat:

lpKernelTime
[out] Pointer to a FILETIME structure that receives the amount of time that the process has executed in kernel mode. The time that each of the threads of the process has executed in kernel mode is determined, and then all of those times are summed together to obtain this value.
lpUserTime
[out] Pointer to a FILETIME structure that receives the amount of time that the process has executed in user mode. The time that each of the threads of the process has executed in user mode is determined, and then all of those times are summed together to obtain this value.

1. stimmt nicht: GetProcessTimes liefert tatsächlich "nur" die verbratene CPU-Zeit... diese wird jedoch mit der Division durch die verstrichenen Ticks mit der "echten" Zeit in Relation gebracht, und ergibt so den prozentualen Anteil der Zeit, die der Process während der letzen Berechnungsperiode tatsächlich den CPU beansprucht hat... bei CPU-Zeit = verstrichene Ticks => 100%, bei CPU-Zeit = 0 => 0%