Delphi XE2 - язык системы возврата в FireMonkey

Question

У меня есть приложение Delphi XE2 FireMonkey, которое я запускаю на Win32 и MacOSX. Я хочу вернуть текущий язык системы (например, en_GB), на котором запущено приложение, является ли это Win32 или MacOSX. Есть ли класс/свойство FireMonkey, который обеспечит это, возможно, похоже на TOSVersion? Или другой способ его получить?

Answer 1

TPlatform.GetCurrentLangID Попробуйте выполнить свойству

Проверить этот образец

uses 
    FMX.Platform; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    ShowMessage(Platform.GetCurrentLangID); 
end;