XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
PC in Standbymodus runterfahren
Def @Setsystempowerstate(2) !kernel32, SetSystemPowerState
SetSystemPowerState fährt den Rechner in den Standbymodus herunter.
Parameter:
L1(Param.1 Longint )  - Ein Flag der angibt, wie der RAM behandelt werden soll.
Tabelle:Wert  Beschreibung
=> 0  - RAM wird auf Festplatte geschrieben.
=> 1  - RAM bleibt aktiv.
L2(Param.2 Longint )  - Ein Flag der angibt, ob vor dem Schalten in den Stanbymodus jede Anwendung ihr OK geben muss.
Tabelle:
Wert / Beschreibung
=> 0  - Wenn eine Anwendung ihr OK nicht gibt, wird nicht in den Standbymodus geschaltet.
=> 1  - Es wird ohne Nachfrage in den Standbymodus geschaltet.
Diese Funktion gibt es nicht unter WindowsNT.
Def @Setsystempowerstate(2) !kernel32, SetSystemPowerState
Print @Setsystempowerstate(1,0)

While 0 = 0

    Waitinput

Endwhile