本文整理自网络,侵删。
var sd:hwnd;
begin
sd:=findwindow('FNWND380',nil);
if IsZoomed(sd) then
form1.Caption:='最大化'
else
form1.caption:='跟本就没最大化'
相关阅读 >>
Delphi debug模式下可以但是release模式下报错原因之一
Delphi 判断字符是否是汉字,bytetype字符串中判断是否英文
Delphi webbrowser1使用进度条查看浏览器状态
Delphi sendmessage这个函数有很多奇妙的用途
更多相关阅读请进入《Delphi》频道 >>