批处理怎样隐藏桌面？

lujice

一、求助缘由
我有双儿女，一个三岁、一个五岁，正是最顽皮的时候。每天，当我在家用电脑办公时，他们就跑来围在我的膝上，四只小手不停地乱按键盘、鼠标。我怕他们把电脑弄坏了。吼他们，他们就和我对吼。打他们呢，打轻了他们不怕，反而以为我是在和他们玩耍；打重了呢，我又怕把他们打坏了。真是头痛啊......所以，我到这儿来求软件了。

二、我的要求是——

运行“A工具”达到如下效果：
1、隐藏桌面上的所有图标；
2、隐藏任务栏；
（包括：开始、快速启动、程序、托盘、时间.....任务栏上的所有项目）
3、全部静音，并最小化所有窗口；
4、禁止使用桌面右键；
5、禁止热键“Ctrl+Alt+Del”调用任务管理器。
6、屏蔽“Alt+Tab”和“Windows” 键。

运行“B工具”达到如下效果：
1、立即提示：“请输入解冻密码”；
2、如果输入密码错误，立即退出；
3、如果输入密码正确，则——
a、显示桌面上的所有图标；
b、显示任务栏；
c、恢复使用桌面右键的功能；
d、恢复热键“Ctrl+Alt+Del”、“Alt+Tab”和“Windows” 键的功能。

注： 不论是“A工具”还是“B工具”，均要求一点击就立即运行；一运行，不需要重新启动电脑，就立即实现功能；运行完毕就马上自动退出；退出后，隐藏效果不失效；不能出现什么“按任意键继续\退出”之类的界面。

三、我的设想是：用“任务、计划”把“A工具”设置成“随系统启动”；然后，用“秘密热键工具”来隐秘的运行“A工具”或“B工具”。这样，就可实现——
1、我不在家时，儿女打开电脑，屏幕空空如也。乱按，电脑毫无反应。
2、我在家用电脑办公时，儿女来捣乱，我就用笑话分散他们的注意力。趁他们不注意，我偷偷地一键下去，屏幕立即空空如也。乱按，电脑更是毫无反应。然后，我就可以趁机吓唬他们，“看嘛，你们把爸爸的电脑玩坏了，赔起！”哈！哈！哈......
（之所以不用那些“桌面锁”、“挂机锁”之类的现成工具，是因为他们有个共同的弱点——锁屏后，屏幕会留下个“密码输入框”。现在的孩子“贼精灵”，一看屏幕上有个“密码输入框”，立即就知道是爸爸不让他们玩电脑了。这样，会伤他们自尊的......）
四、因此：
1、不论是“A工具”还是“B工具”，均要求一点击就立即运行；一运行，不需要重启电脑，就能立即实现功能；运行完毕就马上自动退出；退出后，隐藏效果不失效；不能出现什么“按任意键继续\退出”之类的界面。
2、不管是“bat”也好，还是“exe”也好，只要能达到我的要求就好。

再一次谢谢大家！！！

我的邮箱是[email=lujice@yahoo.com.cn]lujice@yahoo.com.cn[/email]

[ 本帖最后由 lujice 于 2010-2-3 17:21 编辑 ]

lujice

怎么悬赏为0了？我原来的悬赏是30啊！

lujice

又发现了两段隐藏桌面图标和任务栏的代码，但我不懂，给大家参考。

第一段：
--------------------------------------------------------------------------------
ShowWindow  (FindWindow("Shell_TrayWnd",0),SW_HIDE);//隐藏桌面  
            ShowWindow  (FindWindow("Progman",0),SW_HIDE);//隐藏任务栏  
--------------------------------------------------------------------------------


第二段：
--------------------------------------------------------------------------------
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.
--------------------------------------------------------------------------------
再补充一下，修改注册表隐藏桌面要重启电脑，此法不好！

[ 本帖最后由 lujice 于 2010-2-2 14:50 编辑 ]

Seter

原帖由 lujice 于 2010-2-1 16:03 发表
又发现了一段隐藏桌面图标和任务栏的代码，但我不懂，给大家参考。
--------------------------------------------------------------------------------
unit Unit1;

interface

uses
Windows, Messages,  ...

你到底要批处理还是是什么?Pasic吗?

Batcher

你目前的积分等级是“上等兵”，论坛后台对“上等兵”发布悬赏贴的限制如下：

最小悬赏积分: 1
最大悬赏积分: 2

也就是说，你目前的积分等级是不允许发布30分的悬赏贴的。

vsbat

设想如果隐藏了任务栏，开始菜单是否可以调出呢？？
如果 开始菜单可以调出 一切皆有可能
（只需按windows徽标键）

lujice

谢谢大家！
一、我有双儿女，一个三岁、一个五岁，正是最顽皮的时候。每天，当我在家用电脑办公时，他们就跑来围在我的膝上，四只小手不停地乱按键盘、鼠标。我怕他们把电脑弄坏了。吼他们，他们就和我对吼。打他们呢，打轻了他们不怕，反而以为我是在和他们玩耍；打重了呢，我又怕把他们打坏了。真是头痛啊......所以，我到这儿来求软件了。
二、我的设想是：用“任务、计划”把“A工具”设置成“随系统启动”；然后，用“秘密热键工具”来隐秘的运行“A工具”或“B工具”。这样，就可实现——
1、我不在家时，儿女打开电脑，屏幕空空如也。乱按，电脑毫无反应。
2、我在家用电脑办公时，儿女来捣乱，我就用笑话分散他们的注意力。趁他们不注意，我偷偷地一键下去，屏幕立即空空如也。乱按，电脑更是毫无反应。然后，我就可以趁机吓唬他们，“看嘛，你们把爸爸的电脑玩坏了，赔起！”哈！哈！哈......
（之所以不用那些“桌面锁”、“挂机锁”之类的现成工具，是因为他们有个共同的弱点——锁屏后，屏幕会留下个“密码输入框”。现在的孩子“贼精灵”，一看屏幕上有个“密码输入框”，立即就知道是爸爸不让他们玩电脑了。这样，会伤他们自尊的......）
三、因此：
1、（回“Seter”）不管是“bat”也好，还是“exe”也好，只要能达到我的要求就好。不过，最好还是“bat”，因为它更容易实现“运行完毕立即自动退出；退出后，隐藏效果不失效”。
2、（回“vsbat”）当然，能屏蔽“Windows”和“Alt+Tab”键最好，不能屏蔽也算了。毕竟，我是为了哄孩子，不是为了搞“特工电脑”。
3、再补充一下： 运行“A工具”后，要禁止桌面右键； 运行“B工具”后，要恢复桌面右键。
再一次谢谢大家！！！

[ 本帖最后由 lujice 于 2010-2-2 14:47 编辑 ]

lujice

再补充一下：
不论是“A批处理”还是“B批处理”，均要求一点击就立即运行；一运行，不需要重新启动电脑，就立即实现功能；运行完毕就马上自动退出；不能出现什么“按任意键继续\退出”之类的界面。

lujice

在线等待高人啊！！！

lujice

我在http://download.csdn.net/source/2044785发了几个相关的小工具，虽然不能符合我的要求，但也许，对你可能有用......

[ 本帖最后由 lujice 于 2010-2-3 19:31 编辑 ]

lujice

回“fs822”
我又一次整理了下思路。我重新阐述一下要求——

一、求助缘由
我有双儿女，一个三岁、一个五岁，正是最顽皮的时候。每天，当我在家用电脑办公时，他们就跑来围在我的膝上，四只小手不停地乱按键盘、鼠标。我怕他们把电脑弄坏了。吼他们，他们就和我对吼。打他们呢，打轻了他们不怕，反而以为我是在和他们玩耍；打重了呢，我又怕把他们打坏了。真是头痛啊......所以，我到这儿来求软件了。

二、我的要求是——

运行“A工具”达到如下效果：
1、隐藏桌面上的所有图标；
2、隐藏任务栏；
（包括：开始、快速启动、程序、托盘、时间.....任务栏上的所有项目）
3、全部静音，并最小化所有窗口；
4、禁止使用桌面右键；
5、禁止热键“Ctrl+Alt+Del”调用任务管理器。
6、屏蔽“Alt+Tab”和“Windows” 键。

运行“B工具”达到如下效果：
1、立即提示：“请输入解冻密码”；
2、如果输入密码错误，立即退出；
3、如果输入密码正确，则——
a、显示桌面上的所有图标；
b、显示任务栏；
c、恢复使用桌面右键的功能；
d、恢复热键“Ctrl+Alt+Del”、“Alt+Tab”和“Windows” 键的功能。

注： 不论是“A工具”还是“B工具”，均要求一点击就立即运行；一运行，不需要重新启动电脑，就立即实现功能；运行完毕就马上自动退出；不能出现什么“按任意键继续\退出”之类的界面。

三、我的设想是：用“任务、计划”把“A工具”设置成“随系统启动”；然后，用“秘密热键工具”来隐秘的运行“A工具”或“B工具”。这样，就可实现——
1、我不在家时，儿女打开电脑，屏幕空空如也。乱按，电脑毫无反应。
2、我在家用电脑办公时，儿女来捣乱，我就用笑话分散他们的注意力。趁他们不注意，我偷偷地一键下去，屏幕立即空空如也。乱按，电脑更是毫无反应。然后，我就可以趁机吓唬他们，“看嘛，你们把爸爸的电脑玩坏了，赔起！”哈！哈！哈......
（之所以不用那些“桌面锁”、“挂机锁”之类的现成工具，是因为他们有个共同的弱点——锁屏后，屏幕会留下个“密码输入框”。现在的孩子“贼精灵”，一看屏幕上有个“密码输入框”，立即就知道是爸爸不让他们玩电脑了。这样，会伤他们自尊的......）
四、因此：
1、不论是“A工具”还是“B工具”，均要求一点击就立即运行；一运行，不需要重启电脑，就能立即实现功能；运行完毕就马上自动退出；不能出现什么“按任意键继续\退出”之类的界面。
2、不管是“bat”也好，还是“exe”也好，只要能达到我的要求就好。
3、当然，能静音，能屏蔽“Ctrl+Alt+Del”、“Alt+Tab”和“Windows” 键最好。不能静音、不能屏蔽也算了。毕竟，我是为了哄孩子，不是为了搞“特工电脑”。

再一次谢谢大家！！！

Batcher

能否把所有的问题背景描述全部更新到顶楼？

lujice

原帖由 Batcher 于 2010-2-2 20:52 发表
能否把所有的问题背景描述全部更新到顶楼？

已经更新到顶楼。

lujice

谢谢大家！
目前，我暂时是这样哄孩子的：
1、把“taskkill /f /im explorer.exe”（不含引号）复制到“新建记事本”，保存为“隐藏桌面.bat”，并用“任务、计划”把它设置成“随系统启动”。这样，我不在家时，儿女打开电脑，屏幕空空如也。乱按，电脑毫无反应；
2、我在家用电脑办公时，儿女来捣乱，我偷偷地一键下去，利用“秘密热键工具”预先设置的热键指定打开“隐藏桌面.bat”，屏幕立即空空如也。
3、要恢复桌面，再利用“秘密热键工具”预先设置的热键，一键重新运行“C:\WINDOWS\explorer.exe”（即恢复桌面）。
3、但是，这也太好破解了吧！！！还是希望有高手能完成那两个工具。

“秘密热键工具”的下载地址在http://download.csdn.net/source/2044785

[ 本帖最后由 lujice 于 2010-2-3 16:23 编辑 ]

rat

电脑设个密码不就行了吗