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]

Oke jai trouvé cétais tout con