XProfan

Français

Beschreibung:

GetSystemPowerStatus liefert Informationen sur qui Stromquellen des Rechners zurück. cet Funktion gibt es pas sous WindowsNT.

Deklaration:

DEF @GetSystemPowerStatus(1) !kernel32,GetSystemPowerStatus

paramètre:

1.paramètre: SYSTEM_POWER_STATUS Struktur ou bien 12 Bytes grand Bereichsvariable, qui Informationen sur qui Stromquellen aufnimmt. =>
Byte 0 = Flag qui angibt, si qui calculateur à une Steckdose angeschlossen ist:
-0 = non
-1 = oui
-255 = Ist inconnu.
Byte 1 = Kombinationsflag, qui den Ladestatus qui Batterien zurückgibt:
-1 = la charge hoch.
-2 = la charge gering.
-4 = la charge kritisch.
-8 = pile wird geladen.
-128 = aucun Systembatterie vorhanden.
-255 = Unbekannter Ladestatus
Byte 2 = Prozentuale la charge des Akkus:
-0 jusqu'à 100 = la charge dans Prozent.
-255 = la charge inconnu.
Byte 3 = Reserviert, muss 0 son.
Byte 4-7 = un LongIntwert qui angibt, comment viele Sekunden qui pile encore hält. si ici $FFFFFFFF steht, ist qui Zeit inconnu.
Byte 8-11 = qui Zeit dans Sekunden, qui qui Akku hält, si il voll aufgeladen ist ou bien $FFFFFFFF, si le Zeit inconnu ist.

Rückgabewert:

1 chez erfolgreichem Lecture, 0 chez faute.

Beispiele:

Kompilieren Marque Séparation

DEF @GetSystemPowerStatus(1) !"kernel32","GetSystemPowerStatus"
Déclarer SystemPowerStaus#
Windowstyle 31
Windowtitle "Angeschlossene Hauptstromquelle"
Fenêtre 0,0-640,440

Tandis que 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

    d'autre

        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