1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
|
procedure InfosMemoire;
const ls = #13+#10;
var MS: TMemoryStatus;
MemPhysT,MemPhysD,MemPagiT,MemPagiD,MemVirtT,MemVirtD,msg : string;
begin GlobalMemoryStatus(MS);
MemPhysT:='Mem Phys Totale : '+FormatFloat('#,###" Ko"', MS.dwTotalPhys / 1024);
MemPhysD:='Mem Phys Dispo : '+FormatFloat('#,###" Ko"', MS.dwAvailPhys / 1024);
MemPagiT:='Mem Pagi Totale : '+FormatFloat('#,###" Ko"', MS.dwTotalPageFile / 1024);
MemPagiD:='Mem Pagi Dispo : '+FormatFloat('#,###" Ko"', MS.dwAvailPageFile / 1024);
MemVirtT:='Mem Virt Totale : '+FormatFloat('#,###" Ko"', MS.dwTotalVirtual / 1024);
MemVirtD:='Mem Virt Dispo : '+FormatFloat('#,###" Ko"', MS.dwAvailVirtual / 1024);
msg:=MemPhysT+ls+MemPhysD+ls+MemPagiT+ls+MemPagiD+ls+MemVirtT+ls+MemVirtD;
showMessage(msg);
end; |
Partager