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

[toblinga]

Hallo,
würde mir gern ein Programm schreiben, das erkennt ob mein NB am Strom hängt oder nicht. Wenn er nicht am Netz hängt, soll er automatisch die Lautstärke auf "stumm" schalten. (Nichts ist schlimmer als der Anmeldesound wärend einer Vorlesung ;-) ) Er soll natürlich auch die Powermanagment ändern, usw.

Kann mir jemand sagen wie man mit Delphi erkennt, ob der NB am netz (Strom) hängt oder nicht?

Bessser noch wenn jemand so ein Programm hat, bzw. kennt bitte auch sagen ;-)

Danke im Voraus!

[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;