:: STRCPY - Super Coder's Page

'free memory size'에 해당되는 글 1건

2007/08/25 How To Find Out Total And Available Memory

2007/08/25 09:58

How To Find Out Total And Available Memory

2007/08/25 09:58 in Borland Delphi

Get the total andavailable memory in your system. (Totalfree memory space in your system)

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;

Posted by Super Coder