XREA.COM Logo XREA.COM Ad

スクリプト投稿スレ

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
}
70KB
名前: E-mail:
ファイル:
0ch BBS 2005-10-08