TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Návod jak zjistit velkost pamětí ve vašem PC. Či jejich volné místo...
Reklama
Reklama
Do modulu:
Declare Sub GlobalMemoryStatus Lib "kernel32" _
(lpBuffer As MEMORYSTATUS)
Type MEMORYSTATUS
dwLength As Long
dwMemoryLoad As Long
dwTotalPhys As Long
dwAvailPhys As Long
dwTotalPageFile As Long
dwAvailPageFile As Long
dwTotalVirtual As Long
dwAvailVirtual As Long
End Type
Do formuláře:
ms.dwLength = Len(ms)
GlobalMemoryStatus ms
Print "Velikost fyzické paměti: " & _
(ms.dwTotalPhys / 1024 / 1024) & " Mb"
Print "Volné místo ve fyzické paměti: " & _
(ms.dwAvailPhys / 1024 / 1024) & " Mb"
Print "Využití fyzické paměti: " & ms.dwMemoryLoad & " %"
Print "Maximální velikost swapovacího souboru: " & _
(ms.dwTotalPageFile / 1024 / 1024) & " Mb"
Print "Volné místo ve swapovacím souboru: " & _
(ms.dwAvailPageFile / 1024 / 1024) & " Mb"
Print "Velikost virtualní paměti: " & _
(ms.dwTotalVirtual / 1024 / 1024) & " Mb"
Print "Volné místo ve virtualní paměti: " & _
(ms.dwAvailVirtual / 1024 / 1024) & " Mb"
