Именно с помощью WINAPI и узнается
Создай в папке Блица "userlib" файл с расширением ".decls"
в нем напиши
.lib "Kernel32.dll"
WINAPIGlobalMemoryStatus(MemoryStatus*):"GlobalMemoryStatus"
В блице:
Type MEMORYSTATUS
Field Length%
Field MemoryLoad%
Field TotalPhys%
Field AvailPhys%
Field TotalPageFile%
Field AvailPageFile%
Field TotalVirtual%
Field AvailVirtual%
End Type
Function TotalRAMMem()
Local Mem.MEMORYSTATUS = New MEMORYSTATUS
WINAPIGlobalMemoryStatus(Mem)
Local Value = Mem\TotalPhys
Delete Mem
Return Value / 1048576 ;(/1024/1024) для представления в мегабайтах
End Function
Function AvailRAMMem()
Local Mem.MEMORYSTATUS = New MEMORYSTATUS
WINAPIGlobalMemoryStatus(Mem)
Local Value = Mem\AvailPhys
Delete Mem
Return Value / 1048576 ;(/1024/1024) для представления в мегабайтах
End Function