Процессор и Память
Как можно показать загрузку ЦП и количество свободной памяти???
Заранее благодарю!
Привет всем!
Как можно показать загрузку ЦП и количество свободной памяти???
Заранее благодарю!
Есть такая функция GlobalMemoryStatus, она возвращает всю инфу о памяти и загрузке ЦП.
Я когда-то писал тестер памяти вот тебе кусок кода:
var mm: TMemoryStatus;
begin
GlobalMemoryStatus(mm);
tphm.Text:=inttostr(mm.dwTotalPhys div 1024)+' Кб';
aphm.Text:=inttostr(mm.dwAvailPhys div 1024)+' Кб';
tswm.Text:=inttostr(mm.dwTotalPageFile div 1024)+' Кб';
aswm.Text:=inttostr(mm.dwAvailPageFile div 1024)+' Кб';
tvm.Text:=inttostr(mm.dwTotalVirtual div 1024)+' Кб';
avm.Text:=inttostr(mm.dwAvailVirtual div 1024)+' Кб';
em.Text:=inttostr(mm.dwMemoryLoad)+'%';
end;
Есть такая функция GlobalMemoryStatus, она возвращает всю инфу о памяти и загрузке ЦП.
Я когда-то писал тестер памяти вот тебе кусок кода:
var mm: TMemoryStatus;
begin
GlobalMemoryStatus(mm);
tphm.Text:=inttostr(mm.dwTotalPhys div 1024)+' Кб';
aphm.Text:=inttostr(mm.dwAvailPhys div 1024)+' Кб';
tswm.Text:=inttostr(mm.dwTotalPageFile div 1024)+' Кб';
aswm.Text:=inttostr(mm.dwAvailPageFile div 1024)+' Кб';
tvm.Text:=inttostr(mm.dwTotalVirtual div 1024)+' Кб';
avm.Text:=inttostr(mm.dwAvailVirtual div 1024)+' Кб';
em.Text:=inttostr(mm.dwMemoryLoad)+'%';
end;
Привет Saris спасибо тебе за данный код! Работает на 5+ какраз то, что мне нужно!
Скажи, а у тебя, нет ли чего нибудь подобного, но про CPU?
Спасибо за внимание!
Привет Saris спасибо тебе за данный код! Работает на 5+ какраз то, что мне нужно!
Скажи, а у тебя, нет ли чего нибудь подобного, но про CPU?
Спасибо за внимание!
А что именно тебе нужно знать про CPU???
А что именно тебе нужно знать про CPU???
Показать степень загрузки процессора
Показать степень загрузки процессора
Почитай здесь:
http://www.sources.ru/delphi/delphi_get_active_threads.shtml
Почитай здесь:
http://www.sources.ru/delphi/delphi_get_active_threads.shtml
Но там только для Windpws 9x!