|
Jak sprawdzić informacje o pamięci operacyjnej? |
|
|
|
Napisał: Berl
|
|
niedziela, 02 październik 2005 |
|
Do sprawdzania informacji o pamięci operacyjnej komputera służy rekord TMemoryStatus. Można go wykorzystać na przykład w ten sposób :
var
ms : TMemoryStatus;
Komunikat : string;
begin
ms.dwLength := SizeOf(ms);
GlobalMemoryStatus(ms);
Komunikat := 'Pamięć używana : ' +
inttostr(ms.dwMemoryLoad)+' %' + #13 + #10 +
'Całkowita pamięć fizyczna : ' +
FormatFloat('#.##', (ms.dwToTalPhys / 1024) / 1024) + ' Mb' + #13 + #10 +
'Wolna pamięć fizyczna : ' +
FormatFloat('#.##', (ms.dwAvailPhys / 1024) / 1024)+' Mb' + #13 + #10 +
'Całkowita pamięć stronicowana : ' +
FormatFloat('#.##', (ms.dwTotalPageFile / 1024) / 1024)+' Mb' + #13 + #10 +
'Wolna pamięć stronicowana : ' +
FormatFloat('#.##', (ms.dwAvailPageFile / 1024) / 1024)+' Mb' + #13 + #10 +
'Całkowita pamięć wirtualna : ' +
FormatFloat('#.##', (ms.dwTotalVirtual / 1024) / 1024)+' Mb' + #13 + #10 +
'Wolna pamięć wirtualna : ' +
FormatFloat('#.##', (ms.dwAvailVirtual / 1024) / 1024)+' Mb';
ShowMessage(Komunikat);
end;Aby dodać komentarz zaloguj się. Jeśli nie masz konta, załóż je sobie.
Tylko zarejestrowani użytkownicy mogą pisać komentarze. |
