Ich habe mal eine kleine
Unit dafür geschrieben. Fast nicht getestet, die Lebensdauer stimmt wohl noch nicht, ich habe gerade keine Zeit nachzuschauen. Das mache ich heute Abend, dann kommt noch ein Update.
// EDIT: aktuelle Version siehe weiter unten:
http://www.delphipraxis.net/178270-k...ml#post1241466
Zum Testen einfach:
Delphi-Quellcode:
uses
PowerStatusInfo;
ShowMessage(TPowerStatusInfo.StatusDescription);
Bei Delphi 2006 sollte das glaube ich alles schon so gehen.