Мониторинг оперативной памяти

Question

Нашел статью: 
procedure TForm1.Timer1Timer(Sender: TObject); 
var m: TMemoryStatus; temp: integer; 
begin m.dwLength:=sizeof(m); 
GlobalMemoryStatus(m); 
with m do begin //Загруженность памяти 
label1.caption:=IntToStr (dwMemoryLoad)+' %'; // Всего физической 
label2.caption:=IntToStr (dwTotalPhys)+' байт'; // Свободно физической 
label3.caption:=IntToStr (dwAvailPhys)+' байт'; // Всего страничной 
label4.caption:=IntToStr (dwTotalPageFile)+' байт'; // Свободно страничной 
label5.caption:=IntToStr (dwAvailPageFile)+' байт'; // Всего выиртуальной 
label6.caption:=IntToStr (dwTotalVirtual)+' байт'; //Свободно виртуальной 
label7.caption:=IntToStr (dwAvailVirtual)+' байт'; //Загруженность на ProgressBar1 
progressbar1.Max:= dwTotalPhys; 
progressbar1.Position:=dwTotalPhys-dwAvailPhys; 
end; 
end; 
 
Все супер все работает кроме progressbar1, так как максимальный обьем оперативной памяти у меня 4 гб. 
а в progressbar1.max влазит лишь 2147483648 
Будь 2 работало бы :) 
Может числа округлить можно как-то? так как мне нужно получить 4095 мб в label1.caption

Владимир · Accepted Answer

видимо вывод идет в байтах или битах переводите в мбайты, деление на 1024 последовательно.

Ширин Каримова · Answer

так ты процесбаром зачем побитно показываешь! - естественно раздели на 1024 как минимум и выводи в кб

Петр Никулин · Answer

Дели все на что-то, скажем, на 1000 (лучше - на степень двойки) . Только числа выводи правильные. 
progressbar1.Max:= dwTotalPhys div 1024; 
progressbar1.Position:=(dwTotalPhys-dwAvailPhys) div 1024;