Обновить ресурс в EXE типа RCDATA как Text

[Slym]

All data containing strings or text must be in Unicode format. lpData must not point to ANSI data.

[waleri]

Сообщение от Человек_Борща

Хм, теперь мусора нет, но Restorator видит по прежнему все в HEX виде и целевая программа не может считать данные из самой себя нормально.

Кто чего подскажет?

А, а в HEX когда смотрите, есть там в конце два ноля: 00 00?

Можно сделать screenshot HEX изначальных данных?

[Человек_Борща]

All data containing strings or text must be in Unicode format. lpData must not point to ANSI data.

Я уже говорил, что проект на XE3 сделан?
Там все в unicode.

waleri, вот код:

var
  i: Integer;
  s: string;
  sp: PChar;
  hRes: THandle;
begin
  if CopyFile(PChar(InputFileEdit.Text), PChar(OutputFileEdit.Text), False) then
  begin

    s := s + FileEdit.Text + '|';
    for i := 0 to ServersList.Count - 1 do
    begin
      s := s + ServersList.Items[i] + '|';
    end;
    sp := PChar(s);
    hRes := BeginUpdateResource(PChar(OutputFileEdit.Text), False);
    if hRes > 0 then
    begin

      UpdateResource(hRes, RT_RCDATA, 'DATA', $0409, sp,
        Length(s) * SizeOf(Char));
      if not EndUpdateResource(hRes, False) then
      begin
        ShowMessage(SysErrorMessage(GetLastError));
      end;

    end;
  end;
end;

вот результат:

[waleri]

Это все прекрасно, но покажеите HEX с оригинальных данных - легче будет увидеть разницы...

[Человек_Борща]

waleri, не понимаю, что вы от меня хотите.
Исходная строка записанная для примера в файл, видна там как обычный текст. Скрин 1.
могу конечно строку в HEX перевернуть, но току?

[waleri]

Сообщение от Человек_Борща

могу конечно строку в HEX перевернуть, но току?

Тогда сразу будет видно как должен выглядеть текст в ресурсе.