Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 31.01.2010, 23:07
Аватар для AND_REY
AND_REY AND_REY вне форума
Активный
 
Регистрация: 31.03.2009
Адрес: Украина, г.Днепропетровск
Сообщения: 324
Версия Delphi: Delphi7
Репутация: 3877
Вопрос Температура HDD

Как узнать температуру жёсткого диска?
Спасибо за советы.
Ответить с цитированием
  #2  
Старый 31.01.2010, 23:36
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Копай в сторону S.M.A.R.T.
Ответить с цитированием
  #3  
Старый 01.02.2010, 01:33
Аватар для AND_REY
AND_REY AND_REY вне форума
Активный
 
Регистрация: 31.03.2009
Адрес: Украина, г.Днепропетровск
Сообщения: 324
Версия Delphi: Delphi7
Репутация: 3877
Радость

Спасибо разобрался.
Кому интересно вот код:

Код:
Var
Ip: Array [0..$1F] of Byte =
($00,$02,$00,$00,$D0,$01,$01,$4F,$C2,$A0,$B0,$00,$00,
 $00,$00,$00,$8C,$FD,$14,$00,$00,$02,$00,$00,$03,$00,
 $00,$00,$03,$00,$00,$00);

Function GetHDDTemperarure(Nhdd: byte): String;
Type
 TSmartData = Array [0..$20F] of Byte;
Var
 Op: TSmartData;
 H: Cardinal;
 br: DWORD;
begin
 H:= CreateFile(PChar('\\.\PhysicalDrive'+IntToStr(Nhdd)),$C0000000,3,nil, 3,0,0);
 DeviceIoControl(H,$0007C088,@Ip,$20,@Op,$210,br,nil);
 CloseHandle(H);
 Result:= IntToStr(Op[$A8]*$FF+Op[$A7]);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Label1.Caption:= 'Температура: '+GetHDDTemperarure(0)+' C^';
end;
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 11:11.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025