Hit-Parade .VB Research Center . Compteur
Accueil ~  Code ~  Programmes ~  Api ~  Forum ~  Cours ~  Livres ~  Quiz ~  Annuaire
~ Edito ~
12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période.
Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes.

~ Rechercher ~

  

~ Annuaire VB ~
 Rechercher un site :
  

~ Partenaires ~

Fonction GlobalMemoryStatus

Declare Sub GlobalMemoryStatus Lib "kernel32" ( _
                 lpBuffer
As MEMORYSTATUS)
Versions :
. Windows 95/98 : Oui
. Windows NT : A partir de 3.1
. Windows 2000/XP : Oui

Description :
(Origine : int19h - Int19h@caramail.com)
Cette API permet de savoir la quantité de mémoire physique et virtuelle disponible sur l'ordinateur ainsi que l'espace libre.
Utilise une structure MEMORYSTATUS pour stocker le résultat.
dwLength est la taille de la structure.
dwMemoryLoad est le pourcentage de mémoire actuellement utilisé.
dwTotalPhys est la taille totale de la mémoire physique (en octets).
dwAvailPhys est la taille de la mémoire physique disponible (en octets).
dwTotalPageFile donne la taille totale que peut atteindre le fichier d'échange (en octets).
dwAvailPageFile indique l'espace disponible dans le fichier d'échange (en octets).
dwTotalVirtual retourne la mémoire totale pouvant être utilisée par l'application courante (en octets).
dwAvailVirtual représente l'espace libre totale (en octets).

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


Exemple d'utilisation :

' Exemple par int19h (Int19h@caramail.com)

' Placer le code sur une form vide
Private Sub Form_Load()
Dim Memoire As MEMORYSTATUS
Me.AutoRedraw =
True
' Récupère les informations
GlobalMemoryStatus Memoire
' Affiche les informations sur la feuille
Print "Mémoire Physique Totale = ";
Print Format(Memoire.dwTotalPhys, "###,###,### octets ")
Print "Mémoire Physique Libre = ";
Print Format(Memoire.dwAvailPhys, "###,###,### octets");
Print " (" & Int((Memoire.dwAvailPhys / Memoire.dwTotalPhys) * 100) & "% libres)."
End Sub

Retour à la liste des API

Visual Basic Research Center - (c) 2000/2002 -  Webmaster : docvb (chez) free (point) fr