Wie viel Ram frei / gesamt verfügbar.

Larus · Beiträge: 431

Also... Wie kann mein Programm herausfinden wie viel Ram ich habe. Ich will ein Tool schaffen mit dem ich sowohl die Gesamtmenge an Ram in MB anzeigen kann... die der jeweilige rechner a´hat und ich muss rausfinden wieviel von dieser Menge belegt ist.

Wie geht das.. wenn Möglich mit Code samples

Ehemaliges Mitglied Erhaltene Danke: 1

Siehe dazu Suche im MSDN

GLOBALMEMORYSTATUSEX.

Larus · Beiträge: 431

Wo find ich das denn für delphi net für C++ oder C

Ehemaliges Mitglied Erhaltene Danke: 1

Um mal ein paar Funktionen von Luckie aus einem anderen Thread hier aufzuführen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:

function GetTotalMemory: Int64;
var
   Memory : TMemoryStatus;
begin
     Memory.dwLength := SizeOf(Memory);
     GlobalMemoryStatus(Memory);
     Result := Memory.dwTotalPhys;
end;

function GetAvailMemory: Int64;
var
   Memory : TMemoryStatus;
begin
     Memory.dwLength := SizeOf(Memory);
     GlobalMemoryStatus(Memory);
     Result := Memory.dwAvailPhys;
end;

function GetTotalPageFile: Int64;
var
   Memory : TMemoryStatus;
begin
     Memory.dwLength := SizeOf(Memory);
     GlobalMemoryStatus(Memory);
     Result := Memory.dwTotalPageFile;
end;

function GetAvailPageFile: Int64;
var
   Memory : TMemoryStatus;
begin
     Memory.dwLength := SizeOf(Memory);
     GlobalMemoryStatus(Memory);
     Result := Memory.dwAvailPageFile;
end;

function GetUsedMemory: Int64;
var
   Memory : TMemoryStatus;
begin
     Memory.dwLength := SizeOf(Memory);
     GlobalMemoryStatus(Memory);
     Result := Memory.dwMemoryLoad;
end;

maxk · Verfasst: Sa 05.02.05 23:46

Wenn du mehrere Werte auf einmal haben willst, solltest du GlobalMemoryStatus(Memory); nur einmal ausführen und dann mit den Informationen zu arbeiten - das müsste ein wenig Zeit sparen und ist sauberer!

_________________
Ein Computer wird das tun, was Du programmierst - nicht das, was Du willst.

Larus · Beiträge: 431

So und nun die Frage wie man eine bestimmte Menge Ram leeren kann...

AXMD · Verfasst: Do 10.02.05 18:29 Titel: Re: Und wie leert man x MB Ram

Larus hat folgendes geschrieben:

So und nun die Frage wie man eine bestimmte Menge Ram leeren kann...

So, und nun einen neuen Thread für eine neue Frage

AXMD

Larus · Beiträge: 431

Mist man kann es ja versuchen lol

F34r0fTh3D4rk · Verfasst: Do 10.02.05 18:58

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.Button1Click(Sender: TObject);
var
  Memory: TMemoryStatus;
begin
  Memory.dwLength := SizeOf(Memory);
  GlobalMemoryStatus(Memory);

  //Arbeitsspeicher
  Label1.Caption:=IntToStr(Memory.dwTotalPhys div 1024);
  //Freier Arbeitsspeicher
  Label2.Caption:=IntToStr(Memory.dwAvailPhys div 1024);
  //Größte Größe der Auslagerungsdatei
  Label3.Caption:=IntToStr(Memory.dwTotalPageFile div 1024);
  //Freier Platz der Auslagerungsdatei
  Label4.Caption:=IntToStr(Memory.dwAvailPageFile div 1024);
end;

Larus · Beiträge: 431

Besten Dank....

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme