点击页面中的一按钮，显示计算机桌面

当任务栏里没有“显示桌面图标”时  可在记事本中写：

[Shell]
Command=2
IconFile=explorer.exe,3
[Taskbar]
Command=ToggleDesktop

备注：保存成.scf 格式

 

javascript：
<script language="JScript">
    function fnIShellDispatch4ToggleDesktopJ()
    {
        var objShell = new ActiveXObject("shell.application");
       
        objShell.ToggleDesktop();
    }
</script>

VBScript:
 <script language="VBScript">
    function fnIShellDispatch4ToggleDesktopVB()
        dim objShell
       
        set objShell = CreateObject("shell.application")
            objShell.ToggleDesktop
        set objShell = nothing
    end function
 </script>

 

Visual Basic:
 Private Sub fnIShellDispatch4ToggleDesktopVB()
    Dim objShell As Shell
           
    Set objShell = New Shell
        objShell.ToggleDesktop
    Set objShell = Nothing
End Sub

 

C++实现显示桌面:

/*
程序: 显示桌面 C++ 实现
说明: IShellDispatch4 接口只有WINDOWS XP以上的操作系统才支持，需要 shell32.dll 5.0或以上版本
编译环境: Microsoft Visual Studio 2008
*/
#include <windows.h>
#include <shldisp.h>

int main()
{
CoInitialize(0);
IShellDispatch4 * pdisp=NULL;
CoCreateInstance(CLSID_Shell,NULL,CLSCTX_ALL,__uuidof(IShellDispatch4),(void **)&pdisp);
pdisp->ToggleDesktop();
pdisp->Release();
CoUninitialize();
return 0;
}

C#实现显示桌面: 在vs2003中没有反应，在vs2005中可行，已测试

/*
* 程序 ： 显示桌面 C# 实现
* 编译环境 ： Microsoft Visual Studio 2008
*/
using System;
using System.Reflection;

namespace CSCONSOLE
{
    class Program
    {
        public static void Main(string [] args)
        {
            Type oleType=Type.GetTypeFromProgID("Shell.Application");
            object oleObject=System.Activator.CreateInstance(oleType);
            oleType.InvokeMember("ToggleDesktop",BindingFlags.InvokeMethod,null,oleObject,null);
        }
    }
}

 

SCF文件是“WINDOWS资源管理器命令”文件，它也是一种可执行文件.
　　该类型文件由Windows Explorer Command解释，标准安装，包括下面3个该类型的文件
　　===========================
　　1） Explorer.scf(资源管理器)
　　[Shell]
　　Command=2
　　IconFile=explorer.exe,1
　　[Taskbar]
　　Command=Explorer
　　===========================
　　2）Show Desktop.scf(显示桌面)
　　格式类似如下:
　　[Shell]
　　Command=2
　　IconFile=explorer.exe,3
　　[Taskbar]
　　Command=ToggleDesktop
　　===========================
　　3）View Channels.scf（查看频道）
　　[Shell]
　　Command=3
　　IconFile=shdocvw.dll,-118

 

创建桌面快捷方式
<script language="javascript">
   var url = "C:\\Documents and Settings\\Administrator.WBT-E231DA542FA\\Application Data\\Microsoft\\Internet Explorer\\Quick Launch\\显示桌面.scf";
   var lnk = "桌面快捷方式";
   var fso = new ActiveXObject("Scripting.FileSystemObject");      
   var shell = new ActiveXObject("WScript.Shell");
   var DesktopPath = shell.SpecialFolders("Desktop");
   if(!fso.FolderExists(DesktopPath))
   {
    fso.CreateFolder(tagFolder); */
    //fso.CreateFolder(DesktopPath);
   }
   if(!fso.FileExists(DesktopPath + "\\"+lnk+".lnk"))
   {     
    var link = shell.CreateShortcut(DesktopPath + "\\"+lnk+ ".lnk");
     
    link.Description = "用JS生成客户端快捷方式";                      
    link.TargetPath = url;
    link.WindowStyle = 1;                      
    link.Save();                             
   }
  </script>

 

System.Diagnostics.Process.Start("rundll32.exe", "shell32.dll,Control_RunDLL");// 控制面板
System.Diagnostics.Process.Start("explorer.exe", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}");// 我的电脑
System.Diagnostics.Process.Start("explorer.exe", "::{645FF040-5081-101B-9F08-00AA002F954E}");// 回收站
System.Diagnostics.Process.Start("explorer.exe", "::{208D2C60-3AEA-1069-A2D7-08002B30309D}");// 网上邻居
System.Diagnostics.Process.Start("rundll32.exe", "devmgr.dll DeviceManager_Execute");// 设备管理器
System.Diagnostics.Process.Start("rundll32.exe", "shell32.dll,Control_RunDLL timedate.cpl");//日期和时间