| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Что значит константа 7 в WMDEVICECHANGE?

Kolan ©   (2008-03-31 10:09:00) 

Здравствуйте,
 Для обнаружения устройств всегда использовал такой код:

procedure TMainForm.WMDEVICECHANGE(var Msg: TWMDeviceChange);
var
 lpdb  : PDevBroadcastHdr;
 lpdbpr: PDevBroadCastPort;
 S: string;
begin
{Заголовок сообщения}
lpdb := PDevBroadcastHdr(Msg.dwData);
case Msg.Event of
  DBT_DEVICEARRIVAL:
  begin {Добавление}
    if lpdb^.dbch_devicetype = DBT_DEVTYP_PORT then begin
      lpdbpr:= PDevBroadCastPort(Msg.dwData);
      S := StrPas(@lpdbpr.dbcp_name);

      {SetComName(S);}
    end;
  end;
  DBT_DEVICEREMOVECOMPLETE:
  begin {Удаление}
    if lpdb^.dbch_devicetype = DBT_DEVTYP_PORT then begin
      lpdbpr:= PDevBroadCastPort(Msg.dwData);
      S := StrPas(@lpdbpr.dbcp_name);

      {if S = GetComName then
      begin
        SetComName('COM1');
      end;}
    end;
  end;
end;
end;

Это же самое событие, как я понимаю, должно приходить при подкл/откл флешки.
Попробывал. Msg.Event = 7 как при подключении так и при отключении флешки.

Вопросы: Что значить эта константа(доки…)? Почему не приходит нужное событие?

---

Игорь Шевченко   (2008-03-31 11:28:00) [1]

> Попробывал


> Извеняюсь


Ленина не уважаешь, гад

---

Kolan   (2008-03-31 10:23:00) [2]

Нашел в MSDN. Извеняюсь.

---

Наверх