RAM-und CPU-AUslastung für die Win7-Taskleiste

[markus5766h]

Hallo,
im Anhang zwei kleine Programme zur quantitativen Anzeige der
RAM- und CPU-Auslastung in der Win7-Taskleiste.
Parameter können mit übergeben werden:

Beispiel : RamWin7.exe 30 60 500

30 : Anzeigebereich für Grün : 0 .. 30 %
60 : Anzeigebereich für Gelb : >30% .. 60%
Anzeigebereich für Rot : >60%
Aktualisiuerungsintervall : 500 ms

werden keine Parameter übergeben :
Grün : 0 .. 50%
Gelb : >50 .. 75%
Rot : >75%
Aktualisierungsintervall : 1000ms

der Vollständigkeit wegen :
RamWin7_64.rar enthält die Version der Speicherabfrage in 64-bit,
d.h. es sollte keine Probleme mehr bei der Abfrage von Speichergrößen
> 4 Gb geben.

[Jonelmeier]

Zitat von markus5766h:

Hast Du irgendwelche Speichermanager o.ä. laufen ??
Wurde das Programm mit / ohne Parameter gestartet ?

Ich hab keinerlei Speichermanager, oder sonstige Optimierungsprogramme o.Ä. laufen...
Mysteriös...
Ich hab's ohne Parameter gestartet, mach aber auch keinen unterschied wenn ich's mit starte...

Jonas

Edit:
Auch wenn ich's bei mir mit Delphi 2009 selbst erzeuge -> gleiches Ergebniss...

[EWeiss]

Hätte noch nen Tip
Für About könntest du ein Icon einbauen 16x16 256 Farben.

Hab mal eins angehängt!

gruss Emil

[markus5766h]

@ Emil Weiss

... ja, macht sich vielleicht ganz gut ...
muss noch den Quellcode für die CPU-Auslastung
'nen bisschen formatieren, bevor ich den hochlade.

Kann ich ja dann mit einbauen ...

[Mithrandir]

Zitat von Jonelmeier:

Auch wenn ich's bei mir mit Delphi 2009 selbst erzeuge -> gleiches Ergebniss...

Dann wärs vielleicht gut, wenn dus kurz debuggen würdest, wenn du eh n Delphi zur Hand hast, oder?

[EWeiss]

Zitat von Daniel G:

Zitat von Jonelmeier:

Auch wenn ich's bei mir mit Delphi 2009 selbst erzeuge -> gleiches Ergebniss...

Dann wärs vielleicht gut, wenn dus kurz debuggen würdest, wenn du eh n Delphi zur Hand hast, oder?

Denk ich auch war der sinn der sache

gruss

[Jonelmeier]

Ich hab mir mal die Rückgabe von GlobalMemoryStatus angeguckt, sieht so aus, als würde der Rückgabewert (oder besser die Werte) fehlerhaft sein, oder falsch in TMemoryStatus abgebildet, da dwTotalPhys und dw AvaiablePhys genau High(Longint) sind, und mehr Bytes vorhanden und frei sind, als in Longint reinpasst...

Anbei nochmal ein Screenshot von der Gesamten Rückgabe...

Jonas

[markus5766h]

Hallo,
der Quelltext für CpuWin7 ist im ersten Beitrag.

[Mithrandir]

Ich denke, ich weiß, woran es liegt. In der MSDN steht zu der Funktion "GlobalMemoryStatus" Folgendes unter "Remarks":

Zitat:

Remarks

On computers with more than 4 GB of memory, the GlobalMemoryStatus function can return incorrect information, reporting a value of –1 to indicate an overflow. For this reason, applications should use the GlobalMemoryStatusEx function instead.

On Intel x86 computers with more than 2 GB and less than 4 GB of memory, the GlobalMemoryStatus function will always return 2 GB in the dwTotalPhys member of the MEMORYSTATUS structure. Similarly, if the total available memory is between 2 and 4 GB, the dwAvailPhys member of the MEMORYSTATUS structure will be rounded down to 2 GB. If the executable is linked using the /LARGEADDRESSAWARE linker option, then the GlobalMemoryStatus function will return the correct amount of physical memory in both members.

The information returned by the GlobalMemoryStatus function is volatile. There is no guarantee that two sequential calls to this function will return the same information.

[EWeiss]

Alternativ habe ich noch die Win7Comp von Gumpi
Leider hat er seinen Block und seine Webseite geschlossen daher weiss ich nicht ob ich das hochladen darf.

Readme!

Zitat:

Delphi for Windows: Windows 7 Component Library
================================================== ======================

Simply install the Component Package into your Delphi IDE and you are
set to go. The Packages are in the corresponding folder. As there are no
component editors at the moment, this one package will serve as both -
design-time and run-time.

All Components are installed into the category "Windows 7 Support."

NOTE: You may use the components as-is, without any warranties supplied.
Use them at your own risk.



If you plan to use this code for creating your own component libraries,
you must place them under GPL.

If you plan to use them in any of your applications, you are free to do
so without any further restrictions. I would be honoured if you refer
to me either in your application or in your documentation. For those
cases, the components are given to you with any of the following license
systems: GPL, LPGL, or MPL.

////////////////////////////////////////////////////////////////////////

Components supplied:

TdwProgressBar
Supports showing the progress state in the Windows Taskbar.

TdwTaskbarThumbnails
Adds thumbnails into the preview pane of your application in the
Windows Taskbar.
NOTE: Those thumbnails must be added before any of the
applications GUI is shown. The thumbnails cannot be
reordered, created or deleted after initialization.

TdwOverlayIcon
Adds a overlay icon to your applications icon in the Windows
Taskbar. This work by definition when the user uses large icons
(Windows System Default) only.

TdwJumpLists
Allows you to manage the context menu of your application as shown
in the Windows Taskbar and the Windows Startmenu.

////////////////////////////////////////////////////////////////////////

Have fun,
Daniel Wischnewski
http://www.gumpi.com/blog

Wenn ihr meint das geht werde ich es hochladen da man im Internet nichts mehr findet.
Eigentlich schade drum.
Interessant ist es für Leute die kein Delphi2010 besitzen dort soll so etwas schon enthalten sein.


gruss

[Mithrandir]

Zitat von EWeiss:

Alternativ habe ich noch die Win7Comp von Gumpi

Zitat:

Daniel Wischnewski
http://www.gumpi.com/blog

Gumpi? Der heißt doch Sakura...