板 1- 前 次 新 ﾚｽ
スクリプト投稿スレ
[55]◆tsGpSwX8mo ：05/01/19 14:27 ID:9gBWK9zY
mayuから乗り換え用に色々試してる最中。
&WindowClingTo(Top|Bottom|Left|Right)に相当。マルチモニタ対応はしてない。
窓をデスクトップ（タスクバー除く）の上下左右の端にくっつくように移動。
キーアサインは適当に変えるべし。
スクリプトの先頭で呼んでタスクバー位置を変えない or
タスクバーの移動を検知して再呼び出しするなら、
キー定義の先頭のサブルーチンを無くしてもいい。
#+Left::
#+Right::
#+Up::
#+Down::
Gosub, sub_GetDesktopPositon:
WinGetPos,x,y,w,h,A
if A_ThisHotkey = #+Left
x = %DesktopLeft%
else if A_ThisHotkey = #+Right
{
x = %DesktopRight%
x -= %w%
}
else if A_ThisHotkey = #+Up
y = %DesktopTop%
else if A_ThisHotkey = #+Down
{
y = %DesktopBottom%
y -= %h%
}
WinMove,A,,%x%,%y%,%w%,%h%
return
前 次