Как избавиться от этой ереси 楋杮瑳湯䐠⁔〱‱䥉唠䉓䐠癥捩?

[Marsel737]

Всем доброго времени суток.

У меня почему-то текст в программе отображается вот в таком виде

楋杮瑳湯䐠⁔〱‱䥉唠䉓䐠癥捩e

как перекодировать в нормальный текст? Уже все функции перекодировки перекробывал не помогает.

Вот процедура в которой такой текст получается:

procedure TfrmMain.GetUsbDevises;

function GetDeviceName(PnPHandle: HDEVINFO; const DevData: TSPDevInfoData): string;
var
  BytesReturned: DWORD;
  RegDataType: DWORD;
  Buffer: array [0..256] of CHAR;
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;
  Buffer[0] := #0;
  SetupDiGetDeviceRegistryProperty(PnPHandle, DevData, SPDRP_DEVICEDESC,
    RegDataType, PByte(@Buffer[0]), SizeOf(Buffer), BytesReturned);
  Result := Buffer;
end;

var
  DrivePnPHandle: HDEVINFO;
  DeviceNumber:DWORD;
  DevData: TSPDevInfoData;
  DeviceInterfaceData: TSPDeviceInterfaceData;
  RES:BOOL;
  NF:TDEV_BROADCAST_DEVICEINTERFACE;
begin
  NF.dbcc_size := SizeOf(TDEV_BROADCAST_DEVICEINTERFACE);
  NF.dbcc_devicetype := DBT_DEVTYP_DEVICEINTERFACE;
  RegisterDeviceNotification(Handle,@NF,DEVICE_NOTIFY_ALL_INTERFACE_CLASSES);
  DrivesListBox.Clear;
  DrivePnPHandle := SetupDiGetClassDevs(@GUID_DEVCLASS_DISKDRIVE, nil, 0, DIGCF_PRESENT {or DIGCF_PROFILE});
  if DrivePnPHandle = INVALID_HANDLE_VALUE then
    Exit;
  DeviceNumber := 0;
  repeat
  // DevData:=GetMemory(sizeof(TSPDevInfoData));
   DeviceInterfaceData.cbSize := SizeOf(TSPDeviceInterfaceData);
   DevData.cbSize := SizeOf(TSPDevInfoData);
   RES := SetupDiEnumDeviceInfo(DrivePnPHandle, DeviceNumber, DevData);
   if (RES) then
    begin
     DrivesListBox.Items.Add(GetDeviceName(DrivePnPHandle, DevData));
     Inc(DeviceNumber);
    end;
  until not RES;
  //NetDevicesListBox.Enabled:=True;
  SetupDiDestroyDeviceInfoList(DrivePnPHandle);
  DrivesListBox.Enabled := true;
end;

[new player]

а charset какой?

[GunSmoker]

Дельфя-то какая?

[Marsel737]

Delphi XE, Windows 7

Лан ребята не парьтесь с этим вопросом, уже не актуально

[GunSmoker]

Char на AnsiChar надо было поменять.