HSPTV!掲示板

HSPから、タスクバーを自動的に隠す　をオン/オフできませんか？
タスクバーを覆い隠すのではなくて、Windowsの設定を切り替えられませんか?
よろひくお願いします！

// 参考
// http://www.hanatyan.sakura.ne.jp/vb6/systeminfo06.htm
#uselib "shell32"
#func SHAppBarMessage "SHAppBarMessage" int, sptr
#uselib "user32"
#cfunc FindWindowA "FindWindowA" sptr, sptr

#define ABM_GETSTATE 0x04
#define ABM_SETSTATE 0x0A
#define ABS_AUTOHIDE 0x01
#define ABS_ALWAYSONTOP 0x02

	dim APPBARDATA, 9
	APPBARDATA.0 = 4*9
	APPBARDATA.1 = FindWindowA("Shell_TrayWnd", 0)

	// 状態取得
	SHAppBarMessage ABM_GETSTATE, varptr(APPBARDATA)
	if (ABS_AUTOHIDE && stat){
		mes "自動で隠す設定になっています。解除します。"
		APPBARDATA.8 = 0
	}else{
		mes "自動で隠す設定にします。"
		APPBARDATA.8 = ABS_AUTOHIDE | ABS_ALWAYSONTOP
	}

	// 設定
	SHAppBarMessage ABM_SETSTATE, varptr(APPBARDATA)
	

>totori さん
あっという間にできましたね。ありがとうございます。