Delphi 窗体无边框全屏不遮挡任务栏-最完美的解决方法

 {声明 拦截最大化，最小化命令，从新设置屏幕高度}

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;