アクティブウィンドウのタイトルバーに日時を表示するスクリプト

昔こんなソフトあったなぁ的なものをAutoHotkeyで再現してみた。

;自動実行部分
SetTimer, ClockTitle, 200

;自動実行終了後
ClockTitle:
	WinGetTitle, TitleBak, A
	If (RegExMatch(TitleBak, "\d{2}:\d{2}:\d{2}\]$") > 0)
	{
		TitleBak := RegExReplace(TitleBak, "\d{2}(?=\]$)", A_Sec)
		WinSetTitle, A, , %TitleBak%
	}
	Else
		WinSetTitle, A, , %TitleBak% `[%A_Year%年%A_Mon%月%A_WDay%日（%A_DDD%） %A_Hour%:%A_Min%:%A_Sec%`]
Return

SetTimerの間隔は500とかでも十分かもしれない。

日本語を使用しているので、AutoHotkey_Lの使用が前提。保存するスクリプトはBOM付きUTF-8で保存しないといけない。