|
Вопрос # 2 885/ вопрос открыт / |
|
Здравствуйте, эксперты!
Подскажите пожалуйста, как написать процедуру для вывода на экран информации об оставшемся заряде аккумулятора ноутбука. Заранее спасибо!
 |
Вопрос задал: Rayden (статус: Посетитель)
Вопрос отправлен: 4 июня 2009, 19:41
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Пупкин В В
Здравствуйте, Rayden!
Для получения информации об уровне заряда батареи воспользуемся функцией GetSystemPowerStatus. Также с помощью нее можно определить работает компьютер от сети или нет. Поместим на форму компоненты TMemo и TButton. Листинг кода представлен ниже:
Приложение: Переключить в обычный режим- unit Unit1;
-
- interface
-
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls;
-
- type
- TForm1 = class(TForm)
- Memo1: TMemo;
- Button1: TButton;
- procedure FormCreate(Sender: TObject);
- procedure Button1Click(Sender: TObject);
- private
- { Private declarations }
- procedure UpdateInfo(Info: TStrings);
-
- public
- { Public declarations }
- end;
-
- var
- Form1: TForm1;
-
- implementation
-
- {$R *.dfm}
-
- procedure TForm1.Button1Click(Sender: TObject);
- begin
-
- Memo1.Clear;
- UpdateInfo(Memo1.Lines);
- end;
-
- procedure TForm1.FormCreate(Sender: TObject);
- begin
-
- UpdateInfo(Memo1.Lines);
- end;
-
- procedure TForm1.UpdateInfo(Info: TStrings);
-
- var
- st: TSystemPowerStatus;
- s: string;
- begin
-
-
-
-
-
-
- end;
-
-
-
-
-
-
-
-
-
-
- end;
-
-
-
-
-
- else s := TimeToStr(st.BatteryLifeTime / SecsPerDay);
-
-
-
- else s := TimeToStr(st.BatteryFullLifeTime / SecsPerDay);
-
- end;
-
- end.
 |
Ответ отправил: Пупкин В В (статус: 2-ой класс)
Время отправки: 5 июня 2009, 10:23
Оценка за ответ: 5
Комментарий к оценке: Спасибо, Вы мне очень помогли!!!
|
Мини-форум вопроса
Всего сообщений: 3; последнее сообщение — 5 июня 2009, 10:28; участников в обсуждении: 2.
|
min@y™ (статус: Доктор наук), 5 июня 2009, 08:15 [#1]:
Дык берёшь любой компонент-индикатор, типа TProgressBar или TGauge и задаёшь ему Position:= процент_заряда_аккумулятора. Вот и всё.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Rayden (статус: Посетитель), 5 июня 2009, 10:09 [#2]:
Это понятно, все дело в том, как узнать этот заряд аккумулятора, какой он в данный момент, есть ли для этого какая-нибудь функция или тп.?
|
|
|
min@y™ (статус: Доктор наук), 5 июня 2009, 10:28 [#3]:
Цитата:
Подскажите пожалуйста, как написать процедуру для вывода на экран информации об оставшемся заряде аккумулятора ноутбука.
Учись правильно задавать вопросы!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
