Delphi XE2 - Return system locale in FireMonkey

Question

I have a Delphi XE2 FireMonkey app which I'm running on Win32 and MacOSX. I want to return the current system locale (eg en_GB) the app is running on whether this is Win32 or MacOSX. Is there a FireMonkey class/property that will provide this, maybe similar to TOSVersion? Or other way of retrieving it?

Answer 1

Try the TPlatform.GetCurrentLangID property

Check this sample

uses
  FMX.Platform;

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