Форум: "Начинающим";
Текущий архив: 2006.10.29;
Скачать: [xml.tar.bz2];
Вниз
отображалось в реальном времени использывания памяти Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.043 c
