É necessário estar declarado Windows e SysUtils na seção uses,
em versões unicode declare Winapi.Windows e System.SysUtils.
Exibindo a memória total e a memória disponível.
Exemplos de uso:
1 2 3 4 5 6 7 8 9 10 11 12 | procedure TForm1.Button1Click(Sender: TObject); var memory : TMemoryStatus; begin memory.dwLength := SizeOf(memory); GlobalMemoryStatus(memory); ShowMessage('Memória Total: ' + IntToStr(memory.dwTotalPhys) + 'Bytes'); ShowMessage('Memória disponível: ' + IntToStr(memory.dwAvailPhys) + ' Bytes'); end; |
Dúvidas ou sugestões deixe nos comentários do post.
