|
Jak sprawdzić, z jakiego źródła zasilany jest komputer? |
|
|
|
Napisał: Berl
|
|
sobota, 01 październik 2005 |
|
W przypadku komputera stacjonarnego oczywiście nie ma z tym problemu, gdyż zawsze jest zasilany z gniazdka sieciowego, ale na notebooku może być różnie. Do sprawdzenia, z jakiego źródła zasilany jest komputer, służy rekord TSystemPowerStatus. Używa się go w sposób następujący :
procedure TForm1.Button1Click(Sender: TObject);
var
SysPowerStatus: TSystemPowerStatus;
begin
GetSystemPowerStatus(SysPowerStatus);
if Boolean(SysPowerStatus.ACLineStatus) then
ShowMessage('Komputer jest zasilany z gniazdka.')
else
ShowMessage('Komputer jest zasilany z baterii.' + #13 + #10 +
'Bateria jest naładowana w ' +
IntToStr(SysPowerStatus.BatteryLifePercent) + ' %');
end;
Za pomocą TSystemPowerStatus możemy odczytać także inne wartości, charakteryzujące baterię.Aby dodać komentarz zaloguj się. Jeśli nie masz konta, załóż je sobie.
Tylko zarejestrowani użytkownicy mogą pisać komentarze. |
