ab.com コミュニティ

Type WindowInfo		' 取得したウィンドウ情報
	Handle	As HWND	' ウィンドウハンドル
	ID		As DWord	' ウィンドウID
	Index	As DWord	' ウィンドウが左から何番目にあるか
End Type

Sub GetWindowInfo()
' hTaskBarにToolbarWindow32クラスのウィンドウハンドルを取得
Dim hTaskBar As HWND	
	hTaskBar = FindWindow("Shell_TrayWnd",NULL)
	hTaskBar = FindWindowExA(hTaskBar, NULL,"ReBarWindow32", NULL)
	hTaskBar = FindWindowExA(hTaskBar, NULL,"MSTaskSwWClass", NULL)
	hTaskBar = FindWindowExA(hTaskBar, NULL,"ToolbarWindow32",NULL)

' 共有メモリをオープン
Dim pSysShared As BytePtr 	' ファイルがマップされた他のプロセスのビューの開始アドレス
Dim hProcess As HWND		' プロセスハンドル
Dim dw As DWord
Dim dwPID As DWord		' Process ID
Dim dwSize As DWord
	dwSize = sizeof(TBBUTTON) + sizeof(TCHAR) * MAX_PATH	'確保するサイズ
	GetWindowThreadProcessId(hTaskBar, VarPtr(dwPID))
	hProcess = OpenProcess(PROCESS_VM_OPERATION + PROCESS_VM_READ + PROCESS_VM_WRITE,FALSE, dwPID)
	pSysShared = VirtualAllocEx(hProcess, NULL, dwSize, MEM_RESERVE + MEM_COMMIT, PAGE_READWRITE)

Dim tb As TBBUTTON
Dim hTaskBtn As HWND
Dim WinText[MAX_PATH] As Byte
Dim winID As DWord
Dim BtnNo As DWord
Dim nBtnIndex As DWord
Dim nBtnCount As DWord

	' タブボタン(開いているフォルダウィンドウ)の数を取得
	nBtnCount = SendMessage(hTaskBar,TB_BUTTONCOUNT,0,0)

Dim t_info As *WindowInfo		' タブボタンの情報
	t_info = calloc(nBtnCount*SizeOf(WindowInfo))
	
/* TB_BUTTONCOUNT で得られる値は実際に表示されているボタンの数の2倍になっている
    つまり、ウィンドウごとに2つのボタンが割り当てられている。その内奇数番号が有効なハンドル */
For nBtnIndex=1 To nBtnCount-1 Step 2
	/*    nBtnIndex 番目のボタンの情報を取得    */
	SendMessage(hTaskBar, TB_GETBUTTON, nBtnIndex, pSysShared As LPARAM)
	/*    取得した情報を自分のプロセス領域へコピー    */
	ReadProcessMemory(hProcess, pSysShared, VarPtr(tb), Len(tb), VarPtr(dw))
	/*    nBtnIndex 番目のボタンのIndexを取得    */
	/*    指定するのはボタンの番号ではなくてコマンドＩＤ    */
	BtnNo = SendMessage(hTaskBar, TB_COMMANDTOINDEX, tb.idCommand, 0)
	/*    tb.dwDataの先頭メンバがウィンドウのハンドルになっているので、取得する  */
	ReadProcessMemory(hProcess,tb.dwData As VoidPtr,VarPtr(hTaskBtn),Len(hTaskBtn),VarPtr(dw))
	/*    そのウィンドウのテキストを普通に拾う    */
	GetWindowText(hTaskBtn,WinText,Len(WinText))
	/*    ウィンドウIDを取得することにより、一意のウィンドウを指定できる   */
	winID = GetWindowLong(hTaskBtn,GWL_ID)
	/*  　ClassNameはちゃんと"CabinetWClass"になっている   */
	GetClassName(hTaskBtn, WINDOW_INFO, MAX_PATH)
	/*  　自作のWindowInfo構造体にタブボタンの情報を設定   */
	t_info[nBtnIndex].Handle	= hTaskBtn	' ウィンドウのハンドル
	t_info[nBtnIndex].ID		= winID		' ウィンドウのID(不要)
	t_info[nBtnIndex].Index	= BtnNo		' ボタン番号
	End If

Next nBtnIndex
	' 共有メモリをクローズ
	VirtualFreeEx(hProcess, pSysShared, 0, MEM_RELEASE)
	CloseHandle(hProcess)

End Sub