Vtwmみたいなウィンドウ管理

1280x1024の17インチのディスプレイで画面の解像度を2048x1536に設定したとき，大きい領域を小さい窓から覗いているかのような，vtwmの仮想デスクトップみたいな設定になる環境の方向けです．

次の3つの機能を備えています．

• アクティブウィンドウが画面中央に表示されるようにマウスを移動する
• アクティブウィンドウの大きさを1024x768にする
• アクティブウィンドウを余白も考慮して全画面表示にする

スクリプト

 DisplayWidth  = 1280
 DisplayHeight = 1024
 WinYohaku     = 4      ;Windowsのテーマによっては少しずれるかもしれないので適宜調整
 
 ; アクティブウィンドウが画面中央に表示されるようにマウスを移動する
 $^!d:: ; キーボードに手を置いている時用
 $F3::  ; マウスのボタン4に割り当てているキー
   WinGetActiveStats,Title, Width, Height, X, Y
 
   tmpX := ( DisplayWidth  - Width  ) / 2
   tmpY := ( DisplayHeight - Height ) / 2
 
   MouseMove, - tmpX + DisplayWidth, - tmpY + DisplayHeight, 0
   MouseMove, - tmpX               , - tmpY                , 0
   MouseMove, Width / 2            , Height / 2            , 0
 
   Return
 
 ; アクティブウィンドウの大きさを 1024x768 にする
 $^!a::  
 $F12::  
   WinGetActiveStats,Title, Width, Height, X, Y
   WinMove, %Title%, , , , 1024 + WinYohaku * 2        , 768 + WinYohaku * 2
 
   Return
 
 ; アクティブウィンドウを余白も考慮して全画面表示にする
 $^!s::
 $F2::
   WinGetActiveStats,Title, Width, Height, X, Y
   WinMove, %Title%, , , , DisplayWidth + WinYohaku * 2, DisplayHeight + WinYohaku * 2
 
   Return