How To Find Out Total And Available Memory | |||
| |||
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('Freie RAM / available memory: '+inttostr(memory.dwavailPhys)+' Bytes'); end; Tags: Delphi available memory available memory size available memory space free memory free memory size free memory space | |||
| |||
| |||
Login for comment |