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

procedure TForm1.Button1Click(Sender: TObject);
var
  Memory: TMemoryStatus;
begin
  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;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

Procedure TForm1.Button1Click(Sender: TObject);
Var
  MS: TMemoryStatus;
  Str: String;
Begin
  MS.dwLength := SizeOf (MS);
  GlobalMemoryStatus (MS);
  With MS Do
    Begin
      Str := 'Memory status:' + #13 + #13;
      Str := Str + 'Percent of memory in use: ' + IntToStr (dwMemoryLoad) + '%' + #13;
      Str := Str + 'Bytes of physical memory: ' + IntToStr (dwTotalPhys) + ' bytes' + #13;
      Str := Str + 'Free physical memory bytes: ' + IntToStr (dwAvailPhys) + ' bytes' + #13;
      Str := Str + 'Bytes of paging file: ' + IntToStr (dwTotalPageFile) + ' bytes' + #13;
      Str := Str + 'Free bytes of paging file: ' + IntToStr (dwAvailPageFile) + ' bytes' + #13;
      Str := Str + 'User bytes of address space: ' + IntToStr (dwTotalVirtual) + ' bytes' + #13;
      Str := Str + 'Free user bytes: ' + IntToStr (dwAvailVirtual) + ' bytes';
    End;

  MessageDlg (Str, mtInformation, [mbOK], 0);
End;					

1:
2:

FreeMem(128000000)
WScript.Echo "Es wurden 128MB Arbeitsspeicher freigegeben!"