Кулера

← →
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°С за бортом отстегнулся радиатор, так я через месяц обнаружил. А камень жив до сих пор.

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

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

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

> vidiv

:))))

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