Arbeitsspeicher auslesen...

[Störtebeker]

Hi,

Delphi-Quellcode:

begin
var
  memory: TMemoryStatus;
begin
  memory.dwLength := SizeOf(memory);
  GlobalMemoryStatus(memory);
  Label10.caption:=(IntToStr(memory.dwTotalPhys) + ' Bytes');
  Label11.caption:=(IntToStr(memory.dwAvailPhys) + ' Bytes');
end;

wie muss ich den Code ändern, damit z.B. aus: 242886741 Bytes --> Kilobytes werden. Wäre schön, wenn die Zahl auf zwei Stellen nach dem Komma gerundet wird, damit die Zahl in meinem Anzeigefeld nicht so lang ist.

Thx.

[Svenkan]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  memory: TMemoryStatus;
begin
  memory.dwLength := SizeOf(memory);
  GlobalMemoryStatus(memory);
  Label10.caption:=FloatToStr(RoundTo((memory.dwTotalPhys/1024),-2)) + ' KB';
  Label11.caption:=FloatToStr(RoundTo((memory.dwAvailPhys/1024),-2)) + ' KB';
end;

Desweiteren muss die Unit 'Math' eingebunden werden.

[DeddyH]

Delphi-Quellcode:

begin
var
  memory: TMemoryStatus;
begin
  memory.dwLength := SizeOf(memory);
  GlobalMemoryStatus(memory);
  Label10.caption:=Format('%.2f KBytes',[memory.dwTotalPhys / 1024]);
  Label11.caption:=Format('%.2f KBytes',[memory.dwAvailPhys / 1024]);
end;

[Störtebeker]

Danke, hat gefunzt. Nun stelle ich fest, dass mir das immernoch ein bisschen zu lang ist. Die nächste Stufe wäre MB.

Benutze folgenden Code:

Delphi-Quellcode:

var
  memory: TMemoryStatus;
begin
  memory.dwLength := SizeOf(memory);
  GlobalMemoryStatus(memory);
  Label10.caption:=Format('%.2f KBytes',[memory.dwTotalPhys / 1024]);
  Label11.caption:=Format('%.2f KBytes',[memory.dwAvailPhys / 1024]);
end;

Was muss ich da jetzt ändern? Die 1024?

Thx.

[DeddyH]

Teil einfach erneut durch 1024

Delphi-Quellcode:

var
  memory: TMemoryStatus;
begin
  memory.dwLength := SizeOf(memory);
  GlobalMemoryStatus(memory);
  Label10.caption:=Format('%.2f MB',[(memory.dwTotalPhys / 1024) / 1024]);
  Label11.caption:=Format('%.2f MB',[(memory.dwAvailPhys / 1024) / 1024]);
end;

[Störtebeker]

Ich mal wieder:

Also Code funzt, und ist im Bereich MB auch kurz genug.

Mal ne Frage:

Beinhaltet der Code auch die ständige Aktualisierung des Arbeitsspeichers,
oder muss ich da den Code noch weiter erweitern?

[DeddyH]

Das müsstest Du eigentlich am Besten wissen . Wann rufst Du ihn denn auf? Einmalig oder in einem Timer etc.?

[Störtebeker]

Über OnFormCreate.

Ich muss das Ding in einen Timer setzten? Mit dem Intervall =??

Und weiter zum Thema Speicher auslesen:
Ich habe mal im Task Manager geguckt und da gibt es neben dem physischen Speicher auch den Kernel Speicher und den Zugesicherten Speicher. Funzen die auch mit dem Code?

Natürlich dann nicht Phys, sondern was anderes.

Thx.

[DeddyH]

Wenn Du etwas wiederkehrend aufrufen möchtest, ist der Timer die einfachste Möglichkeit. Ich würde mal ein Intervall von 1000 (= 1 Sekunde) als Basis nehmen und ggf. anpassen. Bzgl. der API kann ich im Moment nichts sagen, da leider kein Delphi zur Hand. Evtl. hilft ein Blick ins MSDN.

[s-off]

Ein [STRG]+Linksklick auf

Zitat:

var
memory: TMemoryStatus;

hätte die Windows.pas geöffnet, und Dir folgendes gezeigt:

Delphi-Quellcode:

  _MEMORYSTATUS = record
    dwLength: DWORD;
    dwMemoryLoad: DWORD;
    dwTotalPhys: DWORD;
    dwAvailPhys: DWORD;
    dwTotalPageFile: DWORD;
    dwAvailPageFile: DWORD;
    dwTotalVirtual: DWORD;
    dwAvailVirtual: DWORD;
  end;

Desweiteren empfehle ich Dir die Aneignung von Grundkenntnissen im Bereich der Datenverarbeitung, z.B. dieses Thema für den aktuellen Fall.