Einzelnen Beitrag anzeigen

Benutzerbild von Mavarik
Mavarik

Registriert seit: 9. Feb 2006
Ort: Stolberg (Rhld)
4.123 Beiträge
 
Delphi 10.3 Rio
 
#11

AW: Freier Speicher in Delphiprogrammen ermitteln?

  Alt 12. Jul 2012, 16:29
hmm Leider auch nicht...
Delphi-Quellcode:
procedure TForm49.Button2Click(Sender: TObject);
Var
   M : TMemoryStatus;
   i,i2 : Integer;
begin
  i2 := 1024*1024*256;
  for i:=0 to 100 do
    begin
      Setlength(F[i], i2);
      GlobalMemoryStatus(M);
      Memo1.Lines.add(Inttostr(M.dwAvailVirtual div 1024)+' / '+inttostr(M.dwTotalPhys div 1024)+' / '+Inttostr((M.dwAvailPhys) div 1024));
      if M.dwAvailVirtual < i2 then
        i2 := M.dwAvailVirtual div 2;
      Application.Processmessages;
    end;
end;
Funktioniert leider auch nicht....
  Mit Zitat antworten Zitat