Obtenir la taille de la ram en mo

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 063 fois - Téléchargée 44 fois

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

Ajouter un commentaire Commentaire
ATHacker Messages postés 23 Date d'inscription lundi 25 février 2002 Statut Membre Dernière intervention 10 mai 2003
1 juil. 2002 à 21:31
C cool ton code, je l'ai essayé sur plusieur ordi, le chiffre est tjr juste...
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)