---

procedure TForm1.Button1Click(Sender: TObject);
var
memory:TMemoryStatus;
begin
memory.dwLength:=sizeof(memory);
GlobalMemoryStatus(memory);
ShowMessage('Total RAM / total memory: '+inttostr(memory.dwTotalPhys)+' Bytes');
ShowMessage('Free RAM / available memory: '+inttostr(memory.dwavailPhys)+' Bytes');
end;

---

Eftersom du ikke er logget ind i systemet, kan du ikke lave en bedømmelse til dette tip.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.