文档章节

隐藏桌面图标和任务栏

涂孟超
 涂孟超
发布于 2014/09/26 15:37
字数 165
阅读 17
收藏 0
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{初始化}
procedure TForm1.FormCreate(Sender: TObject);
begin
  CheckBox1.Caption := '隐藏桌面图标';
  CheckBox2.Caption := '隐藏任务栏';
end;

{隐藏或显示桌面图标}
procedure TForm1.CheckBox1Click(Sender: TObject);
var
  h: HWND;
begin
  h := FindWindow('Progman', nil);   {Progman 是桌面窗口的类名}
  if TCheckBox(Sender).Checked then
    ShowWindow(h, SW_HIDE)
  else
    ShowWindow(h, SW_RESTORE);
end;

{隐藏或显示任务栏}
procedure TForm1.CheckBox2Click(Sender: TObject);
var
  h: HWND;
begin
  h := FindWindow('Shell_TrayWnd', nil); {Shell_TrayWnd 是任务栏窗口的类名}
  if TCheckBox(Sender).Checked then
    ShowWindow(h, SW_HIDE)
  else
    ShowWindow(h, SW_RESTORE);
end;

end.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/05/20/1203211.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
IT技术晋级之路-锁定任务栏

当在任务栏右键选择属性后看到如图界面,任务栏外观中“锁定任务栏”就是你无法拖动任务栏移到到左侧或者上下左右4个位置了,大家可以试试点击取消之后单击确定,然后把任务栏拖到最左侧上放...

我的中国
02/01
0
0
基于Visual C#2010开发Windows 7超级任务栏应用程序

Windows7的超级任务栏比起常规的windows任务栏主要做了下列改进 1、任务栏中的任务图标化,连开始菜单的按钮都显得跟任务栏中的图标差不多样式; 2、任务栏放弃了实时运行的概念,任务栏中开...

junwong
2012/03/09
0
0
深度操作系统 15.5 BETA 发布 —— 新增小而美的功能

深度操作系统是一个致力于为全球用户提供美观易用、安全可靠的Linux发行版。 深度操作系统15.5 Beta相较于之前的版本而言,除了全面适配的高分屏支持和Flatpak应用格式支持,采用了全新Web应...

melodyzou
2017/11/15
2.7K
68
基于Visual C++2010与windows SDK fo windows7开发Windows 7超级任务栏应用程序

Windows7的超级任务栏比起常规的windows任务栏主要做了下列改进 1、任务栏中的任务图标化,连开始菜单的按钮都显得跟任务栏中的图标差不多样式; 2、任务栏放弃了实时运行的概念,任务栏中开...

junwong
2012/03/09
0
0
优麒麟 18.04 LTS 正式版发布:不忘初心,砥砺前行!

优麒麟团队已发布优麒麟 (Ubuntu Kylin) 18.04 LTS 开源操作系统,作为优麒麟的第 3 个长线支持版本,此次发布的 18.04 版本在系统内核、桌面环境、特色应用、合作软件上都有一系列更新,为用...

王练
04/27
0
0

没有更多内容

加载失败,请刷新页面

加载更多

《看图轻松理解数据结构与算法系列》导引贴

最近学习数据结构,遇到一个很喜欢的博主,他的文章图文并茂,理解起来很容易。特此开贴记录,方便反复阅读。 博主主页 https://juejin.im/user/57c3970f79bc440063e58518/posts?sort=popul...

科陆李明
37分钟前
1
0
20.27 分发系统介绍~ 20.30 expect脚本传递参数

分发系统介绍分发系统-expect讲解(也就是一个分发的脚本)场景:业务越来越大,网站app,后端,编程语言是php,所以就需要配置lamp或者lnmp,最好还需要吧代码上传到服务器上;但是因...

洗香香
52分钟前
2
0
设计一个百万级的消息推送系统

前言 首先迟到的祝大家中秋快乐。 最近一周多没有更新了。其实我一直想憋一个大招,分享一些大家感兴趣的干货。 鉴于最近我个人的工作内容,于是利用这三天小长假憋了一个出来(其实是玩了两...

crossoverJie
58分钟前
2
0
软件架构:5种你应该知道的模式

Singleton(单例模式)、仓储模式(repository)、工厂模式(factory)、建造者模式(builder)、装饰模式(decorator)……大概每个上课听讲的程序员都不会陌生——软件的设计模式为我们提供...

好雨云帮
今天
3
0
OSChina 周二乱弹 —— 这只是一笔金钱交易

Osc乱弹歌单(2018)请戳(这里) 【今日歌曲】 @小小编辑:推荐歌曲《暮春秋色》- 窦唯 / 译乐队 《暮春秋色》- 窦唯 / 译乐队 手机党少年们想听歌,请使劲儿戳(这里) @我没有抓狂:跨服聊...

小小编辑
今天
1K
19

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部