• Что бы вступить в ряды "Принятый кодер" Вам нужно:
    Написать 10 полезных сообщений или тем и Получить 10 симпатий.
    Для того кто не хочет терять время,может пожертвовать средства для поддержки сервеса, и вступить в ряды VIP на месяц, дополнительная информация в лс.

  • Пользаватели которые будут спамить, уходят в бан без предупреждения. Спам сообщения определяется администрацией и модератором.

  • Гость, Что бы Вы хотели увидеть на нашем Форуме? Изложить свои идеи и пожелания по улучшению форума Вы можете поделиться с нами здесь. ----> Перейдите сюда
  • Все пользователи не прошедшие проверку электронной почты будут заблокированы. Все вопросы с разблокировкой обращайтесь по адресу электронной почте : info@guardianelinks.com . Не пришло сообщение о проверке или о сбросе также сообщите нам.

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

Sascha Оффлайн

Sascha

Заместитель Администратора
Команда форума
Администратор
Сообщения
1,058
Симпатии
273
Баллы
155
После события о вставленной флешке - можно получить список дисков и найти съемный.

Пример кода на языке программирования 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;
 
Вверх Снизу