Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Источник бесперебойного питания [D7, Win2k]

Serg1981 © (2005-08-04 20:54:00)
Привет всем ! Как узнать, что компьютер перешёл на питание от батареи ИБП ? И соответственно как отловить момент перехода на питание от сети ? Заранее спасибо.

Antonn (2005-08-07 13:24:00) [1]
не проверял:

var
SysPowerStatus: TSystemPowerStatus;
begin
GetSystemPowerStatus(SysPowerStatus);
if Boolean(SysPowerStatus.ACLineStatus) then begin
//розетка
end
else begin
//батарейки
//Format('Battery power left: %d percent.', [SysPowerStatus.BatteryLifePercent]) - сколько в граммах
end;
end;

Anatoly Podgoretsky (2005-08-05 22:53:00) [2]
На ХР можно обойтись и без APC Power Chute, Виндоус поддерживает его напрямую.

Serg1981 (2005-08-05 22:52:00) [3]
У меня APC Back CS 650EI, подключен по USB. На ПК стоит WinXP и APC Power Chute

Anatoly Podgoretsky (2005-08-05 22:40:00) [4]
WM_POWERBROADCAST

y-soft (2005-08-05 22:29:00) [5]
В принципе можно использовать WMI (класс Win32_UninterruptiblePowerSupply), но срабатывает не для всех моделей ИБП. У меня дома, например, Ippon в упор не видит...

DC-AC (2005-08-05 12:31:00) [6]
ИБП какой ? Если не важно какой - тогда задача решается не так легко. Если конкретного производителя - или через события "егойной" утилиты или напрямую, наприме через COM-порт, в сети есть протоколы на некоторые UPS.

Leonid Troyanovsky (2005-08-05 10:19:00) [7]

> Serg1981 © (05.08.05 09:06) [3]
> Я хочу узнать это из под Делфи, чтобы выдать сообщение в
> программе, что питания от сети нет.

http://groups-beta.google.com/group/borland.public.delphi.vcl.components.using.win32/msg/deb7feecc426a10d

--
Regards, LVT.

Serg1981 (2005-08-05 09:06:00) [8]
Я хочу узнать это из под Делфи, чтобы выдать сообщение в программе, что питания от сети нет.

isasa (2005-08-05 00:46:00) [9]
А что на ИБП индикаторов нет?
Кроме этого - утилиты. Пдключение через USB(COM) порт.

Eraser (2005-08-04 22:00:00) [10]
Serg1981 © (04.08.05 20:54)

Никак.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »