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

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

Доброго времени суток!
{DELPHI}

В EXE записывается на стадии компиляции файл TXT, с содержимым как RCDATA.

Restorator видит ресурс в каталоге RCDATA определяет тип: Text

Мне необходимо программно работать с этим ресурсом(уже другой моей же программой), а именно изменять тамошний текст:

procedure TMainForm.StartBthClick(Sender: TObject);
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 LevelsList.Count - 1 do
    begin
      s := s + LevelsList.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(s) * SizeOf(Char));
      if not EndUpdateResource(hRes, False) then
      begin
        ShowMessage(SysErrorMessage(GetLastError));
      end;

    end;
  end;
end;

Код вроде как и работает, но не работает...

1. Restorator видит новый DATA ресурс в папке RCData, НО:
--1. Тип ресурс RCData
--2. Ресурс отображается в HEX виде
--3. Я не догоняю как правильно записать строку.

Есть это:


Имею это:


А должно быть вот это:


Где мой косяк?

[Digit@ll]

Картинок не видно.

[Пепел Феникса]

вероятно строка была анси?

[Stilet]

вероятно строка была анси?

Да, тоже думаю что нужно передавать PAnsiChar или брать юникодные версии функций работы с ресурсами.

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

Stilet,Пепел Феникса, в XE3 по умолчанию все в UNICODE.

[waleri]

Функция UpdateResource() обновляет все как массив байт. Пофиг ANSI это или UNICODE.
Мне однако не понятно вот это выражение:
Length(s) * SizeOf(s) * SizeOf(Char)
Не многовато ли тут умножений?

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

Length(s) * SizeOf(Char)

Так правильнее?

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

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;

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

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

[waleri]

Какие данные ожидает увидеть программа?
Если я правильно понял, первый screenshot это изначальные данные, второй - это ваши изменения. Ваши изменения написаны в UNICODE кодировке. Очевидно программа читает данные в однобайтной кодировке, UTF8, Windows 1251 и т.д. т.е. это зависит от программы. Конвертируйте строки в однобайтовую кодировку.

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

Какие данные ожидает увидеть программа?

Простой текст как на скриншоте 3.

Программа написана на XE3, там не должно быть с этим проблем вообще.
Результат тот же(скрин 2), только без мусора в хвосте.