program Memory;
{$APPTYPE CONSOLE}
uses SysUtils, Windows;
var
ms: TMemoryStatus;
Total, Free: Real;
begin
Total := MS.dwTotalPhys;
Free := MS.dwAvailPhys;
Writeln(Output,'Free Memoy: ' + FloatToStr((100*Free)/Total) +
'%');
Readln;
end.
J'ai bien lue et ces bien: MS.dwTotalPhys et MS.dwAvailPhys.
Ou p-e jai fait une erreur stupide pour mettre en % 
.. mais il se rend pas au readln.. 
il se close
c'est quoi mon erreur?
[edit]--Message édité par Cybrix--[/edit]
