Всем доброго времени суток!
И снова тупик в моей голове, подскажите пожалуйста как узнать температуру проца (Intel).
Желательно на Delphi.
Заранее огромное спасибо!

| Сообщение посчитали полезным:

MasterSoft
Смотри тут http://forum.sources.ru/showtopic=116287&st=0&#entry869543

-----
Сотрудник DHARMA

| Сообщение посчитали полезным:

Спасибо!Но там я уже был.
Только там пример определения температуры мамки, а не процессора!

| Сообщение посчитали полезным:

почитай мануалы по команде CPUID.
на 100% не уверен но думаю что через неё можно получить.

| Сообщение посчитали полезным:

Всем привет!Не знаю помогу ли, но вот ссылка на книжки по Delphi: golden-books.narod.ru/books/computer/programming/delphi/delphi.html. Скачка с letitbit.

| Сообщение посчитали полезным:

Блин, точку в конце ссылки поставил, потому не работает! Вот рабочая: golden-books.narod.ru/books/computer/programming/delphi/delphi.html Не сочтите за флуд, просто ошибся

| Сообщение посчитали полезным:

Вы осоловели чтоле совсем? погуглить слабо пред тем как постить?
http://www.google.com/search?client=opera&rls=ru&q=Delphi+%D0%BA%D0%B0 %D0%BA+%D1%83%D0%B7%D0%BD%D0%B0%D1%82%D1%8C+%D1%82%D0%B5%D0%BC%D0%BF%D 0%B5%D1%80%D0%B0%D1%82%D1%83%D1%80%D1%83+%D0%BF%D1%80%D0%BE%D1%86%D0%B 0&sourceid=opera&ie=utf-8&oe=utf-8 http://www.google.com/search?client=opera&rls=ru&q=Delphi+%D0%BA%D0%B0%D0%BA+%D1%83%D0%B7%D0%BD%D0%B0%D1%82%D1%8C+%D1%82%D0%B5%D0%BC%D0%BF%D0%B5%D1%80%D0%B0%D1%82%D1%83%D1%80%D1%83+%D0%BF%D1%80%D0%BE%D1%86%D0%B0&sourceid=opera&ie=utf-8&oe=utf-8

add: фтопку letitbit, перезалейте уже на рапиду хотябы

| Сообщение посчитали полезным:

LazzY
Гуглил всю ночь!
Не одного реально-работающего примера.

web_ster
Увы братан, не помог!

| Сообщение посчитали полезным:

MasterSoft

Если устраивает испоьзвание ActiveX то можно делать через WMI.

Component -> Import Component -> Import Type Library -> Microsoft WMI Scripting vX.X...

8803_10.12.2008_CRACKLAB.rU.tgz - CpuSysTemp.zip

ЗЫ:
Сам не проверял но работать должно

| Сообщение посчитали полезным:

arnix

Спасибо большое, но насколько я знаю WMI не даёт никакой универсальности.
Даже если использовать только на Intel.

Я вот нашёл функцию одну.
Может кто поможет, некомпилится, выскакивает Privileged instruction.

Собственно сама функция:

function ReadTemp:Word;
var
tmp1: byte;
tmp2: byte;
Temp: word;
Temp1: integer;
i:integer;
begin
asm
mov cx,128
mov dx,$0295
@WaitReady1:
in al,dx //ТУТ
and al,128
jz @ExitWait
dec cx
jnz @WaitReady1
@ExitWait:
mov dx,$0295
mov al,78
out dx,al
inc dx
mov al,1
out dx,al
mov dx,0295h
mov al,80
out dx,al
inc dx
in al,dx
shl al,1
mov tmp1,al
mov dx,0295h
mov al,81
out dx,al
inc dx
in al,dx
shr al,7
mov tmp2,al
xor ah,ah
xor cx,cx
mov al,tmp1
mov cl,tmp2
add ax,cx
shr ax,1
mov Temp,ax
end;
Temp1:=0;
if (Temp>0) and (Temp<100) then
begin
for i:=0 to 3 do AverageTemp[i]:=AverageTemp[i+1];
AverageTemp[4]:=Temp;
if AverageTemp[0]=0 then for i:=0 to 3 do AverageTemp[i]:=AverageTemp[4];
for i:=0 to 4 do Temp1:=Temp1+AverageTemp[i];
Temp1:=round(Temp1 / 5);
end;
if Temp1<0 then Temp1:=0;
if Temp1>65536 then Temp1:=0;
Result:=Temp1;
end;

| Сообщение посчитали полезным:

MasterSoft
Естественно. Под WinNT и выше такой код работать не будет, если только ты не напишешь свой драйвер, в котором это будет работать.

| Сообщение посчитали полезным:

Yotun
Спасибо, просветил.
А переделать код никак нельзя?

| Сообщение посчитали полезным:

А переделать код никак нельзя?

Разве что WinNT поставить Напиши драйвер, в нем сможешь с in/out к портам обращаться или ищи другую реализацию

-----
Gutta cavat lapidem. Feci, quod potui. Faciant meliora potentes

| Сообщение посчитали полезным:

MasterSoft тебе эта процедура даже с драйвером ничем не поможет. Для разных чипсетов адреса будут разные. Копай в сторону WMI.

| Сообщение посчитали полезным:

coderess
Извини но WinNT на х.. мне не нужен, должно работать под XP, Vista.

SergX
Просто нет желания использовать WMI (как уже писал способ не универсален).
Из bios никак нельзя прочитать случайно?
Кстати на асме не похожего кода (переделал бы).

ЗЫ
Вообще я хотел определить температуру мамки, видеокарты, hdd и процессора.
Думал, что данные проца будет легче всего выяснить, оказалось наобарот!

| Сообщение посчитали полезным:

MasterSoft

Еще вариант - www.hwinfo.com
Там есть SDK

Добавлено:
Оказалось за SDK они деньги хотят

| Сообщение посчитали полезным:

вставлю и свои 3 копейки: по моему, только 2 варианта - либо WMI, либо собирать базу спецификаций для всего разнообразия железа.

| Сообщение посчитали полезным:

Отдам даже свои 3 копейки, но только не WMI.
Кстати вот мне arnix подсказал этот компонент, ничЁ вроде www.hwinfo.com

ЗЫ
Не знаете где его можно скачать хотя бы триал?!

| Сообщение посчитали полезным:

Я всё-таки нашёл применение данному коду.
Использовал самописный драйвер от Криса Касперски (giveio.sys).
Всё работает, но правдо к железу привередлив. (на компе нормально, на ноуте показывает 0).

Выкладываю сорцы с бинарником, если может кто протестируйте на висте!

1ca0_12.12.2008_CRACKLAB.rU.tgz - cpu.rar

| Сообщение посчитали полезным:

пользуясь данным постом, есть вопрос по дельфе что бы не создавать новый топ вот вопрос... вопрос тупой но меня мучает не могу разобраться! как в дельфе сделать чтобы по нажатии на батон1 выскакивал попап меню1 как в DiE по нажатии на кнопку ">>" (вкладка: Scan над кнопкой Open PE) вариант появления по позиции курсора не идёт... помогите

| Сообщение посчитали полезным:

lobs, попробуй так, у меня работает:



-----
Лучше быть одиноким, но свободным © $me

| Сообщение посчитали полезным:

lobs
На дельфи итак все облегчено до безумия, а тут и думать не хочешь. Какой же тогда ты девелопер ?

-----
My love is very cool girl.

| Сообщение посчитали полезным:

borov пишет:
lobs, попробуй так, у меня работает:
спасибо большое! то, что нужно!

theCollision пишет:
lobs
На дельфи итак все облегчено до безумия, а тут и думать не хочешь. Какой же тогда ты девелопер ?

ты прав! но я столько мучался не получалось! поэтому решил спросить...

| Сообщение посчитали полезным:

Раз уж на то пошло.
Подскажите плиз, как вывести форму моего приложения поверх всех окон ( имею в виду поверх игр ).

ЗЫ
Насколько я понимаю надо использовать DirectX or OpenGL.
Правда я в этом вообще не бум-бум.

Заранее спасибо.

| Сообщение посчитали полезным:

>> но я столько мучался не получалось! поэтому решил спросить...
ну так надо было привести те варианты, которые ты пробовал! Которые у тебя не получились, может ты там мелочь забыл указать и это куда было бы лучше ;)

-----
My love is very cool girl.

| Сообщение посчитали полезным:

MasterSoft поверх игр это уже связано с DirectX или OpenGL
а так можешь попробовать SetWindowPos(Handle, HWND_TOPMOST... или же на форме
FormStyle =fsStayOnTop

-----
Gutta cavat lapidem. Feci, quod potui. Faciant meliora potentes

| Сообщение посчитали полезным:

coderess
А ты в DirectX сечёшь?
А то может поделишься ссылочкой на мануал

| Сообщение посчитали полезным:

Подфорум, конечно, программирования, но всё же никак не стоит лепить сюда вопросы, как бы мне в дельфе нарисовать своё окошко/менюшку/прочие рюшечки. По дельфям форумов и так должно хватать.
Закрыл глаза на температуру, дык напостили какой-то фигни. Закрыто.

| Сообщение посчитали полезным: