Обнаружить втыкание флешки и узнать ее VID и PID

[IvanSCM]

Необходимо обнаружить втыкание флешки и узнать ее VID и PID.

[W0LF]

"Втыкание" и "оттыкание" можно отловить с помощью WMDeviceChange, ну или использовать компонент ComponentUSB (найдешь в аттаче). Поискал тут по реестру и наткнулся на нужную, думаю, тебе информацию:

В ветке реестра "HKEY_LOCAL_MACHINE\SYSTEM\CurrentC ontrolSet\Services\USBSTOR\Enum" находиться параметр Count, который показует количество подключенных USB устройств, там же параметры от 0 и до Count -1 находяться парметры (если Count > 0) которые имеют в значении кусок адреса ветки, пример: "USB\Vid_13fe&Pid_1e00\078409BE0052 ", которая и имеет Vid и Pid (Vid = 13fe, Pid = 1e00 и последняя запись 078409BE0052 - серийный номер (его мне показуют различные программы для работы с флешками)), если же к адресу "SYSTEM\CurrentControlSet\Enum\ " добавить те значения, то мы получаем ветку с информацией о USB устройстве, пример:

Class: USB
ClassGUID: {36FC9E60-xxxx-xxxx-xxxx-xxxxxxxx0000}
DeviceDesc: Запоминающее устройство для USB
Driver: {36FC9E60-xxxx-xxxx-xxxx-xxxxxxxx0000}\0019
HardwareID: тут можно узнать опять же Vid, Pid и Rev (хотя не знаю что это)
LocationInformation: Patriot Memory

и другое, но оно мне непоказалось нужным...

Да, еще предоставляю функцию, для получения списка букв сьемных носителей:

function GetRemovableDrives: string;
var
  d: dword;
  b: byte;
begin
  result := '';
  d := GetLogicalDrives;
  for b := 2 to 26 do
    if 1 shl b and d > 0 then
      if GetDriveType(PChar(chr(b+65)+':\')) = DRIVE_REMOVABLE then
        result := result + chr(b+65);
end;

P.S.: Вообщем вся информация дана, для получения той информации которую вы хотели, нужно лишь собрать все в кучу и написать маленькую програмульку (в основном идет работа с реестром).

[IvanSCM]

Спасибо. В закладки.