XProfan

Italia

Beschreibung:

GetSystemPowerStatus liefert Informationen circa die Stromquellen des Rechners zurück. Diese Funktion gibt es nicht unter WindowsNT.

Deklaration:

DEF @GetSystemPowerStatus(1) !kernel32,GetSystemPowerStatus

Parameter:

1.Parameter: SYSTEM_POWER_STATUS Struktur oder 12 Bytes grande Bereichsvariable, die Informationen circa die Stromquellen aufnimmt. =>
Byte 0 = Flag der angibt, ob der Rechner an eine Steckdose angeschlossen ist:
-0 = Nein
-1 = Ja
-255 = Ist unbekannt.
Byte 1 = Kombinationsflag, der den Ladestatus der Batterien zurückgibt:
-1 = Ladung hoch.
-2 = Ladung gering.
-4 = Ladung kritisch.
-8 = Batterie wird geladen.
-128 = Keine Systembatterie vorhanden.
-255 = Unbekannter Ladestatus
Byte 2 = Prozentuale Ladung des Akkus:
-0 bis 100 = Ladung in Prozent.
-255 = Ladung unbekannt.
Byte 3 = Reserviert, muss 0 sein.
Byte 4-7 = Ein LongIntwert der angibt, wie viele Sekunden die Batterie noch hält. Wenn hier $FFFFFFFF steht, ist die Zeit unbekannt.
Byte 8-11 = Die Zeit in Sekunden, die der Akku hält, wenn er voll aufgeladen ist oder $FFFFFFFF, wenn die Zeit unbekannt ist.

Rückgabewert:

1 bei erfolgreichem Auslesen, 0 bei Fehler.

Beispiele:

Kompilieren Markieren Separieren

DEF @GetSystemPowerStatus(1) !"kernel32","GetSystemPowerStatus"
Declare SystemPowerStaus#
Windowstyle 31
Windowtitle "Angeschlossene Hauptstromquelle"
Window 0,0-640,440

While 0=0

    sleep 10
    DIM SystemPowerStaus#,12
    @GetSystemPowerStatus(SystemPowerStaus#)

    IF @BYTE(SystemPowerStaus#,1)=0

        Drawtext 0,0,"Batterie                            "
        Startpaint %HDC
        drawtext 0,0,"Batterie                           "
        endpaint
        Startpaint %HDC2
        drawtext 0,0,"Batterie                            "
        endpaint

    elseIF @BYTE(SystemPowerStaus#,0)=1

        Drawtext 0,0,"Steckdose                            "
        Startpaint %HDC
        drawtext 0,0,"Steckdose                           "
        endpaint
        Startpaint %HDC2
        drawtext 0,0,"Steckdose                           "
        endpaint

    else

        Drawtext 0,0,"Stromquelle unbekannt"
        Startpaint %HDC
        drawtext 0,0,"Stromquelle unbekannt"
        endpaint
        Startpaint %HDC2
        drawtext 0,0,"Stromquelle unbekannt"
        endpaint

    endif

    Dispose SystemPowerStaus#

Wend