Skip to content

Fixed memory calculation #2

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
wants to merge 1 commit into
base: main
Choose a base branch
from
Open

Fixed memory calculation #2

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
8 changes: 4 additions & 4 deletions clsOSInfo.cls
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -1694,7 +1694,7 @@ Private Function GetLangNameByCultureCode(CultureCode As Long) As String
GetLangNameByCultureCode = Lang
End Function

Public Function IsWow64() As Boolean ' Ðàçðÿäíîñòü ÎÑ
Public Function IsWow64() As Boolean
Dim hModule As LongPtr, procAddr As LongPtr, lIsWin64 As Long
Static isInit As Boolean, result As Boolean

Expand All @@ -1715,7 +1715,7 @@ Public Function IsWow64() As Boolean ' Ðàçðÿäíîñòü ÎÑ
End If
End Function

Private Function GetSecureBootState(out_Supported As Boolean, out_State As Boolean) As Boolean 'thanks to ISergey & Óáåæäåííûé
Private Function GetSecureBootState(out_Supported As Boolean, out_State As Boolean) As Boolean 'thanks to ISergey & Казакевич О.
If Not IsWindows7OrGreater_ Then Exit Function
Dim lState As Long
Dim iStatus As Long
Expand Down Expand Up @@ -2042,14 +2042,14 @@ Public Property Get MemoryTotal() As Long ' in MB
Dim mem As MEMORYSTATUSEX
mem.dwLength = LenB(mem)
GlobalMemoryStatusEx mem
MemoryTotal = CLng(mem.ullTotalPhys / 1024 * 10)
MemoryTotal = CLng(mem.ullTotalPhys / 104.8576)
End Property

Public Property Get MemoryFree() As Long ' in MB
Dim mem As MEMORYSTATUSEX
mem.dwLength = LenB(mem)
GlobalMemoryStatusEx mem
MemoryFree = CLng(mem.ullAvailPhys / 1024 * 10)
MemoryFree = CLng(mem.ullAvailPhys / 104.8576)
End Property

Public Property Get MemoryLoad() As Long ' in %
Expand Down