// 参考
// 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)