(Co-Admin)
Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
Turbo Delphi für Win32
|
Re: Power-Status des Computers ermitteln?
4. Mai 2004, 21:36
Ach, hier haste es:
Delphi-Quellcode:
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
procedure GetStatus;
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.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;
procedure TForm1.Button1Click(Sender: TObject);
begin
GetStatus;
end;
|
|
Zitat
|