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 % :D.. mais il se rend pas au readln.. :( il se close