CPU-Auslastung

[Luckie]

Hmpf. Hier mal ein kleines Demo. In DoSomething in Unit2, der Thread Unit, packst du deinen Code rein.

[Matze]

Danke für deine Mühe Luckie, aber die CPU-Auslastung bleibt bei 100%.

[Luckie]

Das kann nicht sein.

[Alexander]

DAnn probier mal den Code in einem neuen Porjekt, vielleicht überschneidet sich da was mit dem Code für die CPU-Auslastung ?

[Matze]

Das habe ich aber in einem extra Programm probiert, jedoch war die Ausöastun wieder bei 100%.

[Alexander]

Also irgendwas machst du falsch

Probier das mal direkt in Luckies Programm...

[Matze]

Wenn ich nur Luckies Thread-Demo starte, dann hab ich 100% CPU-Auslastung, ohne, dass ich etwas ändere.

[Schneehasi]

für alexander ...

hab dein Prog eben mal auf meinem Dualsystem getestet.
Geht auch ganz gut ... nur ich hab laut deinem Prog 3 CPUs

Hardware : Dual Celeron 525 auf Basis eines Abit BP6 Boards mit 512MB RAM
XP prof.

[Alexander]

Danke für's testen, aber das ist nicht wirklich mein Programm
Das Programm nutzt eine Unit, die etwas fehlerhaft ist, aber dennoch verdammt genial ist
´Damit kann man auch die Auslastung unter 9.x auslesen

Mein richtiges programm findest du hier:
http://www.delphipraxis.net/internal...ect.php?t=7578

PS: Den Fehler kenn ich shcon, bei einer CPU hätte ich dann laut dem Programm bzw. der Unit 2CPU's.
Naja...

[Schneehasi]

Deine Toolbar ist verdammt genial

aber ich hab ein kleines Problem mit der Unit selbst... und zwar hab ich diese in eine dll gepackt um sie mit mIRC nutzen zu können ... sprich mit $dll(cpu.dll,CPUSpeed,0) soll er mir in mIRC die Auslastung in % von CPU 0 geben .. die ich dann in mIRC selbst nutze ...

geht auch .. nur bekomm ich immer 99 bis 100 % egal was ich mache ..
mhh haste ne Idee ? (nebenbei hab ich das andere Tool laufen und da hab ich max 45%)


Bugfix für das Problem mit den zuvielen CPUs in der Unit :

Delphi-Quellcode:

function GetCPUCount: Integer;
begin
    if _IsWinNT then
    begin
        if _ProcessorsCount < 0 then CollectCPUData;
        result:=_ProcessorsCount-1;
    end else
    begin
        result:=1;
    end;
end;

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]