Code: Select all
obj := CriticalObject({Dll:""})
Gui, Add, Text, x10 y10 h20 w100 vVar, First Text
Gui, Show, w250 h250, Test
gosub, start
return
start:
toggle := !toggle
if (toggle) {
ahkthread_free(obj.Dll),obj.Dll:=""
script := "
(
#NoEnv
obj := CriticalObject(" (&obj) ")
MsgBox, Thread OK
GuiControl,, Var, TEXT FROM THREAD
)"
while !obj.Dll.ahkReady() {
obj.Dll := AhkThread(script)
}
} else {
while obj.Dll.ahkReady() {
obj.Dll.ahkTerminate()
}
}
return
Esc::
ExitApp