Hab diese Lösung zur realisierung gefunden.
Code:
procedure GetStatus;
var SystemPowerStatus: TSystemPowerStatus;
begin
GetSystemPowerStatus(SystemPowerStatus);
with SystemPowerStatus do begin
// Wird das System mit Wechselstrom oder Akku betrieben ?
case ACLineStatus of
0: Label1.Caption := 'System wird mit Akku betrieben';
1: Label1.Caption := 'System wird mit Wechselstrom betrieben';
else Label1.Caption := 'Unbekannter Status';
end;
// Ladezustand der Batterie
case BatteryFlag of
1 : Label2.Caption := 'Hoher Ladezustand';
2 : Label2.Caption := 'Niedriger Ladezustand';
4 : Label2.Caption := 'Kritischer Ladezustand';
8 : Label2.Caption := 'Die Batterie wird geladen';
128: Label2.Caption := 'Es existiert keine System-Batterie';
255: Label2.Caption := 'Unbekannter Status';
end;
// Ladezustand in Prozent
if BatteryLifePercent <> 255 then
Label3.Caption := IntToStr(BatteryLifePercent) + ' %'
else
Label3.Caption := 'Unbekannter Status';
end;
end;
Nur beim Compeilieren des codes bekomme ich immer folgende fehlermeldungen.
[Error] Unit1.pas(34): Undeclared identifier: 'Label1'
[Error] Unit1.pas(35): Missing operator or semicolon
[Error] Unit1.pas(36): Missing operator or semicolon
[Error] Unit1.pas(41): Undeclared identifier: 'Label2'
[Error] Unit1.pas(42): Missing operator or semicolon
[Error] Unit1.pas(43): Missing operator or semicolon
[Error] Unit1.pas(44): Missing operator or semicolon
[Error] Unit1.pas(45): Missing operator or semicolon
[Error] Unit1.pas(46): Missing operator or semicolon
[Error] Unit1.pas(51): Undeclared identifier: 'Label3'
[Error] Unit1.pas(53): Missing operator or semicolon
[Fatal Error] Project1.dpr(5): Could not compile used
unit 'Unit1.pas'
Esetze ich die label mit showmessage dann gehts.
Und hat irgend wer noch mehr infos was ich da alles auslesen kann.
Mfg joe666sa