Obtenir la taille de la ram en mo

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 723 fois - Téléchargée 41 fois

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
-
C cool ton code, je l'ai essayé sur plusieur ordi, le chiffre est tjr juste...

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.