Obtenir la taille de la ram en mo

Commenter

Contenu du snippet

La fonction GetRamSize renvoie en Mo la taille de la RAM, la marge d'erreur est de plus ou moins 2 Mo...

J'ai trouvé ce bout de code sur le net, il renvoyé autre chose et je l'ai donc adapté...

Source / Exemple : 


Option Explicit

' Mis en ligne par 69VobD3 (DivX-Paradise.net)

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

Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)

Public Function GetRamSize() As String
    Dim RamStats As MEMORYSTATUS
    GlobalMemoryStatus RamStats
    GetRamSize = Round((RamStats.dwTotalPhys / 1024) / 1024) + 1
End Function

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (DivXPVobD)