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

※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。

情報


概要

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

本体

#ここから
●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秒待つ。
  戻る。
#-----------------------------------------------------------------------
#-----------------------------------------------------------------------


名前:
コメント:


ツールボックス

下から選んでください:

新しいページを作成する
ヘルプ / FAQ もご覧ください。