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

Вниз

CPU   Найти похожие ветки 

 
Seldon   (2002-11-18 21:38) [0]

Как узнать, на сколько % загружен проц?
Больщой спасиб!


 
Jeer ©   (2002-11-18 23:38) [1]

Я тебе скажу - у меня сейчас - на..
секундочку.. 4-6%
w2k + inet(4 окна) + d5 + FAR + PROMTH + Fix It


 
Александр Павлов ©   (2002-11-19 06:12) [2]

http://www.aldyn.ru/products/cpu_usage/files/AdCpuUsage.zip


 
Севостьянов Игорь ©   (2002-11-19 12:59) [3]

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;



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

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

Наверх




Память: 0.47 MB
Время: 0.015 c
1-96729
Dimitriy.sd
2003-01-22 11:48
2003.01.30
Помогите люди ошибка EInvalidOp, что делать?


3-96608
oleon
2003-01-13 18:17
2003.01.30
Как мне получить величину нового ID при добалении новой записи...


1-96766
Alecs
2003-01-20 12:43
2003.01.30
Как послать сообщение всем комп-ам программы


3-96567
DGrafkin
2003-01-13 00:34
2003.01.30
DBGrid + Query


1-96837
Checist [root]
2003-01-21 02:28
2003.01.30
Трабл с ListBox