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* :mrgreen:

[Alexander]

Ich wette das steht da schon drin ;-)

[Matze]

Zitat:

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,

Delphi-Quellcode:

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 :mrgreen: )

[MrKnogge]

Zitat:

Zitat von APP

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

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

[APP]

Naja,
wirklich nur ein ganz leises *LUCKIEEE* :mrgreen: :mrgreen: