AFFICHE LA RAM UTILISEE ET DISPONIBLE (DYNAMIQUE)

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.