XProfan

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

Proc winmain

    'dll& = UseDLL("eineDLL.dll")
    'Si dll&
    ' initDLL(<Parameter>)
    'EndIf
    icon& = Créer("hIcon","MAIN")
    Windowtitle "Titel"
    Windowstyle 8+16+512'8 = avec Icon im Fenstertitel
    '512 = Dialogverhalten > pour Beendigung qui Boucle wird qui Code plus fonctionnement
    Fenêtre 0,0-800,600
    SendMessage(%HWnd,$80,1,icon&)'Icon sur Fenstertitel mettons
    SetWindowLong(%HWnd,-16,$92CA0000)'minimieren & X - Button, maiximieren deaktiviert - agrandir inaktiv
    'SetWindowLong(%HWnd,-16,$92CE0000) 'minimieren & X - Button, maiximieren deaktiviert - agrandir aktiv
    'SetWindowLong(%HWnd,-16,$92CB0000) 'minimieren, maiximieren & X - Button, - agrandir inaktiv
    'SetWindowLong(%HWnd,-16,$92CD0000) 'minimieren, maiximieren & X - Button, - agrandir aktiv
    DrawIcon icon&,10,10

ENDPROC

Proc activities

    Claire ende%

    WhileNot ende%

        Waitinput

        Si (%Key = 2) | (%Key = 27)' X bzw. ALT + F4 ou bien ESC

            'ShowWindow(%HWnd,0) 'um "Flackern" de Fensterobjekten trop verhindern
            Inc ende%

        EndIf

    Endwhile

ENDPROC

Proc aufraeumen

    DeleteObject icon&

    Si dll&'DLL aufräumen, eventuell DLL interne "free"-Funktion auparavant appel

        'DEinitDLL(<Parameter>)
        'FreeDLL dll&

    EndIf

    imprimer "aufgeräumt ..."
    WaitInput

ENDPROC

FIN