VPF::Информация о системе - Форум программистов

Гость_lepricon

Дата 1.11.2005, 14:06 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Привет...

Подскажите, пожалуйста, как можно вытащить информацию о температуре процессора, о вращении кулера, о использовании памяти, о загрузке процессора, и запуженных процессах?

Спасибо...

_hunter

Дата 1.11.2005, 14:17 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 9
Всего: 98

1, 2 -- поиск по форуму
3 -- поиск по форуму
4... а что такое запуженный процесс?

--------------------

Tempora mutantur, et nos mutamur in illis...

p0s0l

Дата 1.11.2005, 16:39 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 14
Всего: 112

Цитата

и запуженных процессах

Это как "Ой, напужал ты меня!" smile

http://vingrad.ru/DELPHI-DLP-000786 (смотри GetProcessList)

--------------------

С уважением, г-н Посол.

tyko

Дата 2.11.2005, 14:38 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Привет братьям по несчатью!!! я тоже подобное ищу (информацию о температуре процессора, о вращении кулера). Если че найдешь, поделись здесь...

Вот кусок моей проги по использовании памяти

Код

procedure TForm1.LoadMemory(nn: string);
var
  lpMemoryStatus : TMemoryStatus;
  tn: TListItem;
  c: string;
begin
  lpMemoryStatus.dwLength := SizeOf(lpMemoryStatus);
  GlobalMemoryStatus(lpMemoryStatus);
  with lpMemoryStatus do
  begin
   if nn='1' then
   begin
    tn:=lv.Items.Add;
    tn.Caption:='Phisical memory';
    c := Format('%0.0f MB',[dwTotalPhys div 1024 / 1024]);
      tn:=lv.Items.Add;
      tn.Caption:=' Total';
      tn.SubItems.Add©;
    c := Format('%0.3f MB',[(dwTotalPhys-dwAvailPhys) div 1024 / 1024]);
      tn:=lv.Items.Add;
      tn.Caption:=' Used';
      tn.SubItems.Add©;
    c := Format('%0.3f MB',[dwAvailPhys div 1024 / 1024]);
      tn:=lv.Items.Add;
      tn.Caption:=' Free';
      tn.SubItems.Add©;
    c := IntToStr(dwMemoryLoad) + '%';
      tn:=lv.Items.Add;
      tn.Caption:=' Utilization';
      tn.SubItems.Add©;
    tn:=lv.Items.Add;
    tn:=lv.Items.Add;
   end;
   if nn='2' then
   begin
    tn:=lv.Items.Add;
    tn.Caption:='Swap space';
    c := Format('%0.0f MB',[dwTotalPageFile div 1024 / 1024]);
      tn:=lv.Items.Add;
      tn.Caption:=' Total';
      tn.SubItems.Add©;
    c := Format('%0.0f MB',[(dwTotalPageFile-dwAvailPageFile) div 1024 / 1024]);
      tn:=lv.Items.Add;
      tn.Caption:=' Used';
      tn.SubItems.Add©;
    c := Format('%0.0f MB',[dwAvailPageFile div 1024 / 1024]);
      tn:=lv.Items.Add;
      tn.Caption:=' Free';
      tn.SubItems.Add©;
    c:=Format('%0.0f',[((dwTotalPageFile-dwAvailPageFile) div 1024 / 1024)/(dwTotalPageFile div 1024 / 1024)*100]);
      tn:=lv.Items.Add;
      tn.Caption:=' Utilization';
      tn.SubItems.Add(c+'%');
    tn:=lv.Items.Add;
   end;
   if nn='3' then
   begin
    tn:=lv.Items.Add;
    tn.Caption:='Virtual space';
    c := Format('%0.0f MB',[dwTotalVirtual div 1024 / 1024]);
      tn:=lv.Items.Add;
      tn.Caption:=' Total';
      tn.SubItems.Add©;
    c := Format('%0.0f MB',[(dwTotalVirtual-dwAvailVirtual) div 1024 / 1024]);
      tn:=lv.Items.Add;
      tn.Caption:=' Used';
      tn.SubItems.Add©;
    c := Format('%0.0f MB',[dwAvailVirtual div 1024 / 1024]);
      tn:=lv.Items.Add;
      tn.Caption:=' Free';
      tn.SubItems.Add©;
    c:=Format('%0.0f ',[((dwTotalVirtual-dwAvailVirtual) div 1024 / 1024)/(dwTotalVirtual div 1024 / 1024)*100]);
      tn:=lv.Items.Add;
      tn.Caption:=' Utilization';
      tn.SubItems.Add(c+'%');
    tn:=lv.Items.Add;
    end;
    if nn='4' then
    begin
      tn:=lv.Items.Add;
      tn.Caption:=' Free';
      tn.SubItems.Add©;
      tn:=lv.Items.Add;
      tn.Caption:=' Utilization';
      tn.SubItems.Add©;
    end;
  end;
end;

Это сообщение отредактировал(а) p0s0l - 2.11.2005, 14:53

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »