Работа с ресурсами Windows: нахождение идентификатора строковой таблицы в "сырых" строках

Delphi , Файловая система , Ресурсы

Работа с ресурсами Windows: нахождение идентификатора строковой таблицы

При разработке программного обеспечения на языке Delphi часто приходится работать с ресурсами Windows, в том числе и со строковыми таблицами. Вопрос о том, где хранится идентификатор строковой таблицы, является актуальным для разработчиков, сталкивающихся с необходимостью обработки "сырых" строк.

Описание проблемы

В контексте работы со строками в Windows API, идентификатор строки представляет собой 16-битное целое число, где старшие 12 бит указывают на индекс группы, а младшие 4 бита - на индекс строки внутри этой группы. Это означает, что строки в ресурсах организованы в группы по 16. Для получения идентификатора строки можно использовать следующий алгоритм:

Result := (Group shl 12) or Index;

где Group - номер группы, а Index - индекс строки в группе.

Решение проблемы

Для работы со строковыми ресурсами в Delphi можно использовать встроенные типы данных, такие как PResStringRec, которые предоставляют поле .Identifier для получения идентификатора строки. Однако, если вы работаете с "сырыми" строками, то идентификатор необходимо вычислить самостоятельно, используя упомянутый выше алгоритм.

Пример кода

Вот пример функции, которая может помочь в обработке строковых таблиц:

type
  TIMAGE_RESOURCE_DIR_STRING_U = Record
    Count : USHORT;
    Name  : Array [0..0] of WideChar;
  end;
  PIMAGE_RESOURCE_DIR_STRING_U = ^TIMAGE_RESOURCE_DIR_STRING_U;

function SplitString(P: PByte; dwplen: Int32): TStringArray;
var
  Index, offset: Int32;
  dwLen: WORD;
  rt_str: PIMAGE_RESOURCE_DIR_STRING_U;
begin
  Index := 0;
  offset := 0;
  SetLength(Result, 0);
  while (offset <= dwplen) do
  begin
    SetLength(Result, Length(Result) + 1);
    rt_str := PIMAGE_RESOURCE_DIR_STRING_U(@P[offset]);
    Result[Index] := WideStringToStr(rt_str.Name, rt_str.Count);
    Inc(offset, SizeOf(WORD) + (rt_str.Count * SizeOf(WideChar)));
    Inc(Index);
  end;
end;

function WideStringToStr(Name: TArray<WideChar>; Count: Integer): string;
begin
  SetLength(Result, Count);
  for var i := 0 to Count - 1 do
    Result[i] := Name[i];
  Result := Result + #0;
  Result := UnicodeToAnsi(Result);
end;

var
  Table: TStringArray;
  dwStrings, Group, Index: DWORD;
  offsetGroup: Integer;
begin
  // Предполагаем, что P - это указатель на начало строковой таблицы, а dwplen - её размер
  Table := SplitString(@P, dwplen);
  dwStrings := Length(Table);
  offsetGroup := 0;
  while offsetGroup < dwStrings do
  begin
    // Определяем группу строк
    Group := offsetGroup div 16;
    // Проходим по строкам в текущей группе
    for Index := offsetGroup to Min(offsetGroup + 15, dwStrings - 1) do
    begin
      // Вычисляем идентификатор строки
      var ID := (Group shl 12) or (Index mod 16);
      // Выводим информацию о строке
      // ...
    end;
    Inc(offsetGroup, 16);
  end;
end;

Обратите внимание, что в приведенном примере кода функция WideStringToStr преобразует широкий символный массив в строку с использованием кодировки ANSI, что может быть не лучшим решением для всех сценариев, особенно если работа идет с локализованными строками.

Заключение

Работа со строковыми ресурсами Windows в Delphi может быть непростой задачей, но знание структуры строковых таблиц и способов их обработки позволяет разработчикам эффективно использовать эти ресурсы в своих приложениях.

Создано по материалам из источника по ссылке.

В контексте разработки программного обеспечения на Delphi рассматривается процесс работы с ресурсами Windows, в частности, с идентификаторами строковых таблиц.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Ресурсы ::