デバイス検知について

Led 2006-04-21 23:32:26 No: 21146

以下のコードを組みますと、ＣＤの出し入れを検知することができます。
同じように、USBメモリも検知できます。
しかし、ＣＦカードなどで、カードを挿していない状態でもドライブが
割り当てられている場合、カードを挿してエクスプローラから中身が
見えるようになっても、以下のコードが実行されません。
どうすればいいか分かりませんでしょうか？

{ Private 宣言 }
procedure WmDevChange(var Mess: TMessage); message WM_DEVICECHANGE;

procedure TForm1.WmDevChange(var Mess: TMessage);
begin
  case Mess.WParam of
    $8000://DBT_DEVICEARRIVAL:
    begin
      //挿入された
    end;

    $8004://DBT_DEVICEREMOVECOMPLETE:
    begin
      //出された
    end;
  end;
end;