| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Хочу все время видеть на сколько загр. ОЗУ, может кто функцию зна [D6, Win2k]
Ник Я © (2002-09-24 15:48:00)Хочу все время видеть на сколько загр. ОЗУ, может кто функцию знает какую... S.O.S. me!!!
Rouse_ (2002-09-27 01:21:00) [1]Опс... извини, эта функция показывает на сколько загружен процессор
вот правильная функция:
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]));
Желаю успехов
Rouse_ (2002-09-27 01:17:00) [2]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");
Примечание: не работает под НТ
Желаю успехов
| |
