Bloquer / débloquer les entrées clavier / souris

rem ============================================================================
rem                         BlockInput
rem Bloquer les évènements clavier et souris que les applications essayent de gérer.
rem ============================================================================
rem Util par exemple pour bloquer le click sur un bouton ou la pression sur une
rem touche du clavier pendant un calcul ou un long traitement.
rem ============================================================================
' Exemple d'utilisation
label calcul
dim Block_Input%,i,resultat
font_bold 0
button 10 : top 10,50 : left 10,200 : font_bold 10 : caption 10,"Calcul"
on_click 10,calcul
dll_on "user32"

end
rem ============================================================================
Calcul:
    cls
    print_locate 100,100 : print "L'Input clavier et souris est bloqué pendant le calcul !"
    print_locate 100,120 : print "Votre click n'est plus pris en charge !"

    Block_Input% = dll_call1("BlockInput",0) : ' Bloquer l'INPUT clavier et souris

    resultat = 1   : ' Début du traitement à l'abri d'une entrée clavier ou souris
    for i = 1 to 200000
        resultat = resultat + i
    next i

    print_locate 100,140 : print "Fin de calcul : Résultat = " ; resultat
    Block_Input% = dll_call1("BlockInput",1) : ' Fin du bloquage : les entrée clavier / souris sont actives

    print_locate 100,160 : print "L'Input clavier et souris est maintenant débloqué !"
    print_locate 100,180 : print "Votre click est à nouveau pris en considération."

return
rem ============================================================================