HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2014
1206
チャーくん「タスクバーを自動的に隠す」を切り替える2解決


チャーくん

リンク

2014/12/6(Sat) 17:12:45|NO.66316

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



この記事に返信する


totori

リンク

2014/12/6(Sat) 17:47:01|NO.66317


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



チャーくん

リンク

2014/12/6(Sat) 18:38:22|NO.66318

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



ONION software Copyright 1997-2021(c) All rights reserved.