Delphi 无际框全屏不遮挡任务栏

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;