文档章节

隐藏桌面图标和任务栏

涂孟超
 涂孟超
发布于 2014/09/26 15:37
字数 165
阅读 18
收藏 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
深圳
程序员
私信 提问
基于Visual C#2010开发Windows 7超级任务栏应用程序

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

junwong
2012/03/09
0
0
IT技术晋级之路-锁定任务栏

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

我的中国
02/01
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

没有更多内容

加载失败,请刷新页面

加载更多

Accept和Content-type的意思

Accept意思是我希望接收到的数据类型 Content-type意思是我发出去的数据类型

大灰狼wow
15分钟前
1
0
Java每天10道面试题,跟我走,offer有!(五)

41.Iterator、ListIterator 和 Enumeration的区别?   迭代器是一种设计模式, 它是一个对象, 它可以遍历并选择序列中的对象, 而开发人员不需要了解 该序列的底层结构。 迭代器通常被称为...

Java干货分享
16分钟前
2
0
meta 解决页面浏览器兼容性

使用最高级的ie内核,如果支持谷歌内核,使用谷歌内核 <meta http-equiv="X-UA-Compatible" content="IE=edge,chrome=1" /> 这 样写可以达到的效果是如果安装了GCF,则使用GCF来渲染页面,如...

之渊
18分钟前
1
0
极验验证demo(django+vue)

在使用之前,曾经试过用阿里云的人机验证,不过在签名部分比较复杂,下载sdk后需要自己写很多,折腾了一下,还是放弃。而腾讯云的人机验证python版本有demo,直接填写keyhe1secret就可以使用...

xiaoge2016
19分钟前
1
0
浅谈js回调

js回调极为简洁,无需声明,直接通过参数传入方法实体,调用方法实体的时候,可以直接调用方法名或者方法名加参数即可,以下看例子 socket.initWebSocket(this, userName, userId, (isSucce...

Carbenson
24分钟前
2
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部