Delphi代码模拟“显示桌面”的功能
2013-10-09 17:33
453 查看
今天有人问我:“用shell打开文件(显示桌面.scf)的方式还是用模拟键盘(Win+D)显示桌面”
这应该有更好的方法,就搜了搜,关键字定位“ToggleDesktop”
因为显示桌面.scf的内容是:
[Shell]
Command=2
IconFile=explorer.exe,3
[Taskbar]
Command=ToggleDesktop
找到了MSDN http://msdn.microsoft.com/en-us/library/bb774124(VS.85).aspx
给出的是VB脚本和Javascript脚本,这个容易翻译:
JavaScript
<script language="JScript">
function fnIShellDispatch4ToggleDesktopJ()
{
var objShell = new ActiveXObject("Shell.Application");
objShell.ToggleDesktop();
}
</script>
uses ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
vShellApplication: OleVariant;
begin
vShellApplication := CreateOleObject('Shell.Application');
vShellApplication.ToggleDesktop;
end;
这应该有更好的方法,就搜了搜,关键字定位“ToggleDesktop”
因为显示桌面.scf的内容是:
[Shell]
Command=2
IconFile=explorer.exe,3
[Taskbar]
Command=ToggleDesktop
找到了MSDN http://msdn.microsoft.com/en-us/library/bb774124(VS.85).aspx
给出的是VB脚本和Javascript脚本,这个容易翻译:
JavaScript
<script language="JScript">
function fnIShellDispatch4ToggleDesktopJ()
{
var objShell = new ActiveXObject("Shell.Application");
objShell.ToggleDesktop();
}
</script>
uses ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
vShellApplication: OleVariant;
begin
vShellApplication := CreateOleObject('Shell.Application');
vShellApplication.ToggleDesktop;
end;
相关文章推荐
- Delphi&C#代码模拟“显示桌面”的功能
- Delphi&C#代码模拟“显示桌面”的功能
- Delphi&C#代码模拟“显示桌面”的功能(使用CreateOleObject('Shell.Application'))
- Delphi代码模拟“显示桌面”的功能
- Delphi编程实现显示桌面功能
- TextView加载html代码显示图片,并且支持图片放大功能
- Delphi的桌面设置功能挖掘
- Delphi编辑器的“代码完成”功能
- 【CSS3】纯CSS代码实现模拟时钟,+js对时功能。
- 给CuteEditor5增加了高亮代码显示功能
- 通过使用 SuppressMessage属性禁止显示或忽略代码分析冲突的功能
- 给CuteEditor5增加了高亮代码显示功能(C#版)
- HTTP服务端接口模拟工具-HttpServerMockTool 1 工具功能介绍 这个工具可以通过简单的配置达到快速模拟第三方HTTP服务端接口的作用,替代以前要手写servlet代码再放到to
- 开发一个delphi写的桌面图标管理代码
- 实现一个模拟CMD.exe命令编辑模式执行与显示的Delphi控件
- [装载]给CuteEditor5增加了高亮代码显示功能(C#版)
- 模拟dos下面的Debug下子命令D的功能,显示内存数据的程序
- [代码]Delphi实现窗体始终前台显示且获得焦点
- Android中用Java代码模拟鼠标指针(可显示于整个系统界面之上)
- 用Delphi模拟QQ窗体伸缩功能