截获WM_DEVICECHANGE消息关闭不了系统(50分)

type
TfrmMain = class(TForm)
......
private
{ Private declarations }
procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE;
public
{ Public declarations }
....
implementation
{$R *.DFM}
procedure TfrmMain.WMDeviceChange (var Msg: TMessage);
begin
Close;
//Application.Terminate ;
end;

问题：
正常操作消息截获正常,窗口关闭也正常；
主窗口有菜单，当菜单下拉焦点在菜单上时，截获到了WM_DEVICECHANGE消息，但关闭不了窗口，如何解决？谢谢了

用ApplicationEvents来试试
在Additional面板下面。
用他的OnMessage事件

一样不行，都试了，谢谢

procedure TfrmMain.WMDeviceChange (var Msg: TMessage);
begin
Close;
Halt;
end;

试试这个

Halt
可以实现但不释放内存，先这么地吧，谢谢了