AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

CPU-Auslastung eines Prozesses

Ein Thema von ustra · begonnen am 4. Nov 2003 · letzter Beitrag vom 8. Nov 2003
 
ustra

Registriert seit: 12. Mär 2003
Ort: Geesthacht
138 Beiträge
 
Delphi 5 Professional
 
#9

Re: CPU-Auslastung eines Prozesses

  Alt 7. Nov 2003, 18:44
Hallo,

ich brauche nun noch mal Eure Hilfe:

Ich starte meinen Prozess mit ShellexecuteEx und erhalte darüber das Handle auf den Prozess (funktioniert ohne Probleme). Nun will ich die CPU-Auslastung anzeigen lassen. Dazu rufe ich erst mal zu Testzwecken die Funktion getProcesstimes so auf:

Delphi-Quellcode:

Var
 CreateTime : TFileTime;
 KernelTime : TFileTime;
 UserTime : TFileTime;
 ExitTime : TFileTime;

 Function FileTimeToLocalDateTime(Time : TFileTime) : TDatetime;
 Var
   SysTime : TSystemTime;
 Begin
   FileTimeToLocalFileTime(Time,Time);
   FileTimeToSystemTime(Time, SysTime);
   Result := SystemTimeToDateTime(SysTime);
 End;

 Function FileTimeToDateTime(Time : TFileTime) : TDatetime;
 Var
   SysTime : TSystemTime;
 Begin
   FileTimeToSystemTime(Time, SysTime);
   Result := SystemTimeToDateTime(SysTime);
 End;

begin
//handle2 ist das ermittelte handle mit shellexecuteex
  GetProcessTimes(handle2,CreateTime,ExitTime,KernelTime,Usertime);
  LabelCreate.Caption := DateTimeToStr(FileTimeToLocalDateTime(CreateTime));
  LabelExit.Caption := DateTimeToStr(FileTimeToLocalDateTime(ExitTime));
  LabelKernel.Caption := TimeToStr(FileTimeToDateTime(KernelTime));
  LabelUser.Caption := TimeToStr(FileTimeToDateTime(UserTime));
end;
Er zeigt mir auch alle Werte richtig an bis auf den Wert KernelTime: Da steht immer 00:00:00 und es ändert sich auch nichts daran. Ich rufe das alles mit einem Timmer alle 50msek. auf. Ich rufe ein Programm auf, dass die CPU alle regelmößig auslastet (alle 6 sek., Fibonucci Algorithmus).

Ich habe noch nicht den Vergleich über einen Zeitram vorgenommen, weil es momentan meiner Ansicht nach keinen Sinn macht.

Beste Grüße
Ulrich
Ulrich Strauer
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:15 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz