AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Win32/Win64 API (native code) Delphi Prozessauslastung eines Programms ermitteln?
Thema durchsuchen
Ansicht
Themen-Optionen

Prozessauslastung eines Programms ermitteln?

Ein Thema von Novo · begonnen am 26. Aug 2008 · letzter Beitrag vom 26. Aug 2008
Antwort Antwort
Novo

Registriert seit: 27. Mai 2007
122 Beiträge
 
Delphi 7 Enterprise
 
#1

Prozessauslastung eines Programms ermitteln?

  Alt 26. Aug 2008, 19:48
Hey,
ich möchte von 1 oder 2 Prozessen die CPU Auslastung kontrollieren und falls diese über 90% hinausgeht, den Prozess killen!

Wie stelle ich das an?

Das einzige was ich gefunden habe war:
Delphi-Quellcode:
Prozessorauslastung anzeigen:

    * Die Prozessorauslastung wird in der Registry unter HKEY_DYN_DATA gespeichert. Erst muss unter '\PerfStats\StartStat' die Überwachung aktiviert werden, dann können unter '\PerfStats\StatData' die Werte ausgelesen werden
    * Quellcode:

    uses registry

    var
    reg:TRegistry;
    const pos:integer=0;


    procedure TForm1.FormCreate(Sender: TObject);
    var dummy:array[0..3] of byte;
    begin

        reg:=tregistry.Create;
        reg.RootKey:=HKEY_DYN_DATA;
        reg.OpenKey('\PerfStats\StartStat',false);
        reg.ReadBinaryData('Kernel\CPUUsage',dummy,4);
        reg.OpenKey('\PerfStats\StatData',false);
        form1.image1.canvas.MoveTo(0,100);

    end;

    procedure TForm1.Timer1Timer(Sender: TObject);
    var usage:DWORD;
    begin

        inc(pos,2);
        reg.OpenKey('PerfStats\StatData',false);
        reg.ReadBinaryData('KERNEL\CPUUsage', usage, 4);
        form1.image1.canvas.LineTo(pos,100-usage);
        label1.caption:=inttostr(usage);

    end;
Takeo
Don't make me angry...
You wouldn't like me when I'm angry!
Blut ist leben, Leben ist Blut, ins Licht geboren suchen wir die Dunkelheit!
  Mit Zitat antworten Zitat
Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#2

Re: Prozessauslastung eines Programms ermitteln?

  Alt 26. Aug 2008, 19:54
Woran genau scheiterst du denn? An welcher Stelle kommst du nicht weiter. Wir werden das Problem nicht für dich lösen sondern helfen dir lediglich wenn du ein konkretes Problem hast bei dem du nicht weiter kommst.

Im Moment ist mir dein Beitrag völlig Schleierhaft. Du hast einen Beitrag mit einem Titel und postest die Antwort auf deinen Titel im ersten Beitrag.
Im Beitrag schreibst du dann das du einen Prozess killen willst. Und ich kann mir nicht vorstellen das du zu diesem Thema nichts gefunden hast.
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat
Novo

Registriert seit: 27. Mai 2007
122 Beiträge
 
Delphi 7 Enterprise
 
#3

Re: Prozessauslastung eines Programms ermitteln?

  Alt 26. Aug 2008, 20:40
Zitat von SirThornberry:
Woran genau scheiterst du denn? An welcher Stelle kommst du nicht weiter. Wir werden das Problem nicht für dich lösen sondern helfen dir lediglich wenn du ein konkretes Problem hast bei dem du nicht weiter kommst.

Im Moment ist mir dein Beitrag völlig Schleierhaft. Du hast einen Beitrag mit einem Titel und postest die Antwort auf deinen Titel im ersten Beitrag.
Im Beitrag schreibst du dann das du einen Prozess killen willst. Und ich kann mir nicht vorstellen das du zu diesem Thema nichts gefunden hast.
Ich sagte, das einzige, was ich bezüglich Prozessauslastung gefunden habe, war das (Code oben)
Aber damit kann ich doch nicht die Prozessauslastung eines Bestimmten Prozesses auslesen,
also ist das oben nicht das, was ich brauche!
Takeo
Don't make me angry...
You wouldn't like me when I'm angry!
Blut ist leben, Leben ist Blut, ins Licht geboren suchen wir die Dunkelheit!
  Mit Zitat antworten Zitat
omata

Registriert seit: 26. Aug 2004
Ort: Nebel auf Amrum
3.154 Beiträge
 
Delphi 7 Enterprise
 
#4

Re: Prozessauslastung eines Programms ermitteln?

  Alt 26. Aug 2008, 21:26
Hilfe benutzen... klick klick
  Mit Zitat antworten Zitat
Novo

Registriert seit: 27. Mai 2007
122 Beiträge
 
Delphi 7 Enterprise
 
#5

Re: Prozessauslastung eines Programms ermitteln?

  Alt 26. Aug 2008, 22:16
Zitat von omata:
Hilfe benutzen... klick klick
oh cool
bloss das is n riesen projekt un das kann dauern, das richtige für mich rauszusuchen
danke aber schonma

*AFK 4 Stunden, code studier*
Takeo
Don't make me angry...
You wouldn't like me when I'm angry!
Blut ist leben, Leben ist Blut, ins Licht geboren suchen wir die Dunkelheit!
  Mit Zitat antworten Zitat
Antwort Antwort


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 21:35 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz