| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
CPU [D6, WinXP]
Seldon © (2002-11-18 21:38:00)Как узнать, на сколько % загружен проц?
Больщой спасиб!
Севостьянов Игорь (2002-11-19 12:59:00) [1]
const
sPercent = "%";
var
MemStatus: TMemoryStatus;
S: String;
begin
MemStatus.dwLength := SizeOf(TMemoryStatus);
GlobalMemoryStatus(MemStatus);
with MemStatus do
begin
S := Format("MemoryLoad %d%s", [dwMemoryLoad, sPercent]); // percent of memory in usemmoList.Lines.Add(S);
S := Format("TotalPhys %d", [dwTotalPhys]); // bytes of physical memory
mmoList.Lines.Add(S);
S := Format("AvailPhys %d", [dwAvailPhys]); // free physical memory bytes
mmoList.Lines.Add(S);
S := Format("TotalPageFile %d", [dwTotalPageFile]);// bytes of paging file
mmoList.Lines.Add(S);
S := Format("AvailPageFile %d", [dwAvailPageFile]);// free bytes of paging file
mmoList.Lines.Add(S);
S := Format("TotalVirtual %d", [dwTotalVirtual]); // user bytes of address space
mmoList.Lines.Add(S);
S := Format("AvailVirtual %d", [dwAvailVirtual]); // free user bytes
mmoList.Lines.Add(S);
S := Format("PercentUseMem %s%s", [FloatToStr(100 - Round(dwAvailPhys/(dwTotalPhys/100))), sPercent]); // percent of memory in use
end;
end;
Александр Павлов (2002-11-19 06:12:00) [2]http://www.aldyn.ru/products/cpu_usage/files/AdCpuUsage.zip
Jeer (2002-11-18 23:38:00) [3]Я тебе скажу - у меня сейчас - на..
секундочку.. 4-6%
w2k + inet(4 окна) + d5 + FAR + PROMTH + Fix It
| |
