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;