begin process at 2008 05 16 06:41:08
1 173 219 membres
61 nouveaux aujourd'hui
13 970 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

AFFICHE LA RAM UTILISEE ET DISPONIBLE (DYNAMIQUE)


Information sur la source

Catégorie :Système Classé sous : globalmemorystatus, ram, memoire Niveau : Débutant Date de création : 25/08/2007 Vu / téléchargé: 2 097 / 293

Note :
3 / 10 - par 1 personne
3,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (2)
Ajouter un commentaire et/ou une note

Description

           CODE QUI AFFICHE DES INFOS DYNAMIQUES DE LA MEMOIRE RAM
           API :
                GlobalMemoryStatus .
Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

  • signaler à un administrateur
    Commentaire de Francky23012301 le 26/08/2007 01:43:02

    Salut,

    Bon première remarque : La variable i n'a pas été initialisée d'ou un message d'alerte lors de la compilation.

    Ce projet peut être intéressant pour les personnes qui souhaitent travailler sur le système ;). C'était une très bonne idée. Mais c'est dommage qu'il soit si pauvre : sa place est plus dans les snippets que dans la catégorie source.

    Pas de note

  • signaler à un administrateur
    Commentaire de f0xi le 26/08/2007 14:01:40 administrateur CS


    Kilo n'a qu'un L

    Mega n'a pas de T

    pour la gauge et les personnes ayant plus de 2Go de RAM il est plus interessant de faire :

    // main.Gauge1.MaxValue := on laisse a 100
       main.Gauge1.Progress := round( 100 / lpBuffer.dwTotalPhys) * lpBuffer.dwAvailPhys);


    On appel JAMAIS la variable de la fiche dans la classe!

    #  with main do begin

    ne sert a rien du tout!



    pour le timer il faut plutot faire :

    const
      BCTTS : array[boolean] of ('Démarrer','Arrêter');
    begin
      Timer1.Enabled := not Timer1.Enabled;
      Button1.Caption:= BCTTS[ Timer1.Enabled ];
      Gauge1.Visible := Timer1.Enabled;
    end;


    enfin, on affiche toujours les infos au format Kilo-octet (avec separateur de millier en prime)

    function Tmain.Octet_Megat(const Size : int64): string;
    begin
      result := format('%.0n Ko',[Size/1024]);
    end;


    les StdCall sont inutile ici.

Ajouter un commentaire

Appels d'offres

Pub



CalendriCode

Mai 2008
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

VS Express FR Gratuit !

VS Express en français et 100% gratuit !

Téléchargements

Logiciels à télécharger sur le même thème :

Boutique

Boutique de goodies CodeS-SourceS