XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Windows-beenden-Dialog anzeigen
Lauffähig ab Profan-Version 5.0
PRFellow-Vorlage
Autor: Thomas Hölzer
Windows beenden - Dialog anzeigen
Def FindWindow32(2) !USER32,FindWindowA
Declare wclass#

Proc QuerySystemShutDown

    Dim wclass#,8
    String wclass#,0=ProgMan
    PostMessage(FindWindow32(wclass#,0),16,0,0)
    Dispose wclass#

EndProc

Beispiel
QuerySystemShutDown