XProfan

declare die&
 $U thread.pcu = thread.
Set("Decimals",0)
windowstyle ( 512 | 8 )
window 160,120,640,480

whilenot %key=2

    thread.start 1,9  <-- die 9 steht für 5000ms, die 1 steht für Thread 1 von 4
    waitinput
    thread.stop 1
    die&=0

wend

end

proc thread.do

    parameters n&

    if n&=1  in N steht die ThreadNummer (1 von 4)

        add die&,5
        settext %hwnd,"Autoende in "+str$(20-die&)+" Sekunden."
        case die&=20 : sendmessage(%Hwnd,$10,0,0)  <--dem Waitinput wird die closeMessage geschickt und die Hauptschleife wird damit verlassen.

    endif

endproc

 $U thread.pcu =thread.
Declare gmx%,gmy%,gmp#,dlg&
windowstyle ( 512 | 8 )
cls
dlg&=createdialog(%hwnd,"",100,100,300,300)
Dim     gmp#,8

whilenot %key=2

    thread.start 1,1
    waitinput
    thread.stop 1

wend

dispose gmp#
destroywindow (dlg&)
end

proc thread.do

    parameters n&

    if n&=1

        clear gmp#
        external("user32","ClientToScreen",dlg&,gmp#)
        gmx%=long(gmp#,0)
        gmy%=long(gmp#,4)
        external("user32","GetCursorPos",gmp#)
        gmx%=long(gmp#,0)-gmx%
        gmy%=long(gmp#,4)-gmy%
        locate 1,1
        print gmx%,gmy%,"   "

    endif

endproc