Delphi编程实现显示桌面功能

标签： delphi编程internetwindowsc

2012-06-20 16:56 1551人阅读 评论(0) 收藏 举报

分类：

Delphi（2）

[html] view plain copy

1. //兼容win7 vista xp 的桌面嵌入代码(delphi)   
2. procedure findDesktopWnd;  
3.   Function MyEnumWindowProc(wnd: HWND; LPARAM: LPARAM): Boolean; stdcall;  
4.   var  
5.   sndWnd, targetWnd: Cardinal;  
6.   begin  
7.   sndWnd := FindWindowEx(wnd, 0, 'SHELLDLL_DefView', 0);  
8.   if sndWnd = 0 then  
9.   begin  
10.   Result := true;  
11.   Exit;  
12.   end;  
13.   targetWnd := FindWindowEx(sndWnd, 0, 'SysListView32', 'FolderView');  
14.   if targetWnd = 0 then  
15.   begin  
16.   Result := true;  
17.   Exit;  
18.   end;  
19.   deskTopHandel := wnd;  
20.   Result := false;  
21.   end;  
22.   
23. begin  
24.   EnumWindows(@MyEnumWindowProc, 0);  
25. end;  

 

[html] view plain copy

1. uses   shellapi;   
2.   
3. ShellExecute(handle,   nil,   'c:\windows\...\Internet   Explorer\Quick   Launch\显示桌面.scf ',   nil,   nil,   sw_shownormal);  

 

最简单的：PostMessage(HWND_BROADCAST,   WM_SYSCOMMAND,   SC_MINIMIZE,   0);

 

//同时按下WINDOW键和M键能最小化所有窗口   91   window   key   77   M  
    keybd_event(91,   0,   0,   0);
    keybd_event(77,   0,   0,   0);
    keybd_event(77,   0,   KEYEVENTF_KEYUP,   0);
    keybd_event(91,   0,   KEYEVENTF_KEYUP,   0);

 

其实正宗的解决方法是发送一个TaggleDesktop的DDE消息给Explorer.exe。

 

抄袭自：

http://topic.csdn.net/t/20010417/23/99323.html

[html] view plain copy

1. var  
2.   vShellApplication: OleVariant;  
3. begin  
4.   vShellApplication := CreateOleObject('Shell.Application');  
5.   vShellApplication.ToggleDesktop;  
6. end;