UTF-16LE to Win1251

function StringOfUtf16(const Bytes: TBytes): string;
var
  i: Integer;
begin
  SetLength(Result, Length(Bytes) div 2);
  for i := 0 to High(Bytes) do
    if (i mod 2 = 0) then
      Result[i shr 1] := Char(Bytes[i] or $FF00); // Исправление для UTF-16LE <<<вылет в отладчик
end;
 
procedure TForm1.BitBtn2Click(Sender: TObject);
var
  Utf16Bytes: TBytes; // Байты в формате UTF-16LE
  Utf8Bytes: TBytes;
  AnsiResult: AnsiString;
begin
  // Пример данных в UTF-16LE (например, "Hello")
  Utf16Bytes := [$48, $00, $65, $00, $6C, $00, $6C, $00, $6F, $00];
 
  // Сначала преобразуем UTF-16LE в UTF-8
  Utf8Bytes := TEncoding.UTF8.GetBytes(StringOfUtf16(Utf16Bytes));
 
  // Затем преобразуем UTF-8 в ANSI (CP1251)
  AnsiResult := TEncoding.ANSI.GetString(Utf8Bytes);
 
  // Отображаем результат
  ShowMessage(AnsiResult);
end;

Uses
  SetupApi, 
 
Function GetDeviceName(PnPHandle: HDEVINFO; const DevData: TSPDevInfoData): Ansistring;
Var
  BytesReturned: DWORD;
  RegDataType: DWORD;
  Buffer: array [0..256] of AnsiCHAR;
begin
  BytesReturned := 0;
  RegDataType := 0;
  Buffer[0] := #0;
  SetupDiGetDeviceRegistryProperty(PnPHandle, DevData, SPDRP_FRIENDLYNAME,
    RegDataType, PByte(@Buffer[0]), SizeOf(Buffer), BytesReturned);
  Result := Buffer;
  if Result<>'' then exit;
  BytesReturned := 0;
  RegDataType := 0;
  FillChar (Buffer, SizeOf (Buffer), #0);
  SetupDiGetDeviceRegistryProperty(PnPHandle, DevData, SPDRP_DEVICEDESC,
    RegDataType, PByte(@Buffer[0]), SizeOf(Buffer), BytesReturned);
  Result := Buffer;
end;
 
procedure AddDevices(aNode: TTreeNode; aGUID: TGUID);
var
  PnPHandle: HDEVINFO;
  DevData: TSPDevInfoData;
  RES: LongBool;
  Devn: Integer;
  _DN,_PN:ULONG;
  aString: PAnsiString;
begin
  PnPHandle := SetupDiGetClassDevs(@aGUID, nil, 0, DIGCF_PRESENT);
  if PnPHandle = INVALID_HANDLE_VALUE then  Exit;
 
  Devn := 0;
  repeat
   DevData.cbSize := SizeOf(DevData);
   RES := SetupDiEnumDeviceInfo(PnPHandle, Devn, DevData);
   if (RES) and (_DN <> DN_ROOT_ENUMERATED) then
    begin
 
      Form1.TreeView1.Items.AddChild(aNode, GetDeviceName(PnPHandle, DevData));
      Inc(Devn);
    end;
   if Devn = 0 then
    begin
      Form1.TreeView1.Items.Delete(aNode);
      break;
    end;
  until not RES;
  SetupDiDestroyDeviceInfoList(PnPHandle);
end;
 
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  _i: DWORD;
  Res: CONFIGRET;
  GUID: PGUID;
  Buffer: Array [0..1023] of CHAR;
  BufSize: DWORD;
  Node: TTreeNode;
begin
  DeviceClassesList:=TStringList.Create;
  _i:=0;
  repeat
    GetMem(GUID, SizeOf(TGUID));
    Res := CM_Enumerate_Classes(_i, GUID^, 0);
    if Res <> CR_NO_SUCH_VALUE then
    begin
      FillChar (Buffer, SizeOf (Buffer), #0);
      SetupDiGetClassDescriptionA(GUID^, @Buffer[0], Length(Buffer), BufSize);
      DeviceClassesList.AddObject(Pchar(PAnsiChar (@Buffer[0])), TObject(GUID));
    end;
    Inc(_i);
 
  until Res = CR_NO_SUCH_VALUE;
  FreeMem (GUID);
 
  for _i:=0 to DeviceClassesList.Count-1 do
   begin
     Node := TreeView1.Items.AddChild(nil, PAnsiChar (DeviceClassesList.Strings[_i]));
     GUID := PGUID(DeviceClassesList.Objects[_i]);
     AddDevices(Node, GUID^);
   end;
  TreeView1.AlphaSort(True);
end;

Function GetDeviceName(PnPHandle: HDEVINFO; const DevData: TSPDevInfoData): WideString;
Var
  BytesReturned: DWORD;
  RegDataType: DWORD;
  Buffer: array [0..Max_Path] of WideChar;
begin
  //Попытка получить FrendlyName
  if SetupDIGetDeviceRegistryProperty (PnPHandle, DevData,  SPDRP_FriendlyName,
      RegDataType, @Buffer[0], SizeOf (Buffer), BytesReturned) then
  Begin
    Result := Buffer;
    Exit;
  End;
 
  //Если попытка не удалась
  if SetupDIGetDeviceRegistryProperty (PnPHandle, DevData, SPDRP_DeviceDesc,
      RegDataType, @Buffer[0], SizeOf (Buffer), BytesReturned) then
  Begin
    Result := Buffer;
    Exit;
  End;
  Result := '';//если ничего не помогло
end;
 
procedure AddDevices(aNode: TTreeNode; aGUID: TGUID);
Var
  PnPHandle: HDEVINFO;
  DevData: TSPDevInfoData;
  RES: LongBool;
  DevN: Integer;
 
  //Для работы с именем устройства работаем с ANSI символами
  DeviceName: Array [0..Max_Path] Of Char;
begin
  PnPHandle := SetupDiGetClassDevs(@aGUID, nil, 0, DIGCF_PRESENT);// or DIGCF_DeviceInterface);
  if PnPHandle = Invalid_Handle_Value then Exit;
  Try
    DevN := 0;
    Repeat
      FillChar (DevData, SizeOf (DevData), 0);
      DevData.cbSize := SizeOf (TSPDevInfoData);
      Res := SetupDIEnumDeviceInfo (PnPHandle, DevN, DevData);
      if Res then
      Begin
        Form1.TreeView1.Items.AddChild(aNode, PAnsiChar (GetDeviceName(PnPHandle, DevData)));
        Inc (DevN);
      End;
      if Devn = 0 then
      begin
        Form1.TreeView1.Items.Delete(aNode);
        break;
      end;
      Inc (DevN);
    Until Not Res;
  Finally
    SetupDIDestroyDeviceInfoList (PnPHandle);
  End;
end;
 
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  _i: DWORD;
  Res: CONFIGRET;
  GUID: PGUID;
  Buffer: Array [0..1023] of CHAR;
  BufSize: DWORD;
  Node: TTreeNode;
  ClassGuid: TGUID;
begin
  DeviceClassesList:=TStringList.Create;
  Try
    _i:=0;
    FillChar (ClassGUID, SizeOf (ClassGUID), 0);
    Repeat
      GetMem(GUID, SizeOf(TGUID));
      Res := CM_Enumerate_Classes(_i, GUID^, 0);
      if Res <> CR_NO_SUCH_VALUE then
      begin
        FillChar (Buffer, SizeOf (Buffer), #0);
        BufSize := Length (Buffer);
        SetupDiGetClassDescriptionA(GUID^, @Buffer[0], Length(Buffer),
        BufSize);//если Nil то ошибка компиляции
        DeviceClassesList.AddObject(Pchar(@Buffer[0]), TObject(GUID));
      End;
      Inc(_i);
    until Res = CR_NO_SUCH_VALUE;
    FreeMem (GUID);
 
    For _i:=0 to DeviceClassesList.Count-1 do
    begin
      Node := TreeView1.Items.AddChild(nil,
        PAnsiChar (DeviceClassesList.Strings[_i]));//PANSIChar - иначе кракозябры
      GUID := PGUID(DeviceClassesList.Objects[_i]);
      AddDevices(Node, GUID^);
    End;
    TreeView1.AlphaSort(True);
  Finally
    FreeAndNil (DeviceClassesList);
  End;
end;