| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Батарея

SniZ ©   (2003-07-24 12:59:00) 

как узнать сколько ее осталось в нотебуке?

---

SniZ   (2003-08-09 13:06:00) [1]

ok

---

echelon   (2003-08-06 19:09:00) [2]

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

---

SniZ   (2003-08-06 18:54:00) [3]

www.sniz.by.ru/Battery.zip

---

Vlad Oshin   (2003-08-04 11:47:00) [4]

Меня тож интересовало, но я делал по-другому :), а тут решил спросить
Я правильно делаю? В смысле никогда не переводил

typedef struct _SYSTEM_POWER_STATUS {
BYTE ACLineStatus;
BYTE BatteryFlag;
BYTE BatteryLifePercent;
BYTE Reserved1;
DWORD BatteryLifeTime;
DWORD BatteryFullLifeTime;
} SYSTEM_POWER_STATUS;
typedef struct SYSTEM_POWER_STATUS *LPSYSTEM_POWER_STATUS;

в привычный паскаль
вот решил попробовать, что то корявого есть?

lpSystemPowerStatus=^tPowerSt;
tPowerSt=record
ACLineStatus:byte;
BatteryFlag:byte;
BatteryLifePercent:byte;
Reserved1:byte;
BatteryLifeTime:Dword;
BatteryFullLifeTime:dword;
end;
TNtQSI = function(Ptr: Pointer): DWORD; stdcall;

var
Form1: TForm1;
NtS : TNtS;
Buf : array [1..20480] of char;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
hLib : DWORD;
// Buf : array [1..20480] of char;
PS:lpSystemPowerStatus;
// ptr:pointer;
begin
hLib := LoadLibrary("kernel32.DLL");
if hLib>0 then begin
@NtS := GetProcAddress(hLib,"GetSystemPowerStatus");
NtS(@Buf);
PS:=addr(buf);
memo1.Lines.Add(inttostr(PS.ACLineStatus));
memo1.Lines.Add(inttostr(PS.BatteryFlag));
memo1.Lines.Add(inttostr(PS.BatteryLifePercent));
memo1.Lines.Add(inttostr(PS.Reserved1));
memo1.Lines.Add(inttostr(PS.BatteryLifeTime));
( inttostr(PS.BatteryFullLifeTime)

Меня тож интересовало, но я делал по-другому :), а тут решил спросить
Я правильно делаю? В смысле никогда не переводил

typedef struct _SYSTEM_POWER_STATUS {
BYTE ACLineStatus;
BYTE BatteryFlag;
BYTE BatteryLifePercent;
BYTE Reserved1;
DWORD BatteryLifeTime;
DWORD BatteryFullLifeTime;
} SYSTEM_POWER_STATUS;
typedef struct SYSTEM_POWER_STATUS *LPSYSTEM_POWER_STATUS;

в привычный паскаль
вот решил попробовать, что то корявого есть?

lpSystemPowerStatus=^tPowerSt;
tPowerSt=record
ACLineStatus:byte;
BatteryFlag:byte;
BatteryLifePercent:byte;
Reserved1:byte;
BatteryLifeTime:Dword;
BatteryFullLifeTime:dword;
end;
TNtQSI = function(Ptr: Pointer): DWORD; stdcall;

var
Form1: TForm1;
NtS : TNtS;
Buf : array [1..20480] of char;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
hLib : DWORD;
// Buf : array [1..20480] of char;
PS:lpSystemPowerStatus;
// ptr:pointer;
begin
hLib := LoadLibrary("kernel32.DLL");
if hLib>0 then begin
@NtS := GetProcAddress(hLib,"GetSystemPowerStatus");
NtS(@Buf);
PS:=addr(buf);
memo1.Lines.Add(inttostr(PS.ACLineStatus));
memo1.Lines.Add(inttostr(PS.BatteryFlag));
memo1.Lines.Add(inttostr(PS.BatteryLifePercent));
memo1.Lines.Add(inttostr(PS.Reserved1));
memo1.Lines.Add(inttostr(PS.BatteryLifeTime));
memo1.Lines.Add(inttostr(PS.BatteryFullLifeTime));
end;

end;

---

jack128   (2003-08-03 22:33:00) [5]

> SniZ © (03.08.03 22:09)

Вот после этого

> SniZ © (03.08.03 12:00)
> ты лох ,понимаеш?

ты смеешь говорить

> HE U3DEBAUTECb
???

---

SniZ   (2003-08-03 22:09:00) [6]

HE U3DEBAUTECb please

---

Anatoly Podgoretsky   (2003-08-03 12:02:00) [7]

Линейкой померить, даже начальную длину знать необязательно, все что есть, то и осталось.

---

SniZ   (2003-08-03 12:00:00) [8]

Удалено модератором

---

Polevi   (2003-07-30 15:19:00) [9]

молодца

---

SniZ   (2003-07-30 11:40:00) [10]

xex HA msdn.com

---

Polevi   (2003-07-24 15:54:00) [11]

не хочу быть занудой, но я нашел ответ на этот вопрос на microsoft.com за 1 минуту набрав в строке поиска battery percent

резюме - делай как я и будет счастье

---

Polevi   (2003-07-24 15:52:00) [12]

GetSystemPowerStatus

---

SniZ   (2003-07-24 15:23:00) [13]

нет в процентах

---

Polevi   (2003-07-24 13:43:00) [14]

в граммах ?

---

Наверх