Открываю USB устройство через его GUID.
Все открывается и работает.
Но! Любая прога также может открыть это устройство, и тогда, естественно, начинаются глюки.
Нужно либо как то узнать, открыто ли кем-то уже данное устройство, либо как-то открывать с эксклюзивными правами. Но как ?
Код ниже. CreateFile вроде открывает в эксклюзивном режиме, но это не мешает открыть устройство повторно.

function getGUIDevHandle(s:string; dNum:integer):dword;
  var
  GD:TGUID;
  devInfoData:SP_DEVINFO_DATA;
  devInterfaceData:SP_DEVICE_INTERFACE_DATA;
  functionClassDeviceData:PSPInterfaceDeviceDetailData;
  requiredLength:dword;
  deviceNumber:integer;
  hwDeviceInfo:HDEVINFO;
  predictedLength:cardinal;
  ok:boolean;
  begin
  result:=0;
  GD:=GUIStrToGUID(s);
  requiredLength:= 0;
  deviceNumber:= dNum;  // Can be other values if more than 1 device connected to driver

  hwDeviceInfo := SetupDiGetClassDevs (@GD, Nil, 0, DIGCF_PRESENT or DIGCF_INTERFACEDEVICE);

  if (cardinal(hwDeviceInfo) <> INVALID_HANDLE_VALUE)
    then begin
          devInterfaceData.cbSize := sizeof(devInterfaceData);

          if (SetupDiEnumDeviceInterfaces ( hwDeviceInfo, Nil, GD, deviceNumber, devInterfaceData))
            then begin
                inc (deviceNumber);
                //SetupDiGetInterfaceDeviceDetail
                SetupDiGetDeviceInterfaceDetail( hwDeviceInfo, @devInterfaceData, Nil, 0, requiredLength, Nil);
                predictedLength := requiredLength;
                functionClassDeviceData := PSPInterfaceDeviceDetailData( GlobalAlloc (GPTR, predictedLength));
                functionClassDeviceData^.cbSize := sizeof (TSPDeviceInterfaceDetailData); //???? - все ок
                devInfoData.cbSize := sizeof(devInfoData);
                if (SetupDiGetDeviceInterfaceDetail (hwDeviceInfo,
                                            @devInterfaceData,
                                            functionClassDeviceData,
                                            predictedLength,
                                            requiredLength,
                                            @devInfoData))
                  then begin
                        Result:= CreateFile( functionClassDeviceData^.DevicePath,
                            GENERIC_WRITE or GENERIC_READ,
                            0, //FILE_SHARE_WRITE or FILE_SHARE_READ,
                            Nil,
                            OPEN_EXISTING,
                            FILE_FLAG_OVERLAPPED,
                            0);
                        end;

        GlobalFree(cardinal(functionClassDeviceData));
      end; // if (SetupDiEnumDeviceInterfaces ( hwDeviceInfo, Nil, GD, deviceNumber, devInterfaceData))

    SetupDiDestroyDeviceInfoList(hwDeviceInfo);
    end; //if (cardinal(hwDeviceInfo) <> INVALID_HANDLE_VALUE)
  if Result=INVALID_HANDLE_VALUE then Result:=0;
  end;