验证中...
本周日,苏州开源盛宴,一起聊聊:Devops、K8s、数据库建模、SoLiD、.Net Core、微信开发、去中心化… 点击占座。
语言: Pascal
分类: 桌面应用界面
最后更新于 2018-12-09 10:10
自动隐藏任务栏
原始数据 复制代码
uses Winapi.ShellAPI;
procedure AutoHideTaskbar(AHide: Boolean);
const
ABM_SETSTATE = $0A;
var
Taskbar: APPBARDATA;
begin
Taskbar.cbSize := SizeOf(Taskbar);
Taskbar.hWnd := FindWindow('Shell_TrayWnd', nil);
if Taskbar.hWnd > 0 then
begin
if AHide then
Taskbar.lParam := ABS_AUTOHIDE
else
Taskbar.lParam := ABS_ALWAYSONTOP;
SHAppBarMessage(ABM_SETSTATE, Taskbar);
end;
end;

评论列表( 0 )

你可以在登录后,发表评论

搜索帮助

14_float_left_people 14_float_left_close