.exe error message box - Remove countdown ?

[Gintaras]

Function ExeErrorMessageBoxRemoveCountdown

Code:

Copy      Help

;/

;Removes countdown from error message box.
;Call this function in exe macro, when it starts.
;To show error message box, in "Make exe" dialog uncheck "Output to QM".

;EXAMPLE
;ExeErrorMessageBoxRemoveCountdown
;0.5
;str s.getfile("-")


mac "sub.Thread"


#sub Thread
int pw pid1=GetCurrentProcessId
rep
,0.9
,int pid2 w=win
,if(w=pw) continue; else pw=w
,if GetWindowThreadProcessId(w &pid2) and pid2=pid1 and WinTest(w "#32770")
,,int c=id(65535 w)
,,if c
,,,str s.getwintext(c)
,,,if s.beg("Error (RT)") and s.end("---- click here to stop countdown ----")
,,,,s.remove(s.len-38); s.setwintext(c)
,,,,key L