XProfan

 $P+
SetErrorLevel 0
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
---------Fenster-------------------------------------------------------
WINDOWSTYLE 63
WINDOWTITLE "Button Texte"
WINDOW 22,20-450,180
SETTRUECOLOR 1
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
DECLARE BUTTON1&,BUTTON2&,ende&,TEXT1&,TEXT2&
ende& = CREATE("BUTTON",%HWND,"Ende",0320,0110,0090,0025)
Button1& = CREATE("Button",%HWND,"",0012,0075,0190,0025)
Button2& = CREATE("Button",%HWND,"",0220,0075,0190,0025)
TEXT1& = CREATE("TEXT",%HWND,"PC eingeschaltet",0030,0030,0100,0020)
TEXT2& = CREATE("TEXT",%HWND,"PC ausgeschaltet",0230,0030,0100,0020)
Create("Tooltip",%HWND,BUTTON1&,"Hier PC einschalten ...")
Create("Tooltip",%HWND,BUTTON2&,"Hier PC ausschalten ...")
---------- Erklärung Button 1 ---------------------------------------------

PROC BUTTON1_ONCLICK

    Declare hD%, OK%--------- hier wird die Button.exe beendet  (wichtig) -----
    Let Ok% = 1
    Let Ende% = 1
    @DestroyWindow(hD%)
    ----------------------------------------------------------------------------
    Writeini getdir$("@")+"Button.ini","Buttontext","PC eingeschaltet"="Ja"
    Writeini getdir$("@")+"Button.ini","Buttontext","PC ausgeschaltet"="Nein"
    --------- Das oberige wird in die Button.ini geschrieben -------------------
    Shell "Button"--------- und hier wird die Button.exe neu gestartet ---------

ENDPROC

----------- Ende erklärung Button 1 (Button 2 das selbe)--------------------
----------------------------------------------------------------------------

PROC BUTTON2_ONCLICK

    Declare hD%, OK%
    Let Ok% = 1
    Let Ende% = 1
    @DestroyWindow(hD%)
    Writeini getdir$("@")+"Button.ini","Buttontext","PC eingeschaltet"="Nein"
    Writeini getdir$("@")+"Button.ini","Buttontext","PC ausgeschaltet"="Ja"
    Shell "Button"

ENDPROC

---------- Die Button.ini einlesen und Text auf dem Button 1 schreiben --------------------

If Readini$(getdir$("@")+"Button.ini","Buttontext","PC eingeschaltet")="Ja"-----einlesen

    SetText Button1&,"Ja" -----Buttontext------

Elseif Readini$(getdir$("@")+"Button.ini","Buttontext","PC eingeschaltet")="Nein"

    SetText Button1&,"Nein" -----Buttontext---
    Else -------------------------------------Wenn Datei nicht existiert
    SetText Button1&,"BUTTON.INI nicht vorhanden"   -----Buttontext

Endif

---------- Die Button.ini einlesen und Text auf dem Button 1 schreiben ende----------------

If Readini$(getdir$("@")+"BUTTON.INI","Buttontext","PC ausgeschaltet")="Ja"

    SetText Button2&,"Ja"

Elseif Readini$(getdir$("@")+"BUTTON.INI","Buttontext","PC ausgeschaltet")="Nein"

    SetText Button2&,"Nein"
    Else --------------------------------------Wenn Datei nicht existiert
    SetText Button2&,"BUTTON.INI nicht vorhanden"

Endif

SETFOCUS(%HWND)

WHILENOT ENDE%

    WAITINPUT

    If @EQU(%KEY,2)

        LET ENDE%= 1

    ELSEIF @EQU(%KEY,4)

    ELSEIF GETFOCUS(BUTTON1&) BUTTON

        BUTTON1_ONCLICK

    ELSEIF GETFOCUS(BUTTON2&) BUTTON

        BUTTON2_ONCLICK

    ELSEIF GETFOCUS(ende&) BUTTON

        ende%=1

    Endif

WEND