whisht

    十年

  博客园 :: 首页 :: 博问 :: 闪存 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理 ::
  125 随笔 :: 1 文章 :: 7 评论 :: 19万 阅读
< 2025年2月 >
26 27 28 29 30 31 1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 1
2 3 4 5 6 7 8
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;

posted on   WHISHT  阅读(186)  评论(0编辑  收藏  举报
点击右上角即可分享
微信分享提示