您的位置:首页 > 其它

隐藏显示任务栏

2011-11-16 21:19 169 查看
function SetTaskBar(LVisible: Boolean): Boolean; //隐藏-显示任务条
var
h: THandle;
begin
if LVisible then
begin
h:=FindWindow('Shell_TrayWnd',nil);
ShowWindow(h, SW_SHOW); //隐藏任务条
end
else
begin
h:=FindWindow('Shell_TrayWnd',nil);
ShowWindow(h,SW_HIDE); //显示任务条
end;
Result:=true;
end;
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: