「タスクスイッチ･ボタンのウィンドウ ハンドル取得」について
Posted: 2005年11月28日(月) 12:35
何時も、お世話に成っています。
タスクバーにある格タスクスイッチ･ボタンのウィンドウ ハンドルや
トレイにある格アイコンのウィンドウ ハンドルを取得したいのですが、
どの様にすれば良いのでしょうか？
使用目的は、"DrawAnimatedRects()"関数でアニメーション効果を与えOpen, Closeさせる。
(ウインドメニューの｢元のサイズに戻す｣｢最小化｣と同等の動作)
タスクバーにある格タスクスイッチ･ボタンのウィンドウ ハンドルや
トレイにある格アイコンのウィンドウ ハンドルを取得したいのですが、
どの様にすれば良いのでしょうか？
使用目的は、"DrawAnimatedRects()"関数でアニメーション効果を与えOpen, Closeさせる。
(ウインドメニューの｢元のサイズに戻す｣｢最小化｣と同等の動作)
FindWindowEx()関数でやっているのですが、取得出来ません。 [ここをクリックすると内容が表示されます]
Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
(hWnd1 As Long, hWnd2 As Long, lpsz1 As String, lpsz2 As String) As Long
'タスクバーのハンドル
hTaskBar =FindWindow("Shell_TrayWnd", NULL)
hTaskTry =FindWindowEx(hTaskBar, 0, "TrayNotifyWnd", NULL)
'XP用
hTaskBar =FindWindowEx(hTaskBar, 0, "ReBarWindow32", NULL)
hTaskBar =FindWindowEx(hTaskBar, 0, "MSTaskSwWClass", NULL)
hTaskBar =FindWindowEx(hTaskBar, 0, "ToolbarWindow32", NULL)
hTaskBar =FindWindowEx(hTaskBar, 0, NULL, "AB") <---------- 失敗
宜しくお願いします。Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
(hWnd1 As Long, hWnd2 As Long, lpsz1 As String, lpsz2 As String) As Long
'タスクバーのハンドル
hTaskBar =FindWindow("Shell_TrayWnd", NULL)
hTaskTry =FindWindowEx(hTaskBar, 0, "TrayNotifyWnd", NULL)
'XP用
hTaskBar =FindWindowEx(hTaskBar, 0, "ReBarWindow32", NULL)
hTaskBar =FindWindowEx(hTaskBar, 0, "MSTaskSwWClass", NULL)
hTaskBar =FindWindowEx(hTaskBar, 0, "ToolbarWindow32", NULL)
hTaskBar =FindWindowEx(hTaskBar, 0, NULL, "AB") <---------- 失敗