「最前面に固定マネージャー」でウィンドウ操作をもっと快適に！

#NoEnv
#SingleInstance Force
SetTitleMatchMode, 2 ; 部分一致でウィンドウを検索

; ##############################################################
;  alwaysOntop mode
; ##############################################################
; トレイアイコンのメニューを設定
Menu, Tray, NoStandard ; 標準のトレイメニューを無効化
Menu, Tray, Add, 最前面に固定マネージャーを開く, ShowGUI ; メニュー項目を追加
Menu, Tray, Add ; 区切り線を追加
Menu, Tray, Add, 終了, ExitScript ; 終了メニューを追加
Menu, Tray, Default, 最前面に固定マネージャーを開く ; デフォルトアクションを設定
Menu, Tray, Icon, Shell32.dll, 14 ; トレイアイコンを設定（任意）

; ショートカットキーの設定
^!w:: ; Ctrl + Alt + W を押したとき
    if WinExist("最前面に固定マネージャー") {
        ; 既にGUIが存在する場合は、そのウィンドウをアクティブ化
        WinActivate
    } else {
        ; GUIが存在しない場合は新しく作成
        CreateGUI()
    }
return

; GUIを作成する関数
CreateGUI() {
    Gui, Font, s10 ; フォントサイズを10に設定（オプション）
    
    ; リストボックスを追加
    Gui, Add, ListBox, vWindowList r15 w400 x10 y10, % "ウィンドウを選択してください" ; x=10, y=10で固定
    
    ; 「最前面に固定/解除」ボタンを追加
    Gui, Add, Button, x10 y+10 w140 h30 gToggleAlwaysOnTop, 最前面に固定/解除 ; x=10, yはリストボックスの下
    
    ; 「一覧を更新」ボタンを追加
    Gui, Add, Button, x+10 yp w140 h30 gRefreshListButton, 一覧を更新 ; xは前ボタンの右、yは同じ高さ
    
    ; GUIウィンドウを表示
    Gui, Show, w400 h270, 最前面に固定マネージャー ; ウィンドウサイズを調整
    WinSet, AlwaysOnTop, On, 最前面に固定マネージャー ; このウィンドウを常に最前面に固定
    RefreshList() ; 初期化時にウィンドウ一覧を読み込む
}

; GUIを閉じる
GuiClose:
Gui, Destroy ; GUIを完全に破棄
return

; 一覧を更新する関数
RefreshList() {
    GuiControl,, WindowList, | ; リストをクリア（ループ開始前に一度だけ実行）
    WinGet, WindowIDs, List ; 全てのウィンドウIDを取得
    if (ErrorLevel) {
        AutoCloseMsg("ウィンドウ一覧の取得に失敗しました。", 3)
        return
    }
    Loop, %WindowIDs% {
        hWnd := WindowIDs%A_Index%
        WinGetTitle, Title, ahk_id %hWnd%
        WinGetClass, Class, ahk_id %hWnd%
        
        ; 無効なウィンドウを除外
        if (!InStr(Class, "Shell_TrayWnd")) { ; Shell_TrayWnd のみ除外
            ; ウィンドウが表示されているか確認
            WinGet, Style, Style, ahk_id %hWnd%
            if !(Style & 0x10000000) { ; WS_VISIBLE をチェック
                continue ; 表示されていないウィンドウはスキップ
            }
            
            ; タイトルが空の場合は「[無題]」と表示
            if (Title = "") {
                Title := "[無題]"
            }
            GuiControl,, WindowList, %Title% ; タイトルをリストに追加
        }
    }
}

; 「一覧を更新」ボタンのアクション
RefreshListButton:
    RefreshList()
return

; 最前面に固定/解除を切り替える関数
ToggleAlwaysOnTop:
    Gui, Submit, NoHide
    if (WindowList = "") {
        AutoCloseMsg("ウィンドウが選択されていません。", 3)
        return
    }
    ; 選択されたウィンドウのハンドルを取得
    WinGet, hWnd, ID, %WindowList%
    ; 現在の「最前面に固定」の状態を取得
    WinGet, isAlwaysOnTop, ExStyle, ahk_id %hWnd%
    isAlwaysOnTop := (isAlwaysOnTop & 0x8) ; WS_EX_TOPMOST をチェック
    ; 最前面に固定の状態を反転
    if (isAlwaysOnTop) {
        WinSet, AlwaysOnTop, Off, ahk_id %hWnd%
        AutoCloseMsg("最前面に固定を解除しました: " WindowList, 3)
    } else {
        WinSet, AlwaysOnTop, On, ahk_id %hWnd%
        AutoCloseMsg("最前面に固定しました: " WindowList, 3)
    }
return

; 自動的に閉じるメッセージを表示する関数
AutoCloseMsg(Text, Timeout) {
    ; メッセージを表示
    ToolTip, %Text%, 10, 10 ; 左上にメッセージを表示
    SetTimer, RemoveToolTip, % Timeout * 1000 ; 指定された時間後にメッセージを削除
    return

    RemoveToolTip:
        ToolTip ; ToolTipを削除
        SetTimer, RemoveToolTip, Off ; タイマーを停止
    return
}

; トレイアイコンのメニューからGUIを表示
ShowGUI:
    if WinExist("最前面に固定マネージャー") {
        WinActivate
    } else {
        CreateGUI()
    }
return

; スクリプトを終了
ExitScript:
ExitApp