Беда с Кардридером при помощи WM_DEVICECHANGE

[eriser]

Пишу программу печати с с любых цифровых носителей.
Код работает нормально с CD, USB.
Отслеживает подключение и отключение при помощи WM_DEVICECHANGE.
Но беда с Кардридером. Он же постоянно подключен и на карточки от фотиков (CF, MS, XD и т.д...)WM_DEVICECHANGE не реагирует.
Windows же отлавливает момент их подключения.
Если я правильно определил, то когда срабатывает автозапуск, появляется окно, где
указана буква диска в который я вставил флешку (как раз то что мне и нужно)
приходит с данными $8002 но если подсовываю это в программу, то не реагирует - возможно это от другого сообщения?
Может есть возможность взять эту букву из окна автозапуска и не заморачиваться на WM_DEVICECHANGE ? Или-же есть ещё какая возможность ?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    label1: TLabel;
  private
    procedure WMDeviceChange(var Msg: TMessage); message WM_DeviceChange;
    { Private declarations }
  public
    { Public declarations }
  end;

const  
  DBT_DeviceArrival = $8000;
  DBT_DeviceRemoveComplete = $8004;
  DBTF_Media = $0001;
  DBT_DevTyp_Volume = $0002;

type
  PDevBroadcastHdr = ^TDevBroadcastHdr;
  TDevBroadcastHdr = packed record
    dbcd_size: DWORD;
    dbcd_devicetype: DWORD;
    dbcd_reserved: DWORD;
  end;

type
  PDevBroadcastVolume = ^TDevBroadcastVolume;
  TDevBroadcastVolume = packed record
    dbcv_size: DWORD;
    dbcv_devicetype: DWORD;
    dbcv_reserved: DWORD;
    dbcv_unitmask: DWORD;
    dbcv_flags: Word;
  end;

var
  Form1: TForm1;


implementation

{$R *.dfm}
 function GetRemovableDrives: string;
var
  d: dword;
  b: byte;
begin
  result := '';
  d := GetLogicalDrives;
  for b := 2 to 26 do
    if 1 shl b and d > 0 then
      if GetDriveType(PChar(chr(b+65)+':\')) = DRIVE_REMOVABLE then
        result := result + chr(b+65)+':\';
end;



function GetDrive(pDBVol: PDevBroadcastVolume): string;
var
  i: Byte;
  Maske: DWORD;
begin

    Maske := pDBVol^.dbcv_unitmask;
    for i := 0 to 25 do
    begin
      if (Maske and 1) = 1 then
        Result := Char(i + Ord('A')) + ':\';
      Maske := Maske shr 1;
    end;

end;

procedure TForm1.WMDeviceChange(var Msg: TMessage);
var
  Drive: string;
begin
  case Msg.wParam of
    DBT_DeviceArrival:
      if PDevBroadcastHdr(Msg.lParam)^.dbcd_devicetype = DBT_DevTyp_Volume then
      begin
        Drive := GetDrive(PDevBroadcastVolume(Msg.lParam));
        label1.Caption :=  Drive;

      end;
    DBT_DeviceRemoveComplete:
      if PDevBroadcastHdr(Msg.lParam)^.dbcd_devicetype = DBT_DevTyp_Volume then
      begin
        Drive := GetDrive(PDevBroadcastVolume(Msg.lParam));
        label1.Caption := ' removed from Drive ' + Drive;
      end;
  end;
end;


end.

[B_N]

Честно говоря, Вам наверное, стоит поискать что-нибудь в DeviceIoControl, где-то в районе кодов IOCTL_CHANGER_******, IOCTL_MOUNTDEV_******, IOCTL_SMARTCARD_********. Букву из окна, конечно, можно выдернуть, но что-то это уж слишком вверх ногами получается . Да и автоплей может быть выключен.....

**********************

Нет.. тормознул, вот наверное, что нужно : RegisterDeviceNotification
http://msdn2.microsoft.com/en-us/library/aa363431.aspx