ウィンドウをディスプレイ内で固定

出典：HSP HELP CENTERのHSP3.0ラウンジ「画面からはみ出ないようにする 」より。
製作者：月影とも 氏
ウィンドウをディスプレイ外にはみ出さないようにする。
用途は色々あると思いますが、俺はデスクトップの使い方が汚いので
最小化せずによそにどけておけないソフトは嫌いですな。

//////////////////////////////////////////
//////////////////////////////////////////

#module
#deffunc hamidasanaimado
#define WM_MOVING 0x216
oncmd gosub *settest,WM_MOVING:return
*settest
#uselib "user32.dll"
#func SystemParametersInfo "SystemParametersInfoA" int,int,var,int
dim r,4:dispx = ginfo_dispx: dispy = ginfo_dispy
SystemParametersInfo 48,0,r,0:dispx = r.2:dispy = r.3
dupptr lp,lparam,4*4
if lp.0 < 0 : x=0-lp.0 : lp.0+=x : lp.2+=x
if lp.1 < 0 : y=0-lp.1 : lp.1+=y : lp.3+=y
if lp.2 > dispx : x = lp.2-dispx : lp.2-=x : lp.0-=x
if lp.3 > dispy : y = lp.3-dispy : lp.3-=y : lp.1-=y
return 0
#global

hamidasanaimado ;// ← (……

stop