Firemonkey Find the O/S Language Type
2014.07.30 22:32
다음과 같이 사용하면 문자열로된 두자리 언어코드값을 반환합니다.
사용자가 단말기 설정에서 언어를 다른언어로 바꿔도 인식 잘 합니다.
uses
FMX.Platform;
function TForm1.get_LanType : string;
var
gLan: IFMXLocaleService;
begin
if TPlatformServices.Current.SupportsPlatformService(IFMXLocaleService) then
begin
gLan := IFMXLocaleService(TPlatformServices.Current.GetPlatformService(IFMXLocaleService));
result := gLan.GetCurrentLangID; // en, ko, de, fr, jp .....
end;
end;