| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
отображалось в реальном времени использывания памяти [D7, WinXP]
ceval © (2006-10-13 15:53:00)Подскажите что бы отображалось в реальном времени использывания памяти
делаю вот так
[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]
ceval (2006-10-13 16:22:00) [1]Спасиба
Dmitrij_K (2006-10-13 15:57:00) [2]кинь таймер на форму
TTimer вкладка System
Игорь Шевченко (2006-10-13 15:56:00) [3]Таймер положить на форму и в его обработчике вызывать процедуру meminfo
| |
