Момент подключение USB

Всем привет!Поделитесь пожалуйста инфой,как вы отслеживаете момент втыкивания флешки.
Естественно меня интересует только WinApi,и без бесконечных циклов в патоке))))

 

для отслеживания подключения нужно обрабатывать сообщение WM_DEVICECHANGE, небольшой пример:

Code:

type
  TForm = class
    .......
  protected
    procedure wmDeviceChangeProc(var Msg: TMessage); message WM_DEVICECHANGE;
  end;


  PDevBroadcastHdr = ^TDevBroadcastHdr;
  _DEV_BROADCAST_HDR = record
    dbch_size: DWORD;
    dbch_devicetype: DWORD;
    dbch_reserved: DWORD;
  end;
  {$EXTERNALSYM _DEV_BROADCAST_HDR}
  TDevBroadcastHdr = _DEV_BROADCAST_HDR;
  DEV_BROADCAST_HDR = _DEV_BROADCAST_HDR;
  {$EXTERNALSYM DEV_BROADCAST_HDR}

const
  DBT_DEVICEARRIVAL= $8000;
  DBT_DEVTYP_VOLUME = 2;


procedure TForm.wmDeviceChangeProc(var Msg: TMessage);
begin
  case Msg.WParam of
    DBT_DEVICEARRIVAL: begin then
  
      if PDevBroadcastHdr(Msg.LParam)^.dbch_devicetype = DBT_DEVTYP_VOLUME then begin
        
        MessageBoxA(0,'Inserted flash drive',nil,0);
      end;
    end;
  end;
end;

 

Не, это сообщения ловить не-то.......Чувствую я,что есть более изящный вариант.

 

Ловить сообщения - рекомендуемый вариант.
http://kaimi.ru/2012/07/windows-usb-monitoring/