〜 ウィンドウ 〜
ウィンドウをアイコン化

Windowsでは、メッセージのやり取りにより各種コントロールなどのオブジェクトを制御しており、
ウィンドウもまた、メッセージを渡して処理を行わせ、何らかのイベントを起こすとメッセージを返します。
HSPで作成したと言えど、生成されたウィンドウは上記の対象となっているので、
例えば、送信Win32メッセージに「WM_SYSCOMMAND(=0x0112)」を、
送信パラメータに「SC_ICONまたはSC_MINIMIZE(=0xF020)」を指定すれば、ウィンドウを最小化できます。
メッセージのやり取りを行うにはobjsend命令(HSP2)、sendmsg命令(HSP3)を使用し、
メッセージの送り先は自ウィンドウとします。HSP3ではシステム変数から簡単に取得できますが、
HSP2ではBMSCR構造体からしか取得ができませんし、
何より、objsend命令はHSP3のsendmsg命令と同じ内容であるものの、
メッセージの送信先対象がコントロール(HSPでのオブジェクト)に限定されており、
パラメータに指定するのは1つ目のオブジェクトを0としたオブジェクトIDとなっています。
コレは表向きなもので、実はオブジェクトIDを指すというより、
BMSCR構造体の要素41(hCld)からの要素番号を指しているので、
ウィンドウハンドルが保持されている要素13(hwnd)を指せば、ウィンドウを指定したことになるのです。
HSP2「objsend 13 - 41, 0x0112, 0xF020, 不使用変数(=0), 0」
HSP3「sendmsg hwnd, 0x0112, 0xF020, 不使用(=0)

winminimize
[パラメータなし]ウィンドウを最小化するだけのためパラメータは必要ない。

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
#module
#deffunc winminimize
	objsend -28, 0x0112, 0xF020, nonuse, 0
	return
#global

	pos 10, 10 : button "最小化", *minimize
	pos 10, 50 : button "終了", *exit
	stop

*minimize
	winminimize
	stop

*exit

winminimize
[パラメータなし]ウィンドウを最小化するだけのためパラメータは必要ない。

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
#module
#deffunc winminimize
	sendmsg hwnd, 0x0112, 0xF020, 0
	return
#global

	pos 10, 10 : button gosub "最小化", *minimize
	pos 10, 50 : button gosub "終了", *exit
	stop

*minimize
	winminimize
	return

*exit
	end