Dripです。
もしもそのようなユーザーの心理的回答を得ようとする場合は、
screen命令とonexit命令を組み合わせて自前でダイアログを作成してみてください。
但し、以下のサンプルを試してみればわかりますが、あまり変な挙動をすると
確実にユーザーに嫌われますので注意してください。
#uselib "user32.dll"
#cfunc GetWindowLong "GetWindowLongA" int, int
#func SetWindowLong "SetWindowLongA" int, int, int
screen 0,200,200:syscolor 15:boxf:objsize 100,20:
pos 50,100:button "押して下さい。",*push
stop
*push
mci "sound" //ポーン
screen 2,256,80,6,(ginfo_dispx-ginfo_winx)/2,(ginfo_dispy-ginfo_winy)/2
SetWindowLong hwnd,-16,GetWindowLong(hwnd,-16)-$20000 //最小化ボタンを消す
gsel 2,2:title "色々ためしてください":syscolor 15:boxf:syscolor 7
font "MS Pゴシック",12
pos 10,10:mes "OKボタンを押して下さい。"
pos 100,50:button "OK",*ok
onexit gosub *ex
repeat
if ginfo(2)!2:dialog "押す気あるんですか?":gsel 2,1
await 30
loop
*ok
end
*ex
if ginfo(2)=2:dialog "消そうとしましたね。\n消しちゃだめです。":return
return