Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

25th
Апр

Момент отключения / подключения usb устройства

Posted by Chas under Delphi

Как в Delphi обнаружить подключенные съемные носители?

kta87

function MyWndProc(my_wnd : HWND; Msg : UINT;

                   my_wparam : WPARAM; my_lparam : LPARAM) : LRESULT; stdcall;

var

  devType : Integer;

  Datos : PDevBroadcastHdr;

begin

  Result := 0;

  case Msg of

    WM_DEVICECHANGE:

    begin

      if (my_wparam = DBT_DEVICEARRIVAL) or (my_wparam = DBT_DEVICEREMOVECOMPLETE) then

      begin

        Datos := PDevBroadcastHdr(Pointer(my_lparam));

        devType := Datos^.dbch_devicetype;

        if devType = DBT_DEVTYP_DEVICEINTERFACE then

        begin

           if my_wparam = DBT_DEVICEARRIVAL then

              ShowMessage('USB устройство подключено')

           else

              ShowMessage('USB устройство отключено');

        end;

      end;

    end;

  end;

  Result := Windows.CallWindowProc(OldWndProc, my_wnd, Msg, my_wparam, my_lparam);

end;