Батарея

← →
SniZ © (2003-07-24 12:59) [0]

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

← →
Polevi © (2003-07-24 13:43) [1]

в граммах ?

← →
SniZ © (2003-07-24 15:23) [2]

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

← →
Polevi © (2003-07-24 15:52) [3]

GetSystemPowerStatus

← →
Polevi © (2003-07-24 15:54) [4]

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

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

← →
SniZ © (2003-07-30 11:40) [5]

xex HA msdn.com

← →
Polevi © (2003-07-30 15:19) [6]

молодца

← →
SniZ © (2003-08-03 12:00) [7]

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

← →
Anatoly Podgoretsky © (2003-08-03 12:02) [8]

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

← →
SniZ © (2003-08-03 22:09) [9]

HE U3DEBAUTECb please

← →
jack128 © (2003-08-03 22:33) [10]

> SniZ © (03.08.03 22:09)

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

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

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

> HE U3DEBAUTECb
???

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

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;

www.sniz.by.ru/Battery.zip

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

Батарея Найти похожие ветки