11-29-2006, 09:53 AM
Function IsFunctionRunning
;/
function# $functionname
;Returns 1 if function is running, 0 if not.
;EXAMPLE
;if(IsFunctionRunning("MyFunc"))
,;out "MyFunc is running"
int i n=EnumQmThreads(0 0 0 0)
ARRAY(QMTHREAD) a.create(n)
for i 0 EnumQmThreads(&a[0] n 0 0)
,_s.getmacro(a[i].qmitemid 1)
,if(_s=functionname) ret 1