为什么message WM_DEVICECHANGE不好用(100分)

type
TForm1 = class(TForm)
private
{ Private declarations }
procedure isCDROMInserted(var Msg:TMessage);message WM_DEVICECHANGE;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

{ TForm1 }

procedure TForm1.isCDROMInserted(var Msg: TMessage);
begin
if Msg.WParam=DBT_DEVICEARRIVAL then
{DBT_DEVICEARRIVAL为光驱塞入光盘的标志}
ShowMessage('CD Inserted');
end;

end.
不好用

请参考CDEvents控件源码。深度里有。

它是当变化的时候才会触发， 你把 cdrom 弹开，再关上，就行乐，
我前几天还试了，行的。

不放盘关门是不触发的。

多人接受答案了。