显示/隐藏系统任务栏

2012-06-15 16:15:41 作者:闹猴在线 来源:闹猴在线 浏览次数:0 网友评论 0


//隐藏
procedure TForm1.Button1Click(Sender: TObject);
Var
    taskbarhandle : HWND;
begin
    taskbarhandle := FindWindow('Shell_TrayWnd', nil);
    ShowWindow(taskbarhandle, SW_HIDE);
end;

//显示
procedure TForm1.Button2Click(Sender: TObject);
Var
    taskbarhandle : HWND;
begin
    taskbarhandle := FindWindow('Shell_TrayWnd', nil);
    ShowWindow(taskbarhandle, SW_RESTORE);
end;


 

[错误报告] [推荐] [收藏] [打印] [关闭] [返回顶部]

最新十条评论
  • 验证码:

最新图片文章

赞助商广告2

最新文章

日文章点击排行

周文章点击排行

月文章点击排行