Windowの位置・サイズを記憶・復元するツール(Windows, AutoIt)

Tweet

Check

FullHD画面では画面が狭く感じるようになってきたので、思い切って4kモニターを買ってみた。

左側にエディタ、右側に参考資料といった感じで広々使えて最高。

なのだが、一つ困ったことがある。

やっているゲームが4kモニタに対応していないため、Windowsの設定で画面をFullHDに設定してからゲームを起動しないといけない。
それは仕方なくやっているんだが、4kに戻すと広げてあった様々なウィンドウが元の場所、元のサイズでは表示されないのだ。
2,3枚のウィンドウなら毎回ちまちま再配置してもいいんだが、今見たら、Chromeだけで16枚、他にもThunderbird(メール)やら色々あってやってられない。

すでにツールがあるだろうと探して見つけたのは、いちいち記憶させたいウィンドウを指定して登録していかないといけないのが面倒くさい。

全部覚えて、全部戻してくれ。

というわけで、無いものは自分で作ることにし、作ったのがこれ。

AutoIt( https://www.autoitscript.com/site/ )で書いてあるので、使いたい人はAutoIt入れてコンパイルしてね。

;
;  ウィンドウ位置記憶回復ツール
;          koj
;          @koj911
;          https://www.ofug.net/koj/
;
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <Debug.au3>
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("ウィンドウ位置回復", 615, 437, 192, 124)
GUISetFont(9, 400, 0, "ＭＳ Ｐゴシック")
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "Form1Minimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "Form1Maximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "Form1Restore")
$lvWinInfo1 = GUICtrlCreateListView("Title|Handle|X|Y|Width|Height", 32, 16, 553, 351)
GUICtrlSetFont(-1, 10, 400, 0, "UD デジタル 教科書体 N-R")
GUICtrlSetOnEvent(-1, "lvWinInfo1Click")
$btnStore = GUICtrlCreateButton("配置記憶", 32, 376, 153, 49)
GUICtrlSetFont(-1, 12, 400, 0, "UD デジタル 教科書体 NP-R")
GUICtrlSetOnEvent(-1, "btnStoreClick")
$btnRestore = GUICtrlCreateButton("再配置", 201, 376, 153, 49)
GUICtrlSetFont(-1, 12, 400, 0, "UD デジタル 教科書体 NP-R")
GUICtrlSetOnEvent(-1, "btnRestoreClick")
$btnQuit = GUICtrlCreateButton("終了", 432, 376, 153, 49)
GUICtrlSetFont(-1, 12, 400, 0, "UD デジタル 教科書体 NP-R")
GUICtrlSetOnEvent(-1, "btnQuitClick")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

; _DebugSetup("Window Info", True);

dim $WinList[1][6]  ; Window情報を格納。後で配列サイズ再調整する

While 1
	Sleep(100)
WEnd

Func btnStoreClick() ; 配置記憶
	Local $tmp = WinList()
	Local $s = 0
	GUICtrlDelete($lvWinInfo1) ; Item消去のためにlvWinInfoごと消す^^;
	$lvWinInfo1 = GUICtrlCreateListView("Title|Handle|X|Y|Width|Height", 32, 16, 553, 351) ; 再登録

	For $i = 1 To $tmp[0][0]  ; $varp0][0]に要素数が格納されている
		; 可視で名前のあるウィンドウのみを表示する。 DeskTop（Program Manager)は除外する
        If $tmp[$i][0] <> "" And IsVisible($tmp[$i][1]) And $tmp[$i][0] <> "Program Manager" Then
            ReDim $WinList[$s + 1][6]
            $WinList[$s][0] = $tmp[$i][0] ; Window Title
            $WinList[$s][1] = $tmp[$i][1] ; Window Handle
    		Local $pos = WinGetPos($WinList[$s][1])
    		$WinList[$s][2] = $pos[0] ; X-Pos
    		$WinList[$s][3] = $pos[1] ; Y-Pos
    		$WinList[$s][4] = $pos[2] ; Width
    		$WinList[$s][5] = $pos[3] ; Height
			GUICtrlCreateListViewItem( StringFormat ("%-10s | %10d | %4d | %4d | %4d | %4d", $WinList[$s][0], $WinList[$s][1], $WinList[$s][2], $WinList[$s][3], $WinList[$s][4], $WinList[$s][5]), $lvWinInfo1 )
            $s += 1
        EndIf
    Next
	$WinList[0][0] = $s - 1  ; 格納した要素数を記憶しておく
EndFunc

Func btnRestoreClick() ; 再配置
	For $i = 1 To $WinList[0][0]
		WinMove($WinList[$i][1], "", $WinList[$i][2], $WinList[$i][3], $WinList[$i][4], $WinList[$i][5])
	Next
EndFunc

Func btnQuitClick() ; 終了
  Exit
EndFunc

Func Form1Close()
  Exit
EndFunc

Func Form1Maximize()

EndFunc
Func Form1Minimize()

EndFunc

Func Form1Restore()

EndFunc

Func lvWinInfo1Click()  ; ListViewがクリックされても特にやることなし。

EndFunc

Func IsVisible($handle)
    If BitAND(WinGetState($handle), 2) Then
        Return 1
    Else
        Return 0
    EndIf
EndFunc   ;==>IsVisible

一応、githubにもおいてみた。
使い方がよくわからないので、ソースコードをおいただけ。
https://github.com/koj911/WinPosBackupRestore