Funktion um heraus zu finden ob NB am Stom hängt?

[Achtzig]

Die folgende Funktion ergibt TRUE, wenn das Notebook online ist:

Delphi-Quellcode:

Uses Windows;

Function NBOnline:Boolean;
Var Status:TSystemPowerStatus;
Begin
  If GetSystemPowerStatus(Status)
  Then Result:=Status.ACLineStatus=1
  Else Result:=False;
End;