XProfan

 $P+
SetErrorLevel 0
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
DECLARE BUTTON1&,ENDE%
WINDOWSTYLE 63
WINDOWTITLE "Neues Fenster"
WINDOW 22,20-351,190
SETTRUECOLOR 1
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
POPUP "Datei"
Appendmenu 100,"&Beenden ..."
Appendmenu 101,"&Windows neustarten ..."
Button1& = @Control("Button","Beenden",$50008000,0240,0110,0090,0020,%HWND,1002,%Hinstance)

PROC BUTTON1_ONCLICK

    GETMESSAGE
    @MessageBox
    ("Die Änderungen werden erst nach dem Neustart des Computers wirksam .
    Soll der Computer jetzt neu gestartet werden ?","Geänderte Systemeinstellungen",36)

    If (%Button = 6) Ja Button

        winexec("SHUTDOWN -r -t 00",0)Für Windows XP
        ExitWindows 1 Für Windows 2k

    Elseif (%Button = 7) Nein Button

        Ende%=1

    Endif

ENDPROC

SETFOCUS(%HWND)

WHILENOT ENDE%

    WAITINPUT

    If @EQU(%KEY,2)

        LET ENDE%= 1

    ELSEIF @EQU(%KEY,4)

    ELSEIF GETFOCUS(BUTTON1&) BUTTON

        BUTTON1_ONCLICK

    ELSEIF Menuitem(100)

        Ende%=1

    ELSEIF Menuitem(101)

        GETMESSAGE
        @MessageBox
        ("Die Änderungen werden erst nach dem Neustart des Computers wirksam .
        Soll der Computer jetzt neu gestartet werden ?
        Diese Meldung kann unter Optionen ausgeschaltet werden .","Geänderte Systemeinstellungen",36)

        If (%Button = 6) Ja Button

            winexec("SHUTDOWN -r -t 00",0)Für Windows XP
            ExitWindows 1 Für Windows 2k

        Elseif (%Button = 7) Nein Button

            Ende%=1

        Endif

    ENDIF

WEND