Название текущей раскладки
 |
Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
|
| ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
| [98.84.18.52] |
|
|
Название текущей раскладки
|
Сообщ.
#1
,
|
|
 |
  uses Windows, SysUtils; function cur_layout_name: String; var buffer :array [0..KL_NAMELENGTH-1] of Char; LC: LCID; Str: String; begin GetKeyboardLayoutName(buffer); LC := StrToInt('$'+ string(buffer)); Str := StringOfChar(' ', MAX_PATH); GetLocaleInfo(Lo(lc), LOCALE_SLANGUAGE, PChar(Str), MAX_PATH); Result := Str; end; Автор: VahaC |
0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
0 пользователей:
[ Script execution time: 0,0136 ] [ 16 queries used ] [ Generated: 7.10.24, 18:33 GMT ]