Developpez.com - Delphi
X

Choisissez d'abord la catégorieensuite la rubrique :

Nono40.developpez.com
Le petit coin du web de Nono40
SOURCES TESTS DELPHI WIN32 AUTOMATISMES DELPHI .NET QUICK-REPORT
Retour à l'accueil
39 - AFFICHER LA MÉMOIRE DISPONIBLE

PRÉSENTATION : Afficher la mémoire disponible
ZIP : Téléchargez le zip APERÇUS :

NOTES : Pas grand chose d'autre à dire...

CODE :
Procedure TForm1.Button1Click(Sender: TObject);
Var Mem:TMemoryStatus;
Begin
  // Recherche des informations sur la mémoire
  Mem.dwLength:=SizeOf(TMemoryStatus);
  GlobalMemoryStatus(Mem);

  // Affichage des résultats
  lUtilisee .Caption := IntToStr(Mem.dwMemoryLoad)+' %';
  lPhysique .Caption := FloatToStrF(Mem.dwAvailPhys     /1024/1024,ffFixed,5,1)
                +' / '+ FloatToStrF(Mem.dwTotalPhys     /1024/1024,ffFixed,5,1)+' Mo';
  lPaginee  .Caption := FloatToStrF(Mem.dwAvailPageFile /1024/1024,ffFixed,5,1)
                +' / '+ FloatToStrF(Mem.dwTotalPageFile /1024/1024,ffFixed,5,1)+' Mo';
  lVirtuelle.Caption := FloatToStrF(Mem.dwAvailVirtual  /1024/1024,ffFixed,5,1)
                +' / '+ FloatToStrF(Mem.dwTotalVirtual  /1024/1024,ffFixed,5,1)+' Mo';
End;

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2003 Bruno Guérangé. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents, images, etc. sans l'autorisation expresse de l'auteur. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.

Responsables bénévoles de la rubrique Delphi : Gilles Vasseur - Alcatîz -