如何使 win + D快捷鍵對本應用程序無效

今天看到 一個帖子征集此問題的解法，原帖：http://topic.csdn.net/u/20100331/10/5ba44808-15a7-444c-a659-7f7d00c39f98.html?44566 

其中列出的解法如下：

//方法1 procedure TForm1.Createparams(var params: TCreateParams); begin inherited CreateParams(Params); with params do begin Style:=WS_POPUP or WS_BORDER; ExStyle := WS_EX_TOOLWINDOW or WS_EX_TOPMOST or WS_EX_NOACTIVATE or WS_EX_WINDOWEDGE; WndParent:=getDeskTopWindow; end; end; //方法2 procedure TForm1.FormCreate(Sender: TObject); begin SetWindowLong(application.handle,GWL_ExSTYLE,WS_EX_TOOLWINDOW); 　SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE); end;

但這兩種方法無一不是，使窗體具備topmost的特性，所以原帖作者嘗試是否有其他方法，下面給出一個看起來蠻合適的做法：

unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender : TObject); private { Private declarations } fOldAppParentHandle : THandle; fProgManHandle : THandle; protected procedure WMSysCommand(var Message : TWMSysCommand); message WM_SYSCOMMAND; procedure AppRestore (Sender : TObject); public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); begin fOldAppParentHandle := GetParent(Application.Handle); fProgManHandle := FindWindow('Progman', nil); Windows.SetParent(Application.Handle, fProgManHandle); Application.OnRestore := AppRestore; end; procedure TForm1.WMSysCommand(var Message : TWMSysCommand); begin case (Message.CmdType and $FFF0) of SC_MINIMIZE : Windows.SetParent(Application.Handle,fOldAppParentHandle); SC_RESTORE : Windows.SetParent(Application.Handle, fProgManHandle ); end; {case} inherited; end; procedure TForm1.AppRestore(Sender : TObject); begin Windows.SetParent(Application.Handle, fProgManHandle); end; end.

 

這里再補充說明一下 Win + D 和 Win + M

Win + D快捷鍵 其實只是將 DeskTop這個窗口提前而已

Win + M   是真正是各個應用最小化的快捷鍵