HSPTV!掲示板

はじめまして、FNと申します。
以下のスクリプトは画面に１つのlistviewを配置し、WM_NOTIFYメッセージを待つだけのプログラムなのですが、
ここでonexitを使うと奇妙な現象が発生します。実行すると、ウィンドウを閉じて終了してもタスクマネージャ
で見るとhsp.exeのプロセスが残ったままになってしまうのです。
onexit の goto を gosub にした場合、oncmd の行を消した場合は正常に終了されるようです。
何故このような動作になってしまうのでしょうか？

#uselib "COMCTL32.DLL"
#func global InitCommonControls "InitCommonControls"
#uselib "USER32.DLL"
#cfunc global CreateWindowEx "CreateWindowExA" sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr

	style = $10000000|$40000000|$00800000/*WS_VISIBLE|WS_CHILD|WS_BORDER*/
	hListView = CreateWindowEx(0, "SysListView32", "", style, 0, 0, ginfo_winx, ginfo_winy, hwnd, 0, hinstance, 0)
	oncmd gosub *OnNotify, $0000004E/*WM_NOTIFY*/
	onexit goto *OnExt
	stop

*OnNotify
	return

*OnExt
	end

CreateWindowEx等で作成したオブジェは自分で削除しないといけないようです。

#uselib "COMCTL32.DLL"
#func global InitCommonControls "InitCommonControls"
#uselib "USER32.DLL"
#cfunc global CreateWindowEx "CreateWindowExA" sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr
#func global DestroyWindow "DestroyWindow" int

	style = $10000000|$40000000|$00800000/*WS_VISIBLE|WS_CHILD|WS_BORDER*/
	hListView = CreateWindowEx(0, "SysListView32", "", style, 0, 0, ginfo_winx, ginfo_winy, hwnd, 0, hinstance, 0)
	oncmd gosub *OnNotify, $0000004E/*WM_NOTIFY*/
	onexit goto *OnExt
	stop

*OnNotify
	return

*OnExt
	DestroyWindow hListView
	end

....どうでしょうか？

回答ありがとうございます。
確かにそれでも終了されるようです。
子ウィンドウは親ウィンドウと同時に破棄されると思っていたのですが・・・。
しかし、なぜ gosub ではよくて goto ではダメなのか、なぜoncmd WMNOTIFY と併用するとダメなのか、が謎です。
引き続きよろしくお願いします。

終了ラベルに跳ぶ。
↓
end
↓
終了処理中にリストビューが削除される。
↓
WM_NOTIFY(LVN_DELETEALLITEMS)でOnNotifyに跳ぶ。
↓
returnでendの所に戻るが、endの次の行が実行される。
↓
endの下には何も書いてないのでstopになる。


こんな感じ？

endを二つ書いておくとか、終了ラベルのendの前でoncmd 0にして置くと
大丈夫みたいです。

なるほど、そういう理由だったのですね。
参考になります。
ありがとうございました！