Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Информация о системе

Автор: Гость_lepricon 1.11.2005, 14:06

Привет...

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

Спасибо...

Автор: _hunter 1.11.2005, 14:17

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

Автор: p0s0l 1.11.2005, 16:39

Цитата

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

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

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

Автор: tyko 2.11.2005, 14:38

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

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

Код

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;