如何用热键显示桌面??

Question

请问如何用热键使正在运行的所有程序都最小化, 并显示windows桌面.
其作用就像一些游戏修改器, 如金山游侠, 按*号就可以使正在运行的游戏弹出到桌面来.我试过一下, 绑定热键为 Alt + D, 下面是显示桌面的代码, 但没成功, 请指正.
var deskhandle:integer;
deskhandle:=getdesktopwindow();  //获取桌面句柄.
SetForegroundWindow(deskhandle); //设桌面为当前窗口编译后运行, 按Alt+D并不显示桌面, 为什么??

Answer 1

procedure ShowDesktop;
begin
   keybd_event(VK_LWIN, MapVirtualKey(VK_LWIN, 0), 0, 0);
   keybd_event(Ord('D'), MapVirtualKey(Ord('D'), 0), 0, 0);
   keybd_event(Ord('D'), MapVirtualKey(Ord('D'), 0), KEYEVENTF_KEYUP, 0);
   keybd_event(VK_LWIN, MapVirtualKey(VK_LWIN, 0), KEYEVENTF_KEYUP, 0);
end;

Answer 2

Delphi_Li(Delphi Li) 的调试通过~

Answer 3

不用写代码，按windows键加 D