XProfan

DEF SetWindowLong(3)!"USER32","SetWindowLongA"
'DEF initDLL(<Anzahl Parameter>)!"eineDLL.dll","initDLL"
'DEF DEinitDLL(<Anzahl Parameter>)!"eineDLL.dll","DEinitDLL"
Declare ende%, dll&, icon&
winmain()
activities()
aufraeumen()

Proc winmain

    'dll& = UseDLL("eineDLL.dll")
    'If dll&
    ' initDLL(<Parameter>)
    'EndIf
    icon& = Create("hIcon","MAIN")
    Windowtitle "Titel"
    Windowstyle 8+16+512'8 = Mit Icon im Fenstertitel
    '512 = Dialogverhalten > nach Beendigung der Schleife wird der Code weiter corsa
    Window 0,0-800,600
    SendMessage(%HWnd,$80,1,icon&)'Icon auf Fenstertitel setzen
    SetWindowLong(%HWnd,-16,$92CA0000)'minimieren & X - Button, maiximieren deaktiviert - Vergrößern inaktiv
    'SetWindowLong(%HWnd,-16,$92CE0000) 'minimieren & X - Button, maiximieren deaktiviert - Vergrößern aktiv
    'SetWindowLong(%HWnd,-16,$92CB0000) 'minimieren, maiximieren & X - Button, - Vergrößern inaktiv
    'SetWindowLong(%HWnd,-16,$92CD0000) 'minimieren, maiximieren & X - Button, - Vergrößern aktiv
    DrawIcon icon&,10,10

Endproc

Proc activities

    Clear ende%

    WhileNot ende%

        Waitinput

        If (%Key = 2) | (%Key = 27)' X bzw. ALT + F4 oder ESC

            'ShowWindow(%HWnd,0) 'um "Flackern" von Fensterobjekten zu verhindern
            Inc ende%

        EndIf

    Endwhile

EndProc

Proc aufraeumen

    DeleteObject icon&

    If dll&'DLL aufräumen, eventuell DLL interne "free"-Funktion vorher aufrufen

        'DEinitDLL(<Parameter>)
        'FreeDLL dll&

    EndIf

    print "aufgeräumt ..."
    WaitInput

EndProc

END