{宣告 攔截最大化，最小化命令，從新設定螢幕高度}

procedure   WMGetMinMaxInfo(var   mes:   TWMGetMinMaxInfo);message   WM_GetMinMaxInfo;

{截獲系統訊息，然後改寫窗體最大化高度。Screen.WorkAreaHeight就是螢幕高度減去工作列的高度}

procedure   TForm1.WMGetMinMaxInfo(var   mes:   TWMGetMinMaxInfo);
begin
    mes.MinMaxInfo.ptMaxSize.X   :=   Screen.Width;
    mes.MinMaxInfo.ptMaxSize.Y   :=   Screen.WorkAreaHeight;
    mes.Result   :=   0;
    inherited;
end;