Как определить язык системы в Win10 ?

[chaplin.u@gmail.com]

Как определить язык системы в Win10 ?

[krapotkin]

https://msdn.microsoft.com/ru-ru/library/windows/desktop/dd318123(v=vs.85).aspx

?

 

[Winexcel]

Ещё это может помочь https://msdn.microsoft.com/en-us/library/windows/desktop/ms646296(v=vs.85).aspx

[Равиль Зарипов (ZuBy)]

// uses FMX.Platform
var
LocaleService: IFMXLocaleService;
...
if TPlatformServices.Current.SupportsPlatformService(IFMXLocaleService, IInterface(LocaleService)) then
    Result := LocaleService.GetCurrentLangID;
...

 

[chaplin.u@gmail.com]

итак по порядку :

1. GetCurrentLangID implements functionality to return the ID of the current locale used - даёт не язык а географическое значение языка (locale).

2. GetKeyboardLayoutNameW не смог победить. получил иероглифы. наверное ошибка в коде :

WCHAR * Result;     GetKeyboardLayoutNameW(Result);      Memo1->Lines->Add("loc=" + String(Result) );

3. LANGID GetSystemDefaultUILanguage(void); возвращает код и по этому коду получаем язык системы 

последний вариант по моему самый простой.

 

[Равиль Зарипов (ZuBy)]

для чего это делать? я же привел код который покажет то что нужно

[Winexcel]

6 часов назад, chaplin.u@gmail.com сказал:

итак по порядку :

1. GetCurrentLangID implements functionality to return the ID of the current locale used - даёт не язык а географическое значение языка (locale).

2. GetKeyboardLayoutNameW не смог победить. получил иероглифы. наверное ошибка в коде :

WCHAR * Result;     GetKeyboardLayoutNameW(Result);      Memo1->Lines->Add("loc=" + String(Result) );

3. LANGID GetSystemDefaultUILanguage(void); возвращает код и по этому коду получаем язык системы 

последний вариант по моему самый простой.

 

var
  KeybLayout:HKL;
begin
  KeybLayout := GetKeyboardLayout(GetWindowThreadProcessId(GetForegroundWindow, nil));
  showmessage(IntToHex(LoWord(KeybLayout), 5));

 

если раскладка US то получим 00409, если верить msdn https://msdn.microsoft.com/en-us/library/windows/desktop/dd318693(v=vs.85).aspx

то совпадает

Изменено 18 апреля, 2017 пользователем Winexcel

[galex]

Так вы получаете текущую раскладку клавиатуры для процесса, которая может в любой момент измениться.