Alterar Resourcestrings

[Samuel N. Junior]

Pessoal,

Alguém sabe como traduzir as mensagens (resource string) do Delphi Firemonkey (em runtime)?

Nas aplicações Win32/Win64 eu usava a função abaixo:

procedure SetResourceString(xOldResourceString: PResStringRec;
                            xValueChanged: PChar);
var
  POldProtect: DWORD;
begin
  VirtualProtect(xOldResourceString, SizeOf(xOldResourceString^),
                 PAGE_EXECUTE_READWRITE, @POldProtect);
  xOldResourceString^.Identifier := Integer(xValueChanged);
  VirtualProtect(xOldResourceString, SizeOf(xOldResourceString^),
                 POldProtect, @POldProtect);
end;

Porém, não consegui portar essa função para o Firemonkey, de modo que funcione em Windows, iOS e macOS.

Por enquanto, estou traduzindo o FMX.Consts.pas, mas isso é só um "quebra-galho".

Thanks

Samuel