Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.10.29;
Скачать: CL | DM;

Вниз

отображалось в реальном времени использывания памяти   Найти похожие ветки 

 
ceval ©   (2006-10-13 15:53) [0]

Подскажите что бы отображалось в реальном времени использывания памяти
делаю вот так

[code]procedure TFmain.MemInfo;
var memstat:tmemorystatus;
begin
MemStat.dwLength := SizeOf(MemStat);
GlobalMemoryStatus(MemStat);
with MemStat do begin
 physmemload.Caption :=Format("%0.3f ",[(dwTotalPhys-dwAvailPhys) div 1024 /1024]);
 physmemall.Caption := Format("%0.3f ",[dwTotalPhys div 1024 / 1024]);
 physmemava.Caption := Format("%0.3f ",[dwAvailPhys div 1024 / 1024]);
 virtmemall.Caption := Format("%0.3f ",[dwTotalPageFile div 1024 / 1024]);
 virtmemava.Caption := Format("%0.3f ",[dwAvailPageFile div 1024 / 1024]);
 virtmemload.Caption:= Format("%0.3f ",[(dwTotalPageFile-dwAvailPageFile) div 1024 /1024]);
end;[/code]

[code]procedure TFMain.CurrentInfo;
begin
application.ProcessMessages;
memInfo;
end;[/code]

[code]procedure TFmain.FormCreate(Sender: TObject);
begin
meminfo
end;[/code]


 
Игорь Шевченко ©   (2006-10-13 15:56) [1]

Таймер положить на форму и в его обработчике вызывать процедуру meminfo


 
Dmitrij_K   (2006-10-13 15:57) [2]

кинь таймер на форму
TTimer вкладка System


 
ceval ©   (2006-10-13 16:22) [3]

Спасиба



Страницы: 1 вся ветка

Текущий архив: 2006.10.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.107 c
3-1156941283
tytus
2006-08-30 16:34
2006.10.29
Как правильно создать пользователя.


6-1149770375
zero-g
2006-06-08 16:39
2006.10.29
Работа IdFTP через прокси


8-1143445304
zxcv
2006-03-27 11:41
2006.10.29
Chart 3D


1-1158433251
Layner
2006-09-16 23:00
2006.10.29
Размер ЗАНЯТОГО файла, как его определяют проводник и WinCommande


2-1160668978
redlord
2006-10-12 20:02
2006.10.29
в каком потоке работает ServerSocket1ClientRead