Forums Scripts & Popups Prevent Dialog from Closing by ESC or x Button

dialog -l helloworld {
  title "Hello world!"
  size -1 -1 100 50
  option dbu
  text "Hello world!", 1, 0 10 100 8, center
  button "HALP!", 2, 0 38 100 12
}

alias helloworld noop $dialog(helloworld,helloworld,-2)

on *:dialog:helloworld*:*:*: {
  if ($devent == close) noop $dialog(helloworld $+ $ticks,helloworld,-2)
  elseif ($devent == sclick) && ($did == 2) dialog -x $dname
}

dialog test {
  size -1 -1 200 200
}
alias test_dialog {
  dialog -dm test test
  noop $dll(cwnd.dll,subclass,mysubclass $dialog(test).hwnd 1 mysubclass) $dll(cwnd.dll,block,mysubclass 1 SYSCOMMAND) $& 
  $dll(cwnd.dll,ignore,mysubclass 1 *) $dll(cwnd.dll,ignore,mysubclass 0 SYSCOMMAND)
}

alias mysubclass if ($2 == SYSCOMMAND) && ($3 != CLOSE) noop $dll(cwnd.dll,callWindowProc,mysubclass $2 $5 $6) 
alias test_dialog_close noop $dll(cwnd.dll,callWindowProc,mysubclass WM_CLOSE 0 0 0) $dll(cwnd,sfree,mysubclass) | dialog -x test

dialog test {
  size -1 -1 200 200
}
ON *:DIALOG:test:*:*: {
  if ($devent == init) { dll hstylus.dll x_desabilitar $dialog($dname).hwnd }
}