Delphi Как определить, что была вставлена usb-флешка. Пример на Delphi

[Sascha]

После события о вставленной флешке - можно получить список дисков и найти съемный.

Пример кода на языке программирования Delphi:

type
      TForm1 = class(TForm)
      public
        procedure testusb(var Msg: TMessage); message WM_DEVICECHANGE;
      end;

    const
      DBT_DEVNODES_CHANGED = $7;


    procedure TForm1.testusb(var Msg: TMessage);
    begin
      if Msg.WParam=DBT_DEVNODES_CHANGED
       then
        begin
          // что-то делаем, например, запускаем таймер, который при срабатывании
          // может получить список дисков и найти имя нового смонтированного диска.
        end;
    end;