验证中...
Languages: Pascal
Categories: 桌面应用界面
Latest update 2018-12-09 10:10
自动隐藏任务栏
Raw Copy
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;

Comment list( 0 )

You need to Sign in for post a comment

Help Search

Gitee_you_jiang_zheng_wen Zheng_wen_close