隐藏显示任务栏

最新推荐文章于 2022-07-03 23:09:26 发布

whisht

最新推荐文章于 2022-07-03 23:09:26 发布

阅读量436

点赞数

分类专栏： Delphi 文章标签：任务 shell function

本文链接：https://blog.csdn.net/ljz9425/article/details/6978733

版权

Delphi 专栏收录该内容

11 篇文章 0 订阅

订阅专栏

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;