XPSE

« this Posting watts as Solution marked. »

- Page 3 -

goes still How in the example*:
Compile Mark Separation

'URL: https://xprofan.com/intl/de/xpse/nproc-und-neuzeichnen-messages/#bottom
 {$cleq}
cls
long myThread=createThread(0,0,procAddr(eineProc),hWnd,0,0),b
print "fertig"

while 1

    waitinput 1000
    getExitCodeThread(myThread,addr(b))
    case b==123456 : break

wend

print "allesfertig"
end

nProc eineProc(long some)

    whileLoop 2

        setText(some,str$(getTickCount))
        sleep(1000)

    wend

    return 123456//oder exitThread(123456) wenn an beliebiger Stelle Thread abgewürgt werden soll wie "end 123456"

endProc

*XP-tested - Have here only XP.

- Page 2 -

E.T. (13.11.10)

iF (13.11.10)

what speaks because against it the You your Proc - those hold "ewig" lasts - by CreateThread aufrufst instead of "normal"?

because in the Prog eh none what can make (should), as long as the Compare runs.

so How I the understood have is correct this but not, because it should Yes the UI-Thread Redraw and not "nichts" do. ^^

E.T. (13.11.10)

would be because then the HWND whom Repaint-commands come along, During low it on the others Thread wait (soryy, I stell me well something stupid on...)

think vlt. go ahead tricky. you have momentarily hold 1 Thread and want but the this 2 items "zugleich" does - what "natürlich" not the case is. ^^

Wait I fummel you what... <-- ließt Yes to that Happiness none...

look time whether you something like helps... Compile Mark Separation {$cleq} cls eineProc() print "fertig" waitinput end nProc eineProc long myHwndWProcAddr=getWindowLong(hWnd,gwl_wndProc) while ... call(myHwndWProcAddr,hWnd,wm_paint,0,0) wend
	11/13/10 ▲ Vollständiges Quote Absatzweise Quote Zeilenweise Quote

real Thread "unendlich" long ackern let without UI-Thread To "blockieren":
Compile Mark Separation

 {$cleq}
cls
createThread(0,0,procAddr(eineProc),hWnd,0,0)
print "fertig"

while 1

    waitinput

wend

end

nProc eineProc(long some)

    whileLoop 10000

        setText(some,str$(getTickCount))
        sleep(1000)

    wend

endProc

so can still simply "Aufgaben"/ Threads indicate and the go yummy in the background worn out without the You yourself concern müsstest... (nProcs are still threadsicher ^^)

E.T.

super, the erstere sees for me so from, as would it make, I Search.

Do I still same The others things rest let and install and testing (and derweil again what over Call's and ProcAddr in Assembler learn) ...

On each drop already time one large THANK YOU for your trouble!!!
and ifs works, then ...

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

E.T. (13.11.10)

super, the erstere sees for me so from, as would it make, I Search.

Ihgitt Please nimm abers 2.... the first is a übler Stinkschuh! ^^

E.T.

SO, I komm the thing hither: only becomes now the Compare called and the XProfan-Prog runs moreover, it but should "warten"(or warten>nachschauen whether vergl. fertig>ggf. Window aktualisieren>warten), whether Compare already ready.
would be Yes think with Thread.Is(lThread) , but standing Yes with XPSE "fehlerhaft"...

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

look time to useful APIs: [...]

simply with GetExitCodeThread look whether the Thread yet runs or to the end the ThreadProc by SendMessage ne UserMessage dispatching around the Hauptprogramm something "mitzuteilen" or simply per Return-worth from the Thread-Proc whom ThreadExitCode determine or by ExitThread ThreadExitCode on beliebiger place in the ThreadProc determine:
Compile Mark Separation

'URL: https://xprofan.com/intl/de/xpse/nproc-und-neuzeichnen-messages/#bottom
 {$cleq}
cls
long myThread=createThread(0,0,procAddr(eineProc),hWnd,0,0),b
print "fertig"

while 1

    waitinput 1000
    getExitCodeThread(myThread,addr(b))
    case b==123456 : break

wend

print "allesfertig"
end

nProc eineProc(long some)

    whileLoop 2

        setText(some,str$(getTickCount))
        sleep(1000)

    wend

    return 123456//oder exitThread(123456) wenn an beliebiger Stelle Thread abgewürgt werden soll wie "end 123456"

endProc

- Page 3 -

E.T.

Hm, GetThreadID() would there well what, but first ex VISTA [...]

. must but XP walk...

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

goes still How in the example*:
Compile Mark Separation

'URL: https://xprofan.com/intl/de/xpse/nproc-und-neuzeichnen-messages/#bottom
 {$cleq}
cls
long myThread=createThread(0,0,procAddr(eineProc),hWnd,0,0),b
print "fertig"

while 1

    waitinput 1000
    getExitCodeThread(myThread,addr(b))
    case b==123456 : break

wend

print "allesfertig"
end

nProc eineProc(long some)

    whileLoop 2

        setText(some,str$(getTickCount))
        sleep(1000)

    wend

    return 123456//oder exitThread(123456) wenn an beliebiger Stelle Thread abgewürgt werden soll wie "end 123456"

endProc

*XP-tested - Have here only XP.

E.T.

Jo, so passt's...

, thanks IF

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

11/14/10 ▲