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

Вниз

Хочу все время видеть на сколько загр. ОЗУ, может кто функцию зна   Найти похожие ветки 

← →
Ник Я   (2002-09-24 15:48) [0]

Хочу все время видеть на сколько загр. ОЗУ, может кто функцию знает какую... S.O.S. me!!!

---

← →
Rouse_ ©   (2002-09-27 01:17) [1]

function TForm1.QueryCPUUsage(AKey: string): Integer;
var FBuffer:integer;
begin
Result:=0;
RegCpu.RootKey :=HKEY_DYN_DATA;
RegCpu.OpenKey("PerfStats\"+AKey,False);
try
RegCpu.ReadBinaryData("KERNEL\CPUUsage",FBuffer,sizeof(integer));
if AKey = "StatData" then Result:= FBuffer;
finally
RegCpu.CloseKey;
end;
end;

Использование: QueryCPUUsage("StatData");

Примечание: не работает под НТ

Желаю успехов

---

← →
Rouse_ ©   (2002-09-27 01:21) [2]

Опс... извини, эта функция показывает на сколько загружен процессор

вот правильная функция:

var MemStat: TMemoryStatus;
begin
MemStat.dwLength:= SizeOf(TMemoryStatus);
GlobalMemoryStatus(MemStat);
with MemStat do ShowMessage(Format("Memory load: %d"#13 +
"Total physical: %d"#13+"Available physical: %d"#13 +
"Total page file: %d"#13 + "Available page file: %d"#13 +
"Total virtual: %d"#13 + "Available virtual: %d",
[dwMemoryLoad, dwTotalPhys, dwAvailPhys, dwTotalPageFile,
dwAvailPageFile, dwTotalVirtual, dwAvailVirtual]));

Желаю успехов

---

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

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

Наверх

Память: 0.47 MB
Время: 0.013 c