Скачать: CL | DM;

Подключение USB   Найти похожие ветки 

← →
apic   (2007-11-08 14:47) [0]

отлавливаю подключение флеш диска:
procedure TForm1.WMDeviceChange(var aMessage: TMessage);
type
PDevBroadcastHdr = ^DEV_BROADCAST_HDR;
DEV_BROADCAST_HDR = packed record
  dbch_size: DWORD;
  dbch_devicetype: DWORD;
  dbch_reserved: DWORD;
end;

const
DBT_DEVICEARRIVAL = $8000;
DBT_DEVICEQUERYREMOVE = $8001;
DBT_DEVICEREMOVECOMPLETE = $8004;
DBT_DEVTYP_VOLUME = $00000002;  // Новый логический том

var
devType: DWORD;

begin
// В системе появилось новое устройство.
// Подключение фотоаппарата ВСЕГДА сопровождается появлением в системе
// нового логического диска. Поэтому именно это уведомление ключевое!
inherited;

Case aMessage.wParam of

  DBT_DEVICEARRIVAL: begin  // Новое устройство готово к работе
    devType:= PDevBroadcastHdr(aMessage.LParam)^.dbch_devicetype;
    If devType = DBT_DEVTYP_VOLUME then begin
      //PostMessage(TimerForm.Handle, UM_ScanDevice, 0, 0);
      ShowMessage("Новое устройство готово к работе");
    end;
  end;

  DBT_DEVICEREMOVECOMPLETE: begin  // Устройство удалено из системы
    devType:= PDevBroadcastHdr(aMessage.LParam)^.dbch_devicetype;
    If devType = DBT_DEVTYP_VOLUME then begin
      //PostMessage(TimerForm.Handle, UM_ScanDevice, 0, 0);
      ShowMessage("Устройство удалено из системы");
    end;
  end;

  DBT_DEVICEQUERYREMOVE: begin  //
    devType:= PDevBroadcastHdr(aMessage.LParam)^.dbch_devicetype;
    If devType = DBT_DEVTYP_VOLUME then begin
      //PostMessage(TimerForm.Handle, UM_ScanDevice, 0, 0);
      ShowMessage("Устройство скоро будет удалено");
    end;
  end;
end;
end;

А как узнать букву этого нового тома?

---

← →
apic   (2007-11-09 11:34) [1]

Удалено модератором

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c