Скачать: CL | DM;

Кулера   Найти похожие ветки 

← →
LOX ©   (2003-07-21 08:29) [0]

Как ПРОГРАММНО отключить кулера( а то а они шумя!) через DELPHI.

---

← →
Sheng ©   (2003-07-21 09:22) [1]

Ню-ню.

---

← →
Levan Varshanidze   (2003-07-21 09:25) [2]

Шумят, как двигатели от трактора ? :)
Может, смазать!
или, по краиекй мере, заменить вентилятор?

---

← →
mzu   (2003-07-21 09:49) [3]

попробуй поискать про технологию Q-Fan, но я не верю в успех программного отключения кулеров из винды.

---

← →
-=Vlad=- ©   (2003-07-21 10:29) [4]

Бяки писать нехорошо
LOX а Вы знаете, что AMD без кулера протянет не больше
20-30х секунд, а Intel не больне получаса. Так, что я не поверю, что Вы собираетесь писать не вирус, нехорошо здеся такие вопросы задавать, почитайте соглашение. Ну а если я все же ошибаюсь в своих предположениях, то одумайтесь проца ради.

---

← →
Alpon   (2003-07-21 10:46) [5]

Пример, используя WinAPI:

unit CoolCooler;

interface

uses Windows,Messages,SysUtils,WinCooler;

type
TCoolCooler = class(TCooler)
private
procedure CMCoolerState(var Message: TMessage); message CM_COOLERSTATE;
public
procedure CleanCooler;
end;

implementation

{ TCoolCooler }

procedure TCoolCooler.CleanCooler;
begin
SendMessage(Handle,CM_CLEANCOOLER,Ord(True),0);// чистим кулер перед смазкой //
SendMessage(Handle,CM_OILCOOLER,Ord(True),0); // смазываем //
end;

procedure TCoolCooler.CMCoolerState(var Message: TMessage);
begin
case TMessage(Message).WParam of
CM_COOLERISDIRTY: // если грязный //
if TMessage(Message).LParam=MUSTPHYSICALLYCLEAN then // если сильно загрязнен //
// надо чистить вручную //
Exception.Create("Виндоус не может очистить кулер, так как он очень грязный. "+
"Попробуйте это сделать вручную.")
else CleanCooler; // иначе чистим программно //
else
inherited; // если не грязный вызываем стандартный обработчик //
end;
end;

end.

---

← →
Manulo ©   (2003-07-21 10:53) [6]

> Alpon (21.07.03 10:46)

Интересный способ! Только с втягующим и процесорным всё прошло нормально, а вот на блоке питания стал почемуто вертется в другую сторону. Может для блока питания нужно где то знак менять?

---

← →
FoxBox   (2003-07-21 10:56) [7]

> Alpon

И не лень было писать... за творчество 5 баллов, повеселил, еще вышли обработчики сообщений CM_CLEANCOOLER CM_OILCOOLER

---

← →
Anatoly Podgoretsky ©   (2003-07-21 10:56) [8]

Проще делать это аппаратно, если не в курсе, то все они имеют разъем подключения.

---

← →
-=Vlad=- ©   (2003-07-21 15:29) [9]

АГА, только для апаратного отключения необходимо использовать API-функции SetCPUFan(CPUHandle:THandle;lpFanStat:DWORD) и GetCPUFan(CPUHandle:THandle;lpFanStat:DWORD) для настройки и определения состояния разъема соответсвенно.
Где CPUHandle - дескриптор на разъем процессорного кулера, получить его можно с помощью функции OpenFan;
А lpFanStat может быть CS_SETFAN и СS_CLRFAN для включения и выключения.
Пробовал использовать класс TCooler, но возникли теже проблемы, что и у Manulo, может кто объяснит почему, буду очень признателен.

---

← →
clickmaker ©   (2003-07-21 16:04) [10]

Чего мелочиться! Отключай также монитор (он тоже греется, да еще и излучает, падла) и винты (они крутятся). И будет у тебя бесшумная стиральная машина Аристон )))

---

← →
LOX ©   (2003-07-22 08:36) [11]

Я процесорный отключать нехочу. Я дополнительный поставил и хочу его отключать и включать когда надо.

---

← →
Джо   (2003-07-22 11:17) [12]

Попробуй уменьшить напряг на куллере (поменять местами желты и красные проводки местами). Куллер будет работать тише... если заведется, хотя и охлаждлать будет хуже

---

← →
Alpon ©   (2003-07-22 14:12) [13]

Есть еще предложение: можно сделать прогу, которая бы заглушала шум кулера и положить ее в автозагрузку или ярлык на рабочий стол, для экстренного вызова..

---

← →
zzet ©   (2003-07-22 14:56) [14]

>LOX а Вы знаете, что AMD без кулера протянет не больше
20-30х секунд, а Intel не больне получаса.

Ерунда. У меня на С1000 кулер пол-года назад накрылся, еще ни разу не сглючил.
Зачем их отключать? Просто выброси или замени на радиаторы.

---

← →
-=Vlad=- ©   (2003-07-23 12:52) [15]

zzet © (22.07.03 14:56)
>У меня на С1000 кулер пол-года назад накрылся, еще ни разу не >сглючил.
Да вы никак в сибире живете, а что вам говорит ваша система по поводу температуры проца и в корпусе?

---

← →
old_monkey   (2003-07-25 13:19) [16]

>>LOX а Вы знаете, что AMD без кулера протянет не больше
20-30х секунд, а Intel не больне получаса.

>Ерунда. У меня на С1000 кулер пол-года назад накрылся, еще ни разу не сглючил.
Зачем их отключать? Просто выброси или замени на радиаторы.

У меня прошлым летом при +30°С за бортом отстегнулся радиатор, так я через месяц обнаружил. А камень жив до сих пор.

---

← →
GebbelZ ©   (2003-07-25 22:30) [17]

у моего друга Duron~800 месяц без кулера работал. мама показывала около 70*C, но ничего - жив до сих пор

---

← →
reticon ©   (2003-07-26 02:59) [18]

> LOX © (21.07.03 08:29)
> Как ПРОГРАММНО отключить кулера( а то а они шумя!) через DELPHI.

!@#$%^&*

---

← →
PVOzerski ©   (2003-07-26 03:37) [19]

>Я процесорный отключать нехочу. Я дополнительный поставил и хочу его отключать и включать когда надо.
Смог дополнительный кулер поставить - так приделай еще и тумблер на корпус.

---

← →
vidiv ©   (2003-07-26 05:52) [20]

PVOzerski © (26.07.03 03:37)

а потом в дельфи:
uses Tumblers;
const tumstate:array[false..true] of Integer = (sts_off,sts_on);
...


procedure TForm1.CheckBox1Click(Sender: TObject);

var hTumbler:Thandle
begin
//SetTumblerState(Tumbler:tHandle;State:Integer);
hTumbler := FindTubmlerByCaption("Доп. кулер");
if hTumbler = 0 then
ShowMessage("Тумблер не найден")
else
begin
SetTumblerState(hTumbler,tumstate[CheckBox1.Checked]);
( hTumbler) PVOzerski © (26.07.03 03:37)

а потом в дельфи:
uses Tumblers;
const tumstate:array[false..true] of Integer = (sts_off,sts_on);
...


procedure TForm1.CheckBox1Click(Sender: TObject);

var hTumbler:Thandle
begin
//SetTumblerState(Tumbler:tHandle;State:Integer);
hTumbler := FindTubmlerByCaption("Доп. кулер");
if hTumbler = 0 then
ShowMessage("Тумблер не найден")
else
begin
SetTumblerState(hTumbler,tumstate[CheckBox1.Checked]);
CloseHandle(hTumbler)
end;
end;

Естественно должен быть CheckBox1

---

← →
Alpon ©   (2003-08-06 11:17) [21]

> vidiv

:))))

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.5 MB
Время: 0.012 c