Регистрация подключений Flash накопителей

[Phantom]

Добрый день...
Знаю, подобная тема поднимается каждый раз, и я честно перерыл добрые полсотни статей и топиков форума.

Но вопрос до сих пор стоит...
Нужно отследить подключение флеш накопителя.
По сути это просто:

procedure WMDEVICECHANGE(var msg:TMessage); message WM_DEVICECHANGE;

...

procedure TForm.WMDEVICECHANGE(var msg: TMessage);
begin
    if Msg.WParam = 32768 then
      begin
        Устройство подключено
        ... в моем случае я определяю что за накопитель был подключен, и регистрирую его в БД.
      end;
    if Msg.wParam = 32772 then
      begin
        Устройство отключенно
      end;
end;

Все работает... Но есть косяк. Когда в компьютер вставляют флешку которая раняее никогда не вставлялась, возникает ситуация когда носитель несколько раз пере подключается, соответственно генерируется три лишних записи в БД...

Как это исправить...

[Dee63]

сделай проще.
повесь таймер на 5 секунд.
на таймер пропиши отлов события появления флешки в системе.
Просто при новом устройстве примерно 3-4 секунды надо для появления его в финальном варианте.