XProfan

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

Proc winmain

    'dll& = UseDLL("eineDLL.dll")
    'If dll&
    ' initDLL(<Parameter>)
    'EndIf
    icon& = Crear("hIcon","MAIN")
    Windowtitle "Titel"
    Windowstyle 8+16+512'8 = Mit Icon en el Fenstertitel
    '512 = Dialogverhalten > después de Beendigung el Bucle se el Code más ausgeführt
    Ventana 0,0-800,600
    SendMessage(%HWnd,$80,1,icon&)'Icon en Fenstertitel conjunto
    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

    Claro ende%

    Sinestar encargado ende%

        Waitinput

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

            'ShowWindow(%HWnd,0) 'en "Flackern" de Fensterobjekten a verhindern
            Inc ende%

        EndIf

    Endwhile

ENDPROC

Proc aufraeumen

    DeleteObject icon&

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

        'DEinitDLL(<Parameter>)
        'FreeDLL dll&

    EndIf

    imprimir "aufgeräumt ..."
    WaitInput

ENDPROC

FIN