Delphi代码模拟“显示桌面”的功能
2017-07-06 17:42
393 查看
今天有人问我:“用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;
http://blog.sina.com.cn/s/blog_589d32f50100a7d9.html
这应该有更好的方法,就搜了搜,关键字定位“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;
http://blog.sina.com.cn/s/blog_589d32f50100a7d9.html
相关文章推荐
- Delphi&C#代码模拟“显示桌面”的功能
- Delphi代码模拟“显示桌面”的功能
- Delphi&C#代码模拟“显示桌面”的功能
- Delphi&C#代码模拟“显示桌面”的功能(使用CreateOleObject('Shell.Application'))
- Delphi编程实现显示桌面功能
- int 10H 显示字符串功能在《自己动手写OS》第五章代码中的分析
- js点小图显示大图的切换功能代码
- delphi代码编辑器行号显示方法
- 用CALL指令模拟实现INT 21H显示字符T的功能
- 给CuteEditor5增加了高亮代码显示功能(C#版)
- Delphi模拟QQ窗体伸缩功能
- Delphi编辑器的“代码完成”功能
- (转)下面的代码实现从SQL Server数据库提取图片并显示在DataGrid的功能。
- 给CuteEditor5增加了高亮代码显示功能
- 手动编写“显示桌面”的代码
- “显示桌面” 代码
- 在Delphi.net中使用内联代码功能
- 用Delphi模拟QQ窗体伸缩功能
- Delphi中的代码自动填充功能
- 用Delphi模拟QQ窗体伸缩功能