Название текущей раскладки
 |
Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
|
| ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
| [216.73.216.100] |
|
|
Название текущей раскладки
|
Сообщ.
#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 |
1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
0 пользователей:
[ Script execution time: 0,0161 ] [ 15 queries used ] [ Generated: 16.07.25, 15:45 GMT ]