XProfan

 $U thread.pcu = thread.
Déclarer dum&,x&,y&,text$
Cls
thread.start 1,6
thread.start 2,2

whilenot (%clé==2)

    waitinput

Wend

thread.stopall
Fin

proc thread.do

    parameters n&

    Si n&=1

        MessageBox("Willst du mich wirklich testen?","Messagebox",$4004)    $4000 pour WM_HELP
        thread.stopall

    ElseIf n&=2

        Si %message=83   WM_HELP

            Repaint        sonst Vielfachaufruf sous XP
            Imprimer "Jetzt Aider appel!"

        EndIf

    EndIf

endproc

Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
Messagebox: Hilfebutton abfragen
 $U thread.pcu = thread.
Déclarer dum&,x&,y&,text$
Cls
thread.start 1,6
thread.start 2,2

whilenot (%clé==2)

    waitinput

Wend

thread.stopall
Fin

proc thread.do

    parameters n&

    Si n&=1

        MessageBox(veux du mich wirklich testen?,Messagebox,$4004) $4000 pour WM_HELP
        thread.stopall

    ElseIf n&=2

        Si %message=83 WM_HELP

            Repaint   sonst Vielfachaufruf sous XP
            Imprimer maintenant Aider appel!

        EndIf

    EndIf

endproc