Ram auslastungs Progressbar

[HW764]

Wie kann ich bei Delphi (Logisch oder^^) eine Progressbar so einstellen,
dass sie die Prozentauslastung des Ram's zeigt?

Gruss HW764

[StefanDP]

Delphi-Quellcode:

var
    memory: TMemoryStatus;
...
memory.dwLength := SizeOf(memory);
GlobalMemoryStatus(memory);
...
memory.dwAvailPhys // verfügbar!
memory.dwTotalPhys // insgesamt

stefan

[HW764]

Kann mir nicht jemand ein Stück coden?

[Matze]

Stefan hat dich schon alles geschrieben.

Hier nochmal inkl. ProgressBar-Code:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  x, y : real;
  memory: TMemoryStatus;
  Auslastung: integer;
begin
  memory.dwLength := SizeOf(memory);
  GlobalMemoryStatus(memory);
  x := memory.dwTotalPhys - memory.dwAvailPhys;
  y := memory.dwTotalPhys;
  Auslastung := round(((x/y)*100));
  ProgressBar1.Position := Auslastung;
end;

[Ultimator]

*Codelib-Alarm*

[Alexander]

Ich wette das steht da schon drin

[Matze]

Zitat von Alexander:

Ich wette das steht da schon drin

Falsch gewettet
Aber ich gebe es rein, ich muss mich nur nochmal vergewissern, ob's auch wirklich net drinsteht.

[APP]

Halllo Matze,
memory: TMemoryStatus; ist in Delphi 5 noch nicht enthalten, da GlobalMemoryStatus() aber eine Win32-API Funktion ist,
dürften die API-Profis wohl kein Problem mit dem Nachbau der MEMORYSTATUS structure haben.
(Wink mit dem Zaunpfahl )

[MrKnogge]

Zitat von APP:

...
dürften die API-Profis wohl kein Problem mit dem Nachbau der MEMORYSTATUS structure haben.
(Wink mit dem Zaunpfahl )

Hör ich da etwa ein leises "Luckie" ?

[APP]

Naja,
wirklich nur ein ganz leises *LUCKIEEE*