На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
Модераторы: Rouse_, jack128, Krid
  
    > Название текущей раскладки
      ExpandedWrap disabled
        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 пользователей:


      Рейтинг@Mail.ru
      [ Script execution time: 0,0162 ]   [ 17 queries used ]   [ Generated: 28.03.24, 14:02 GMT ]