◆タスクバーボタン非表示

情報

作者名：SIGO
引用元：なでしこ質問掲示板「タスクバーボタンの表示／非表示」
勝手に改変

概要

母艦を表示させつつ、タスクバーのボタンを非表示にします。

本体

#ここから
●SetWindowLong(w,i,l) =DLL("user32.dll",
"long SetWindowLongA(
hwnd hWnd,
int nIndex,
long dwNewLong
)")
●ShowWindow(h,n) =DLL("user32.dll",
"BOOL ShowWindow(
HWND hWnd,
int nCmdShow
);")
#------実行部----------------------
#母艦の可視はオフ
#SetWindowLong(母艦ハンドル,-20,$80)
#ShowWindow(母艦ハンドル,1)
#------実行部----------------------
＃ここまで

//サンプルプログラム

#-----------------------------------------------------------------------
！APPBARDATA_TYPE=「long,long,long,long,long,long,long,long,long」
■APPBARDATA
　・cbSize ＃{=36} ＃TEST
　・hWnd
　・uCallbackMessage
　・uEdge
　・Left
　・Top
　・Right
　・Bottom
　・lParam
PACK(APPBARDATA,AB_DAT,APPBARDATA_TYPE)。
#-----------------------------------------------------------------------
#-----------------------------------------------------------------------

●母艦設計
　　母艦の可視＝オフ。
　　母艦のタイトル＝「てすてす」。

母艦の透明度＝0。
母艦のクライアントW=150。
母艦のクライアントH=150。
母艦の背景色＝ウィンドウ背景色。
母艦のドラッグ移動＝オン。

母艦右下移動。

塗りスタイル＝「透明」。

母艦の可視はオフ
SetWindowLong(母艦ハンドル,-16,$80)
母艦の0,0から(母艦のクライアントW),(母艦のクライアントH)へ四角。
ShowWindow(母艦ハンドル,1)


母艦フェードイン。


#-----------------------------------------------------------------------
#-----------------------------------------------------------------------
●母艦右下移動({グループ=?母艦}OBJを)
　　Pとは整数
　　P=タスクバー位置取得。
　　OBJについて　　　　
　　　　もし、P=「左」ならば、X=デスクトップW-デスクトップワークエリアW
　　　　違えば、X=デスクトップワークエリアW-W-100。//変更
　　　　もし、P=「上」ならば、Y=デスクトップH-デスクトップワークエリアH
　　　　違えば、Y=デスクトップワークエリアH-H。
●タスクバー位置取得
　　もし、SHAppBarMessage(5,AB_DAT)ならば
　　　　UNPACK(AB_DAT,APPBARDATA,"long,long,long,long") ＃グループに戻す
　　　　TMPはAPPBARDATAのuEdge
　　　　TMPで条件分岐
　　　　　　「0」ならば、「左」で戻る。
　　　　　　「1」ならば、「上」で戻る。
　　　　　　「2」ならば、「右」で戻る。
　　　　　　「3」ならば、「下」で戻る。
　　違えば、「関数戻りエラー」という。
●SHAppBarMessage(ID,{参照渡し}p)=DLL("shell32.dll",
"BOOL SHAppBarMessage(
LONG dwMessage, //タスクバー位置：&H5
LPPOINT pData
)")
＃http://www.winapi-database.com/Program/Shell/SHAppBarMessage.html
●母艦フェードイン
　　Aとは数値。
　　1の間
　　　　A=母艦の透明度。A=A＋3。
　　　　もし、A≧200ならば、母艦の透明度＝200。抜ける。
　　　　母艦の透明度＝A。
　　　　0.01秒待つ。
　　戻る。
●母艦フェードアウト
　　Aとは数値。
　　1の間
　　　　A=母艦の透明度。A=A－3。
　　　　もし、A≦0ならば、母艦の透明度＝0。抜ける。
　　　　母艦の透明度＝A。
　　　　0.01秒待つ。
　　戻る。
#-----------------------------------------------------------------------
#-----------------------------------------------------------------------

---

---