板 1- 前 次 新 ﾚｽ
スクリプト投稿スレ
[110]質問スレ102：05/05/18 01:44 ID:???
;--- MDI子ウィンドウのハンドル一覧を返す関数(改行区切り)
getMdiChildWhdList(hParent)
{
wndList := GetControlWndList(hParent)
Loop,Parse,wndList,`n
{
WinGet,ExStyle,ExStyle,ahk_id %A_LoopField%
if (ExStyle & 0x40 = 0x40) ;WS_EX_MDICHILD
mdiChildList = %mdiChildList%`n%A_LoopField%
}
StringTrimLeft,mdiChildList,mdiChildList,1
return mdiChildList
}
;--- ウィンドウ内のコントロールのハンドル一覧を返す
getControlWndList(hParent)
{
hwndChildAfter = 0
Loop
{
hwndChildAfter := DllCall("FindWindowEx","UInt",hParent,"Uint",hwndChildAfter,"Int",0,"Int",0,"UInt")
ifEqual, hwndChildAfter,0, break
hList = %hList%`n%hwndChildAfter%
cList := GetControlWndList(hwndChildAfter)
ifNotEqual,cList,, SetEnv,hList,%hList%`n%cList%
}
StringTrimLeft,hList,hList,1
return hList
}
前 次