[infopol]

Приветствую! Очень нужно. JEDI установить не удалось.
Задача - определения HID устройства - клавиатура, и функция отключения и включения событий.

[lmikle]

Глянь тут: https://stackoverflow.com/questions/...us%3B%20end%3B

[infopol]

Ознакомлюсь.надеюсь получиться сделать функцию DLL

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

procedure EnumDevices( List:TStrings); var   DevInfo:HDEVINFO;   InfoData:SP_DEVINFO_DATA;   I,A,Size,DType:DWORD;   Buffer,PC:PChar;   GUID:TGUID; begin   I:=0;   while True do begin     if CM_Enumerate_Classes(I,GUID,0)=CR_NO_SUCH_VALUE then Break;     DevInfo:=SetupDiGetClassDevs(@GUID,nil,0,DIGCF_PRESENT);     if DevInfo<>HDEVINFO(INVALID_HANDLE_VALUE) then try       InfoData.cbSize:=SizeOf(InfoData);       A:=0;       Buffer:=nil;       try         while SetupDiEnumDeviceInfo(DevInfo,A,InfoData) do begin           Size:=0;           while not SetupDiGetDeviceRegistryProperty(DevInfo,InfoData,SPDRP_HARDWAREID,DType,Pointer(Buffer),Size,Size) do             if GetLastError=ERROR_INSUFFICIENT_BUFFER then               ReallocMem(Buffer,Size)             else               Exit;           PC:=Buffer;           while PC^<>#0 do begin             List.Add(PC);             PC:=StrEnd(PC)+1;           end;           Inc(A);         end;       finally         FreeMem(Buffer);       end;     finally       SetupDiDestroyDeviceInfoList(DevInfo);     end;     Inc(I);   end; end;

в строке if CM_Enumerate_Classes(I,GUID,0)=CR_NO_SUCH_VALUE then Break; выдается ошибка undeclare identifier

[infopol]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58

Type   THIDUSBDeviceInfo = Record   { contains interface level information of each device}     SymLink            : String;     BufferSize         : Word;     Handle             : THandle;     VID                : DWord;     PID                : DWord;     VersionNumber      : Word;     ManufacturerString : String;     ProductString      : String;     SerialNumberString : String;   end;   THIDDeviceList = Array of THIDUSBDeviceInfo;   Const   HIDUSB_COUNTOFINTERRUPTBUFFERS = 64;   // Count of buffers for interrupt data     procedure EnumDevices( List:TStrings); var   DevInfo:HDEVINFO;   InfoData:SP_DEVINFO_DATA;   I,A,Size,DType:DWORD;   Buffer,PC:PChar;   GUID:TGUID; begin   I:=0;   while True do begin     if CM_Enumerate_Classes(I,GUID,0)=CR_NO_SUCH_VALUE then Break;     DevInfo:=SetupDiGetClassDevs(@GUID,nil,0,DIGCF_PRESENT);     if DevInfo<>HDEVINFO(INVALID_HANDLE_VALUE) then try       InfoData.cbSize:=SizeOf(InfoData);       A:=0;       Buffer:=nil;       try         while SetupDiEnumDeviceInfo(DevInfo,A,InfoData) do begin           Size:=0;           while not SetupDiGetDeviceRegistryProperty(DevInfo,InfoData,SPDRP_HARDWAREID,DType,Pointer(Buffer),Size,Size) do             if GetLastError=ERROR_INSUFFICIENT_BUFFER then               ReallocMem(Buffer,Size)             else               Exit;           PC:=Buffer;           while PC^<>#0 do begin             List.Add(PC);             PC:=StrEnd(PC)+1;           end;           Inc(A);         end;       finally         FreeMem(Buffer);       end;     finally       SetupDiDestroyDeviceInfoList(DevInfo);     end;     Inc(I);   end; end;

if CM_Enumerate_Classes(I,GUID,0)=CR_NO_SUCH_VALUE then Break;
undeclare identifier

[infopol]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167

uses  CfgMgr32;// Добавил procedure ScanForHIDdevices( Var DeviceList : THIDDeviceList;     TargetVID, TargetPID  : DWord); Var   HID_GUIid     : TGUID;   spdid        : TSPDeviceInterfaceData;   pSpDidd      : PSPDEVICEINTERFACEDETAILDATAA;   spddd        : TSPDevInfoData;   HIDinfo       : HDEVINFO;   CurIdx       : Integer;   dwSize       : DWord; pdwSize       : DWord;// добавил, почему то в примере PDWORD;     SymbolicLink : String;   DevHandle    : THandle;   HidAttrs     : THIDDAttributes;   FoundIdx     : Integer;   Info         : THIDUSBDeviceInfo;     Function GetHidDeviceInfo( Symlink : PChar) : THIDUSBDeviceInfo;   Var     pstr          : pWideChar;     preparsedData : PHIDPPreparsedData;     hidCaps       : THIDPCaps;   Begin       FillChar(Result, SizeOf( Result), 0);     Result.SymLink := SymLink+ #0;     GetMem( pstr, 512);     DevHandle := CreateFile( Symlink,                              GENERIC_READ or GENERIC_WRITE,                              FILE_SHARE_READ or FILE_SHARE_WRITE,                              nil,                              OPEN_EXISTING,                              0,                              0);         If DevHandle <> INVALID_HANDLE_VALUE then     begin       If HidD_GetAttributes( DevHandle,                              HidAttrs) then       begin         result.VID           := HidAttrs.VendorID;         result.PID           := HidAttrs.ProductID;         result.VersionNumber := HidAttrs.VersionNumber;       end;         If HidD_GetManufacturerString( DevHandle, pstr, 512) then         Result.ManufacturerString := pStr;         If HidD_GetProductString( DevHandle, pstr, 512) then         Result.ProductString := pStr;         If HidD_GetSerialNumberString( DevHandle, pstr, 512) then         Result.SerialNumberString := pStr;         { Set Input buffer size }       HidD_SetNumInputBuffers( DevHandle,                                HIDUSB_COUNTOFINTERRUPTBUFFERS);         { Get capabilities }       HidD_GetPreparsedData( DevHandle, preparsedData);         if HidD_GetPreparsedData( DevHandle, preparsedData)            then       begin         HidP_GetCaps( preparsedData, hidCaps);         Result.BufferSize := hidCaps.OutputReportByteLength;       end       else        Result.BufferSize := 11;         closeHandle( DevHandle);     end;     FreeMem( pStr);   End;   Begin   FoundIdx   := 0;   DeviceList := Nil;   { Get GUID of hid class } //ShowMessage(GUIDToString( HID_GUIid)); //  abort;   HidD_GetHidGuid( HID_GUIid); ShowMessage(GUIDToString( HID_GUIid));    abort;   { Get a list of devices belonging to HID class }   HIDinfo := SetupDiGetClassDevs( @HID_GUIid,                                   nil,                                   GetDesktopWindow(),                                   DIGCF_DEVICEINTERFACE or DIGCF_PRESENT);   { Go through list of devices } //  abort;     If thandle(HIDinfo) <> INVALID_HANDLE_VALUE then   begin     CurIdx := 0;     spdid.cbSize := SizeOf(spdid);     While SetupDiEnumDeviceInterfaces( HIDinfo,                                        nil,                                        HID_GUIid,                                        curIdx,                                         spdid) do     begin       dwSize := 0;       { Get device path for Createfile calls }           SetupDiGetDeviceInterfaceDetail( HIDinfo,                                        @spdid,                                        nil,                                        dwSize,                                        pdwSize,                                        nil);         If dwSize > 0 then       begin         GetMem(pSpDidd, pdwSize);         pSpDidd^.cbSize := SizeOf( TSPDEVICEINTERFACEDETAILDATAA);         spddd.cbSize    := SizeOf(spddd);         If SetupDiGetDeviceInterfaceDetail( HIDinfo,                                             @spdid,                                             pSpDidd,                                             dwSize,                                             pdwSize,                                             @spddd) then         begin           SymbolicLink := PChar( @(pSpDidd^.DevicePath));             { Get information about the device (Vendor and             Product IDs, Strings, ...) }           FillChar(info, SizeOf(Info), 0);           Info        := GetHidDeviceInfo( @(pSpDidd^.DevicePath));           Info.Handle := INVALID_HANDLE_VALUE;             { check if VID/PID match targets }           If (Info.VID = TargetVID) AND              (Info.PID = TargetPID) then           begin             { Add Devices to result list }             SetLength(DeviceList, FoundIdx + 1);             DeviceList[foundIdx] := Info;             Inc(FoundIdx);           end           else  // list all HID devices if no target is specified             If (TargetVID = 0) AND (TargetPID = 0) then             begin               { Add Devices to result list }               SetLength( DeviceList, FoundIdx + 1);               DeviceList[FoundIdx] := Info;                 Inc(FoundIdx);             end;         end;           FreeMem( pSpDidd);       end;       inc(CurIdx);     end;     SetupDiDestroyDeviceInfoList( HIDinfo);   end; End;

Запускаю кнопкой выполнение Access violation at address 0000000

[lmikle]

скорее всего либо какой-то объект не создан, либо возвращается 0, а ты это не проверяешь. На какой строке вываливается дебаггер?

[infopol]

Я так понял это функция из HID.pas .
Вот есть такая процедура,она тоже вызывает аналогичную ошибку

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

procedure EnumDevices( List:TStrings); var   DevInfo:HDEVINFO;   InfoData:SP_DEVINFO_DATA;   I,A,Size,DType:DWORD;   Buffer,PC:PChar;   GUID:TGUID; begin   I:=0;   while True do begin       if CM_Enumerate_Classes(I,GUID,0)=CR_NO_SUCH_VALUE then Break;     DevInfo:=SetupDiGetClassDevs(@GUID,nil,0,DIGCF_PRESENT);     if DevInfo<>HDEVINFO(INVALID_HANDLE_VALUE) then try       InfoData.cbSize:=SizeOf(InfoData);       A:=0;       Buffer:=nil;       try         while SetupDiEnumDeviceInfo(DevInfo,A,InfoData) do begin           Size:=0;           while not SetupDiGetDeviceRegistryProperty(DevInfo,InfoData,SPDRP_HARDWAREID,DType,Pointer(Buffer),Size,Size) do             if GetLastError=ERROR_INSUFFICIENT_BUFFER then               ReallocMem(Buffer,Size)             else               Exit;           PC:=Buffer;           while PC^<>#0 do begin             List.Add(PC);             PC:=StrEnd(PC)+1;           end;           Inc(A);         end;       finally         FreeMem(Buffer);       end;     finally       SetupDiDestroyDeviceInfoList(DevInfo);     end;     Inc(I);   end; end;

При вызове CM_Enumerate_Classes(I,GUID,0) появляется ошибка

[lmikle]

Ну не знаю. У меня работает - возвращает список гуидов.
Возможно, ты что-то с импортом функции напутал.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

const   CR_SUCCESS       = $00000000;   CR_NO_SUCH_VALUE = $00000025;   function CM_Enumerate_Classes(ulClassIndex : Cardinal; var ClassGuid : TGUID; ulFlags : Cardinal) : DWORD; stdcall; external 'Cfgmgr32.dll';   procedure TForm1.Button1Click(Sender: TObject); var   Idx : Integer;   DevGUID : TGUID;   iRet : DWORD; begin   Idx := 0;   iRet := CM_Enumerate_Classes(Idx,DevGUID,0);   While iRet = CR_SUCCESS Do     Begin       Memo1.Lines.Add(GUIDToString(DevGUID));       Inc(Idx);       iRet := CM_Enumerate_Classes(Idx,DevGUID,0);     End;   ShowMessage(Format('Last function return is %s',[IntToHex(iRet,2)])); end;

[infopol]

А вот тут затык
{ Get a list of devices belonging to HID class }

Код:

1 2 3 4 5 6

HidD_GetHidGuid( HID_GUIid); // Вызов этой процедуры дает ошибку     HIDinfo := SetupDiGetClassDevs( @HID_GUIid,                                   nil,                                   GetDesktopWindow(),                                   DIGCF_DEVICEINTERFACE or DIGCF_PRESENT);

Это можно пропустить, но как получить информация об устройствах?
нашел функцию

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64

Function GetHidDeviceInfo( Symlink : PChar) : THIDUSBDeviceInfo;   Var     pstr          : pWideChar;     preparsedData : PHIDPPreparsedData;     hidCaps       : THIDPCaps;   Begin  //  abort;     FillChar(Result, SizeOf( Result), 0);     Result.SymLink := SymLink+ #0;     GetMem( pstr, 512);  //   abort;     DevHandle := CreateFile( Symlink,                              GENERIC_READ or GENERIC_WRITE,                              FILE_SHARE_READ or FILE_SHARE_WRITE,                              nil,                              OPEN_EXISTING,                              0,                              0);         If DevHandle <> INVALID_HANDLE_VALUE then     begin       If HidD_GetAttributes( DevHandle,                              HidAttrs) then       begin         result.VID           := HidAttrs.VendorID;         result.PID           := HidAttrs.ProductID;         result.VersionNumber := HidAttrs.VersionNumber;       end;         If HidD_GetManufacturerString( DevHandle, pstr, 512) then         Result.ManufacturerString := pStr;         If HidD_GetProductString( DevHandle, pstr, 512) then         Result.ProductString := pStr;         If HidD_GetSerialNumberString( DevHandle, pstr, 512) then         Result.SerialNumberString := pStr;         { Set Input buffer size }       HidD_SetNumInputBuffers( DevHandle,                                HIDUSB_COUNTOFINTERRUPTBUFFERS);         { Get capabilities }       HidD_GetPreparsedData( DevHandle, preparsedData);         if HidD_GetPreparsedData( DevHandle, preparsedData)            then       begin         HidP_GetCaps( preparsedData, hidCaps);         Result.BufferSize := hidCaps.OutputReportByteLength;       end       else        Result.BufferSize := 11;         closeHandle( DevHandle);     end;     FreeMem( pStr);   End;     ;

Чтобы это работало нужно как то запустить LoadHid();
Не найдена точка входа в процедуру advapi32.EventSetInformation в DLL api-ms-win-eventing-provider-l1-1-0.dll

[infopol]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

procedure TForm1.Button2Click(Sender: TObject); Var   List:TStrings;   DeviceList : THIDDeviceList;   I          : Integer;   HID_GUIid :TGUID;   begin  LoadHid(); LoadSetupApi();   // Abort; //EnumDevices(list);  //  HidD_GetHidGuid  //HidD_GetHidGuid( HID_GUIid); //Abort;   ScanForHIDdevices( DeviceList, 0, 0);     Memo1.Lines.Clear;   Memo1.Lines.Add(IntToStr(Length(DeviceList)) + ' device(s) found');   If Length(DeviceList) > 0 then     For I := 0 to Length(DeviceList)-1 do       With DeviceList[i] do       begin         Memo1.Lines.Add('Device Number : '   + IntToStr(I));         Memo1.Lines.Add('Symbolic link : '   + SymLink);         Memo1.Lines.Add('Handle        : 0x' + IntToHex(Handle, 1));         Memo1.Lines.Add('Buffer size   : '   + IntToStr(BufferSize));         Memo1.Lines.Add('VID           : 0x' + IntToHex(VID, 4));         Memo1.Lines.Add('PID           : 0x' + IntToHex(PID, 4));         Memo1.Lines.Add('Version       : '   + IntToStr(VersionNumber));         Memo1.Lines.Add('Manufacturer  : '   + ManufacturerString);         Memo1.Lines.Add('Product name  : '   + ProductString);         Memo1.Lines.Add('Serial number : '   + SerialNumberString);         Memo1.Lines.Add(' ');       end;   Memo1.SetFocus;       unLoadHid(); unLoadSetupApi();  end;

0 device(s) found

[infopol]

EnumDevices( List) дает ошибку
ScanForHIDdevices( DeviceList, 0, 0) вообще ничего не дает

[infopol]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67

procedure EnumDevices(var List:TStrings); var   InfoData:SP_DEVINFO_DATA;   I,A,Size,DType:DWORD;   Buffer,PC:PChar;   GUID:TGUID; begin  LoadSetupApi();       List:=TStringList.Create;  LoadHid();   I:=0; //  CM_Enumerate_Classes(I,GUID,0);  // abort;   while True do begin       if CM_Enumerate_Classes(I,GUID,0)=CR_NO_SUCH_VALUE then Break;     DevInfo:=SetupDiGetClassDevs(@GUID,nil,0,DIGCF_PRESENT); // abort;     if DevInfo<>HDEVINFO(INVALID_HANDLE_VALUE) then     try     //  exit;       InfoData.cbSize:=SizeOf(InfoData);       A:=0;       Buffer:=nil;       //Exit;       try         while SetupDiEnumDeviceInfo(DevInfo,A,InfoData) do begin           Size:=0;             while not SetupDiGetDeviceRegistryProperty(DevInfo,InfoData,SPDRP_HARDWAREID,DType,Pointer(Buffer),Size,Size)            do           begin            // Exit;             if GetLastError=ERROR_INSUFFICIENT_BUFFER then               ReallocMem(Buffer,Size)             else               Exit;             end;           PC:=Buffer;         // exit;           while PC^<>#0 do begin               List.Add(String(PC));           PC:=StrEnd(PC)+1;           end;         //    Exit;           Inc(A);         end;       finally   //            break;           // Exit;           FreeMem(Buffer);     end;  //   Exit;     finally   //  Exit;                      SetupDiDestroyDeviceInfoList(@DevInfo);       //       SetupDiDestroyDeviceInfoList(DevInfo);     end;     Inc(I);   end;   UnLoadSetupApi();   UnLoadHid(); end;

а вот procedure ScanForHIDdevices( Var DeviceList : THIDDeviceList;
TargetVID, TargetPID : DWord); ничего не выдает

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172

procedure ScanForHIDdevices( Var DeviceList : THIDDeviceList;     TargetVID, TargetPID  : DWord); Var   HID_GUIid     : TGUID;   spdid        : TSPDeviceInterfaceData;   pSpDidd      : PSPDEVICEINTERFACEDETAILDATAA;   spddd        : TSPDevInfoData;   HIDinfo       : HDEVINFO;   CurIdx       : Integer;   dwSize       : DWord; pdwSize       : DWord;     SymbolicLink : String;  // DevHandle    : THandle;  // HidAttrs     : THIDDAttributes;   FoundIdx     : Integer;   Info         : THIDUSBDeviceInfo;     Function GetHidDeviceInfo( Symlink : PChar) : THIDUSBDeviceInfo;   Var     pstr          : pWideChar;     preparsedData : PHIDPPreparsedData;     hidCaps       : THIDPCaps;   Begin  //  abort;  LoadHid();     FillChar(Result, SizeOf( Result), 0);     Result.SymLink := SymLink+ #0;     GetMem( pstr, 512);  //   abort;     DevHandle := CreateFile( Symlink,                              GENERIC_READ or GENERIC_WRITE,                              FILE_SHARE_READ or FILE_SHARE_WRITE,                              nil,                              OPEN_EXISTING,                              0,                              0);         If DevHandle <> INVALID_HANDLE_VALUE then     begin       If HidD_GetAttributes( DevHandle,                              HidAttrs) then       begin         result.VID           := HidAttrs.VendorID;         result.PID           := HidAttrs.ProductID;         result.VersionNumber := HidAttrs.VersionNumber;       end;         If HidD_GetManufacturerString( DevHandle, pstr, 512) then         Result.ManufacturerString := pStr;         If HidD_GetProductString( DevHandle, pstr, 512) then         Result.ProductString := pStr;         If HidD_GetSerialNumberString( DevHandle, pstr, 512) then         Result.SerialNumberString := pStr;         { Set Input buffer size }       HidD_SetNumInputBuffers( DevHandle,                                HIDUSB_COUNTOFINTERRUPTBUFFERS);         { Get capabilities }       HidD_GetPreparsedData( DevHandle, preparsedData);         if HidD_GetPreparsedData( DevHandle, preparsedData)            then       begin         HidP_GetCaps( preparsedData, hidCaps);         Result.BufferSize := hidCaps.OutputReportByteLength;       end       else        Result.BufferSize := 11;         closeHandle( DevHandle);     end;     FreeMem( pStr);   End;   Begin  LoadHid();       LoadSetupApi();     FoundIdx   := 0;   DeviceList := Nil;   { Get GUID of hid class } //ShowMessage(GUIDToString( HID_GUIid));   //abort;   HidD_GetHidGuid( HID_GUIid); //ShowMessage(GUIDToString( HID_GUIid));   // abort;   { Get a list of devices belonging to HID class }   HIDinfo :=  SetupDiGetClassDevs( @HID_GUIid,                                   nil,                                   GetDesktopWindow(),                                   DIGCF_DEVICEINTERFACE or DIGCF_PRESENT);     { Go through list of devices }       If thandle(HIDinfo) <> INVALID_HANDLE_VALUE then   begin     CurIdx := 0;     spdid.cbSize := SizeOf(spdid);     While SetupDiEnumDeviceInterfaces( HIDinfo,                                        nil,                                        HID_GUIid,                                        curIdx,                                         spdid) do     begin       dwSize := 0;       { Get device path for Createfile calls }           SetupDiGetDeviceInterfaceDetail( HIDinfo,                                        @spdid,                                        nil,                                        dwSize,                                        pdwSize,                                        nil);         If pdwSize > 0 then       begin         GetMem(pSpDidd, pdwSize);         pSpDidd^.cbSize := SizeOf( TSPDEVICEINTERFACEDETAILDATAA);         spddd.cbSize    := SizeOf(spddd);         If SetupDiGetDeviceInterfaceDetail( HIDinfo,                                             @spdid,                                             pSpDidd,                                             dwSize,                                             pdwSize,                                             @spddd) then         begin           SymbolicLink := PChar( @(pSpDidd^.DevicePath));             { Get information about the device (Vendor and             Product IDs, Strings, ...) }           FillChar(info, SizeOf(Info), 0);           Info        := GetHidDeviceInfo( @(pSpDidd^.DevicePath));           Info.Handle := INVALID_HANDLE_VALUE;             { check if VID/PID match targets }           If (Info.VID = TargetVID) AND              (Info.PID = TargetPID) then           begin             { Add Devices to result list }             SetLength(DeviceList, FoundIdx + 1);             DeviceList[foundIdx] := Info;             Inc(FoundIdx);           end           else  // list all HID devices if no target is specified             If (TargetVID = 0) AND (TargetPID = 0) then             begin               { Add Devices to result list }               SetLength( DeviceList, FoundIdx + 1);               DeviceList[FoundIdx] := Info;                 Inc(FoundIdx);             end;         end;           FreeMem( pSpDidd);       end;       inc(CurIdx);     end;     SetupDiDestroyDeviceInfoList( HIDinfo);   end; End;

[infopol]

При установке сканера в режиме HIDUSB нужно отключить события HID клавиатры,которая устанавливается при загрузке драйвера
HID\VID_25A7&PID_0701&REV_1001 {4D36E96B-E325-11CE-BFC1-08002BE10318} > 4588
HID\VID_25A7&PID_0701 {4D36E96B-E325-11CE-BFC1-08002BE10318} > 4588
HID_DEVICE_SYSTEM_KEYBOARD {4D36E96B-E325-11CE-BFC1-08002BE10318} > 4588
HID_DEVICE_UP:0001_U:0006 {4D36E96B-E325-11CE-BFC1-08002BE10318} > 4588
HID_DEVICE {4D36E96B-E325-11CE-BFC1-08002BE10318} > 4588