<br>var<br> hwnd:thandle;<br> windowStyle:longint;<br>begin<br> hwnd:=form1.Handle;<br>windowStyle:=GetWindowLong(hwnd,GWL_STYLE);<br><br>if (windowStyle and WS_SIZEBOX )>0 then<br> caption:=caption+'可以改变大小'<br> else<br> caption:=caption+'不可以改变大小'<br>//可移动的检查,我没有找到相应的消息,你可以发wm_moving给hwnd,然后看它是否移动了,<br>//这样来判断它是否可以移动。<br>end;