Многоязычие, локализация и перекодировка Delphi — среда быстрой разработки, где в качестве языка программирования используется Object Pascal. На сегодняшний день позволяет разрабатывать ПО для Microsoft Windows, Mac OS, iOS и Android и входит в состав Embarcadero RAD Studio https://delphi-hlp.ru/index.php/windows/shrifty-yazyki-kodirovki-regionarnye-standarty/mnogoyazychie-lokalizatsiya-i-perekodirovka.feed 2022-09-13T04:43:59+07:00 Delphi help info@delphi-hlp.ru Joomla! - Open Source Content Management Как добавить нужный язык в систему 2017-10-22T05:31:02+07:00 2017-10-22T05:31:02+07:00 https://delphi-hlp.ru/index.php/windows/shrifty-yazyki-kodirovki-regionarnye-standarty/mnogoyazychie-lokalizatsiya-i-perekodirovka/kak-dobavit-nuzhnyj-yazyk-v-sistemu.html Super User toto44@inbox.ru <p style="margin: 7px 0px; text-align: justify;"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Автор: Mekan Gara</span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Для этого необходимо изменить некоторые ключи в реестре. Например, необходимо добавить Туркменский язык. Конечно, Вам необходимо иметь файл KBD с раскладкой клавиатуры (Turkmen.kbd).</span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p> <p class="feed-readmore"><a target="_blank" href ="/index.php/windows/shrifty-yazyki-kodirovki-regionarnye-standarty/mnogoyazychie-lokalizatsiya-i-perekodirovka/kak-dobavit-nuzhnyj-yazyk-v-sistemu.html">Подробнее...</a></p> <p style="margin: 7px 0px; text-align: justify;"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Автор: Mekan Gara</span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Для этого необходимо изменить некоторые ключи в реестре. Например, необходимо добавить Туркменский язык. Конечно, Вам необходимо иметь файл KBD с раскладкой клавиатуры (Turkmen.kbd).</span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p> <p class="feed-readmore"><a target="_blank" href ="/index.php/windows/shrifty-yazyki-kodirovki-regionarnye-standarty/mnogoyazychie-lokalizatsiya-i-perekodirovka/kak-dobavit-nuzhnyj-yazyk-v-sistemu.html">Подробнее...</a></p> Как конвертировать кодовую страницу? 2017-10-22T05:10:32+07:00 2017-10-22T05:10:32+07:00 https://delphi-hlp.ru/index.php/windows/shrifty-yazyki-kodirovki-regionarnye-standarty/mnogoyazychie-lokalizatsiya-i-perekodirovka/kak-konvertirovat-kodovuyu-stranitsu.html Super User toto44@inbox.ru <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Все системы с Интернет Explorer 4 и новее есть библиотека mlang.dll в\system32 каталог. Обычно вы можете сказать, Дельфы, чтобы просто импортировать эти библиотеки com. Этот, однако, не Делфи. Я начал преобразования "самых разыскиваемых интерфейс" для себя. Результаты я представляю вам здесь.</span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Сначала я дам вам код для блока преобразования, который позволяет Вам просто преобразовать любой текст из страницы кодекса перевод на другую. Далее мы вскоре будем обсуждать код и дать вам пример того, как использовать его.</span></p> <p class="feed-readmore"><a target="_blank" href ="/index.php/windows/shrifty-yazyki-kodirovki-regionarnye-standarty/mnogoyazychie-lokalizatsiya-i-perekodirovka/kak-konvertirovat-kodovuyu-stranitsu.html">Подробнее...</a></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Все системы с Интернет Explorer 4 и новее есть библиотека mlang.dll в\system32 каталог. Обычно вы можете сказать, Дельфы, чтобы просто импортировать эти библиотеки com. Этот, однако, не Делфи. Я начал преобразования "самых разыскиваемых интерфейс" для себя. Результаты я представляю вам здесь.</span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Сначала я дам вам код для блока преобразования, который позволяет Вам просто преобразовать любой текст из страницы кодекса перевод на другую. Далее мы вскоре будем обсуждать код и дать вам пример того, как использовать его.</span></p> <p class="feed-readmore"><a target="_blank" href ="/index.php/windows/shrifty-yazyki-kodirovki-regionarnye-standarty/mnogoyazychie-lokalizatsiya-i-perekodirovka/kak-konvertirovat-kodovuyu-stranitsu.html">Подробнее...</a></p> Как определить локализацию ОС: английская или русская? 2017-10-22T04:44:37+07:00 2017-10-22T04:44:37+07:00 https://delphi-hlp.ru/index.php/windows/shrifty-yazyki-kodirovki-regionarnye-standarty/mnogoyazychie-lokalizatsiya-i-perekodirovka/kak-opredelit-lokalizatsiyu-os-anglijskaya-ili-russkaya.html Super User toto44@inbox.ru <p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">GetSystemDefaultLangID</span></p> <p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">GetSystemDefaultLangID</span></p> Как получить информацию о локальных настройках системы? 2017-10-22T04:46:41+07:00 2017-10-22T04:46:41+07:00 https://delphi-hlp.ru/index.php/windows/shrifty-yazyki-kodirovki-regionarnye-standarty/mnogoyazychie-lokalizatsiya-i-perekodirovka/kak-poluchit-informatsiyu-o-lokalnykh-nastrojkakh-sistemy.html Super User toto44@inbox.ru <p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Delphi имеет функцию GetLocaleInfo, которая позволяет получать различную информацию о локальных настройках, таких как системный язык, символ валюты, количество десятичных знаков и т.д.</span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span style="color: #000000;"> </span><span style="color: #000000;">Далее приведена функция, которая возвращает значение в зависимости от параметра "flag":</span></span></p> <p class="feed-readmore"><a target="_blank" href ="/index.php/windows/shrifty-yazyki-kodirovki-regionarnye-standarty/mnogoyazychie-lokalizatsiya-i-perekodirovka/kak-poluchit-informatsiyu-o-lokalnykh-nastrojkakh-sistemy.html">Подробнее...</a></p> <p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Delphi имеет функцию GetLocaleInfo, которая позволяет получать различную информацию о локальных настройках, таких как системный язык, символ валюты, количество десятичных знаков и т.д.</span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span style="color: #000000;"> </span><span style="color: #000000;">Далее приведена функция, которая возвращает значение в зависимости от параметра "flag":</span></span></p> <p class="feed-readmore"><a target="_blank" href ="/index.php/windows/shrifty-yazyki-kodirovki-regionarnye-standarty/mnogoyazychie-lokalizatsiya-i-perekodirovka/kak-poluchit-informatsiyu-o-lokalnykh-nastrojkakh-sistemy.html">Подробнее...</a></p> Как программно переключить раскладку клавиатуры 2017-10-22T05:29:56+07:00 2017-10-22T05:29:56+07:00 https://delphi-hlp.ru/index.php/windows/shrifty-yazyki-kodirovki-regionarnye-standarty/mnogoyazychie-lokalizatsiya-i-perekodirovka/kak-programmno-pereklyuchit-raskladku-klaviatury.html Super User toto44@inbox.ru <p> </p> <div style="margin: 0px; padding: 0px; text-align: left; text-indent: 0px;"> <table style="border-width: 1px; border-style: solid; border-color: #000000 #c0c0c0 #c0c0c0 #000000; border-spacing: 0px; background-color: #ffffc4;" border="1" cellspacing="0" cellpadding="5" bgcolor="#ffffc4"> <tbody> <tr align="left" valign="top"> <td style="border-width: 1px; border-style: solid; border-color: #c0c0c0 #000000 #000000 #c0c0c0;"> <p style="text-align: justify;"><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt; font-weight: bold;">Code:</span></p> </td> </tr> <tr align="left"> <td style="border-width: 1px; border-style: solid; border-color: #c0c0c0 #000000 #000000 #c0c0c0;"> <p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">//На русский</span></p> <p class="p_CodeExample"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">procedure</span><span class="f_CodeExample" style="color: #000000;"> TForm1.Button1Click(Sender: TObject);</span></span></p> <p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt; font-weight: bold;">var</span></p> <p class="p_CodeExample"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span class="f_CodeExample" style="color: #000000;"> Layout: </span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">array</span><span class="f_CodeExample" style="color: #000000;">[</span><span class="f_CodeExample" style="color: #800000;">0</span><span class="f_CodeExample" style="color: #000000;">.. KL_NAMELENGTH] </span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">of</span><span class="f_CodeExample" style="color: #000000;"> char;</span></span></p> <p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt; font-weight: bold;">begin</span></p> <p class="p_CodeExample"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span class="f_CodeExample" style="color: #000000;"> LoadKeyboardLayout( StrCopy(Layout,</span><span class="f_CodeExample" style="color: #ff0000;">'00000419'</span><span class="f_CodeExample" style="color: #000000;">),KLF_ACTIVATE);</span></span></p> <p class="p_CodeExample"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">end</span><span class="f_CodeExample" style="color: #000000;">;</span></span></p> </td> </tr> </tbody> </table> </div> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p> <p class="feed-readmore"><a target="_blank" href ="/index.php/windows/shrifty-yazyki-kodirovki-regionarnye-standarty/mnogoyazychie-lokalizatsiya-i-perekodirovka/kak-programmno-pereklyuchit-raskladku-klaviatury.html">Подробнее...</a></p> <p> </p> <div style="margin: 0px; padding: 0px; text-align: left; text-indent: 0px;"> <table style="border-width: 1px; border-style: solid; border-color: #000000 #c0c0c0 #c0c0c0 #000000; border-spacing: 0px; background-color: #ffffc4;" border="1" cellspacing="0" cellpadding="5" bgcolor="#ffffc4"> <tbody> <tr align="left" valign="top"> <td style="border-width: 1px; border-style: solid; border-color: #c0c0c0 #000000 #000000 #c0c0c0;"> <p style="text-align: justify;"><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt; font-weight: bold;">Code:</span></p> </td> </tr> <tr align="left"> <td style="border-width: 1px; border-style: solid; border-color: #c0c0c0 #000000 #000000 #c0c0c0;"> <p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">//На русский</span></p> <p class="p_CodeExample"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">procedure</span><span class="f_CodeExample" style="color: #000000;"> TForm1.Button1Click(Sender: TObject);</span></span></p> <p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt; font-weight: bold;">var</span></p> <p class="p_CodeExample"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span class="f_CodeExample" style="color: #000000;"> Layout: </span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">array</span><span class="f_CodeExample" style="color: #000000;">[</span><span class="f_CodeExample" style="color: #800000;">0</span><span class="f_CodeExample" style="color: #000000;">.. KL_NAMELENGTH] </span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">of</span><span class="f_CodeExample" style="color: #000000;"> char;</span></span></p> <p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt; font-weight: bold;">begin</span></p> <p class="p_CodeExample"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span class="f_CodeExample" style="color: #000000;"> LoadKeyboardLayout( StrCopy(Layout,</span><span class="f_CodeExample" style="color: #ff0000;">'00000419'</span><span class="f_CodeExample" style="color: #000000;">),KLF_ACTIVATE);</span></span></p> <p class="p_CodeExample"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">end</span><span class="f_CodeExample" style="color: #000000;">;</span></span></p> </td> </tr> </tbody> </table> </div> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p> <p class="feed-readmore"><a target="_blank" href ="/index.php/windows/shrifty-yazyki-kodirovki-regionarnye-standarty/mnogoyazychie-lokalizatsiya-i-perekodirovka/kak-programmno-pereklyuchit-raskladku-klaviatury.html">Подробнее...</a></p> Как прочитать русский текст MS-DOS 2017-10-22T05:35:41+07:00 2017-10-22T05:35:41+07:00 https://delphi-hlp.ru/index.php/windows/shrifty-yazyki-kodirovki-regionarnye-standarty/mnogoyazychie-lokalizatsiya-i-perekodirovka/kak-prochitat-russkij-tekst-ms-dos.html Super User toto44@inbox.ru <p style="margin: 7px 0px; text-align: justify;"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Для перекодировки из Win(1251) кодовой страницы в Dos(866) кодовую страницу и обратно используются функции:</span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">CharToOEM</span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">OEMToChar</span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">CharToOEMBuff</span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">OEMToCharBuff</span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">OemToAnsi</span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">AnsiToOem:</span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Пример чтения текста dos из файла в memo</span></p> <p class="feed-readmore"><a target="_blank" href ="/index.php/windows/shrifty-yazyki-kodirovki-regionarnye-standarty/mnogoyazychie-lokalizatsiya-i-perekodirovka/kak-prochitat-russkij-tekst-ms-dos.html">Подробнее...</a></p> <p style="margin: 7px 0px; text-align: justify;"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Для перекодировки из Win(1251) кодовой страницы в Dos(866) кодовую страницу и обратно используются функции:</span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">CharToOEM</span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">OEMToChar</span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">CharToOEMBuff</span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">OEMToCharBuff</span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">OemToAnsi</span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">AnsiToOem:</span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Пример чтения текста dos из файла в memo</span></p> <p class="feed-readmore"><a target="_blank" href ="/index.php/windows/shrifty-yazyki-kodirovki-regionarnye-standarty/mnogoyazychie-lokalizatsiya-i-perekodirovka/kak-prochitat-russkij-tekst-ms-dos.html">Подробнее...</a></p> Как узнать является ли окно Unicode? 2017-10-22T05:24:50+07:00 2017-10-22T05:24:50+07:00 https://delphi-hlp.ru/index.php/windows/shrifty-yazyki-kodirovki-regionarnye-standarty/mnogoyazychie-lokalizatsiya-i-perekodirovka/kak-uznat-yavlyaetsya-li-okno-unicode.html Super User toto44@inbox.ru <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Функция IsWindowUnicode  определяет, является ли указанное окно собственным окном Юникода</span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Набор символов окна определяется с помощью функции RegisterClass.  Если класс окна зарегистрирован в АНСИ версии непредвиденное registerclass (RegisterClassA),</span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">набор символов окна является ANSI. Если класс окна был зарегистрирован в Юникоде  версия непредвиденное registerclass (RegisterClassW), набор символов окно в Юникоде.</span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Система автоматического двустороннего перевода (Юникода в ANSI) для окна Сообщений. Например, если сообщение окна ANSI отправляется в окно, использующее набор символов Юникода,</span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">перед вызовом процедуры окна система преобразует это сообщение в сообщение Юникода.  Система вызывает IsWindowUnicode, чтобы определить, следует ли переводить сообщение.</span></p> <p class="feed-readmore"><a target="_blank" href ="/index.php/windows/shrifty-yazyki-kodirovki-regionarnye-standarty/mnogoyazychie-lokalizatsiya-i-perekodirovka/kak-uznat-yavlyaetsya-li-okno-unicode.html">Подробнее...</a></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Функция IsWindowUnicode  определяет, является ли указанное окно собственным окном Юникода</span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Набор символов окна определяется с помощью функции RegisterClass.  Если класс окна зарегистрирован в АНСИ версии непредвиденное registerclass (RegisterClassA),</span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">набор символов окна является ANSI. Если класс окна был зарегистрирован в Юникоде  версия непредвиденное registerclass (RegisterClassW), набор символов окно в Юникоде.</span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Система автоматического двустороннего перевода (Юникода в ANSI) для окна Сообщений. Например, если сообщение окна ANSI отправляется в окно, использующее набор символов Юникода,</span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">перед вызовом процедуры окна система преобразует это сообщение в сообщение Юникода.  Система вызывает IsWindowUnicode, чтобы определить, следует ли переводить сообщение.</span></p> <p class="feed-readmore"><a target="_blank" href ="/index.php/windows/shrifty-yazyki-kodirovki-regionarnye-standarty/mnogoyazychie-lokalizatsiya-i-perekodirovka/kak-uznat-yavlyaetsya-li-okno-unicode.html">Подробнее...</a></p> Как узнать язык Windows по умолчанию 2017-10-22T05:32:38+07:00 2017-10-22T05:32:38+07:00 https://delphi-hlp.ru/index.php/windows/shrifty-yazyki-kodirovki-regionarnye-standarty/mnogoyazychie-lokalizatsiya-i-perekodirovka/kak-uznat-yazyk-windows-po-umolchaniyu.html Super User toto44@inbox.ru <p style="margin: 7px 0px; text-align: justify;"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">GetSystemDefaultLangID</span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">GetSystemDefaultLCID</span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">GetLocaleInfo</span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p> <p style="margin: 7px 0px; text-align: justify;"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">GetSystemDefaultLangID</span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">GetSystemDefaultLCID</span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">GetLocaleInfo</span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p> Какой язык на данный момент на клавиатуре? 2017-10-22T04:43:23+07:00 2017-10-22T04:43:23+07:00 https://delphi-hlp.ru/index.php/windows/shrifty-yazyki-kodirovki-regionarnye-standarty/mnogoyazychie-lokalizatsiya-i-perekodirovka/kakoj-yazyk-na-dannyj-moment-na-klaviature.html Super User toto44@inbox.ru <p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Используй GetKeyboardLayoutName</span></p> <p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Автор ответа: Mikel</span></p> <p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p> <p class="feed-readmore"><a target="_blank" href ="/index.php/windows/shrifty-yazyki-kodirovki-regionarnye-standarty/mnogoyazychie-lokalizatsiya-i-perekodirovka/kakoj-yazyk-na-dannyj-moment-na-klaviature.html">Подробнее...</a></p> <p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Используй GetKeyboardLayoutName</span></p> <p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Автор ответа: Mikel</span></p> <p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p> <p class="feed-readmore"><a target="_blank" href ="/index.php/windows/shrifty-yazyki-kodirovki-regionarnye-standarty/mnogoyazychie-lokalizatsiya-i-perekodirovka/kakoj-yazyk-na-dannyj-moment-na-klaviature.html">Подробнее...</a></p> Перекодирование из одних кодировок в другие 2017-10-22T04:50:54+07:00 2017-10-22T04:50:54+07:00 https://delphi-hlp.ru/index.php/windows/shrifty-yazyki-kodirovki-regionarnye-standarty/mnogoyazychie-lokalizatsiya-i-perekodirovka/perekodirovanie-iz-odnikh-kodirovok-v-drugie.html Super User toto44@inbox.ru <p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Этот алгоритм позволяет перекодировать текст. </span></p> <p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Реализованы кодировки Windows-1251, KOI8-R, ISO-8859-5 и DOS.</span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span style="color: #000000;">Кодировка </span><span style="color: #000000;">–</span><span style="color: #000000;"> это таблица, в которой указано, </span><span style="color: #000000;">например, что символ под номером 160 - это русская буква "а", а под номером 150 </span><span style="color: #000000;">–</span><span style="color: #000000;"> "Ц" и т. д.</span></span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span style="color: #000000;">Кодировки различаются номерами русских букв </span><span style="color: #000000;">(как располагать английские буквы договорились). </span></span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span style="color: #000000;">Разные компьютеры в Интернете используют разные кодировки.  </span><span style="color: #000000;">И поэтому, когда русский текст идет по Интернету, его многократно перекодируют.</span></span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span style="color: #000000;"> </span><span style="color: #000000;">Этот алгоритм обеспечивает высокую скорость перекодирования больших объемов данных.</span></span></p> <p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p> <p class="feed-readmore"><a target="_blank" href ="/index.php/windows/shrifty-yazyki-kodirovki-regionarnye-standarty/mnogoyazychie-lokalizatsiya-i-perekodirovka/perekodirovanie-iz-odnikh-kodirovok-v-drugie.html">Подробнее...</a></p> <p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Этот алгоритм позволяет перекодировать текст. </span></p> <p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Реализованы кодировки Windows-1251, KOI8-R, ISO-8859-5 и DOS.</span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span style="color: #000000;">Кодировка </span><span style="color: #000000;">–</span><span style="color: #000000;"> это таблица, в которой указано, </span><span style="color: #000000;">например, что символ под номером 160 - это русская буква "а", а под номером 150 </span><span style="color: #000000;">–</span><span style="color: #000000;"> "Ц" и т. д.</span></span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span style="color: #000000;">Кодировки различаются номерами русских букв </span><span style="color: #000000;">(как располагать английские буквы договорились). </span></span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span style="color: #000000;">Разные компьютеры в Интернете используют разные кодировки.  </span><span style="color: #000000;">И поэтому, когда русский текст идет по Интернету, его многократно перекодируют.</span></span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span style="color: #000000;"> </span><span style="color: #000000;">Этот алгоритм обеспечивает высокую скорость перекодирования больших объемов данных.</span></span></p> <p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p> <p class="feed-readmore"><a target="_blank" href ="/index.php/windows/shrifty-yazyki-kodirovki-regionarnye-standarty/mnogoyazychie-lokalizatsiya-i-perekodirovka/perekodirovanie-iz-odnikh-kodirovok-v-drugie.html">Подробнее...</a></p> Распознавание кодировки 2017-10-22T05:22:32+07:00 2017-10-22T05:22:32+07:00 https://delphi-hlp.ru/index.php/windows/shrifty-yazyki-kodirovki-regionarnye-standarty/mnogoyazychie-lokalizatsiya-i-perekodirovka/raspoznavanie-kodirovki.html Super User toto44@inbox.ru <p><span style="font-family: 'Courier New'; font-size: 8pt;"> </span></p> <p><span style="color: #000000; font-size: 12pt;">Алгоритм распознавания кодировки нужен для автоматического декодирования текста. Этот алгоритм основан на том, что некоторые буквы русского алфавита встречается очень часто, а некоторые редко. Поскольку этот способ статистический, то лучше всего он работает с большими текстами. </span></p> <p class="feed-readmore"><a target="_blank" href ="/index.php/windows/shrifty-yazyki-kodirovki-regionarnye-standarty/mnogoyazychie-lokalizatsiya-i-perekodirovka/raspoznavanie-kodirovki.html">Подробнее...</a></p> <p><span style="font-family: 'Courier New'; font-size: 8pt;"> </span></p> <p><span style="color: #000000; font-size: 12pt;">Алгоритм распознавания кодировки нужен для автоматического декодирования текста. Этот алгоритм основан на том, что некоторые буквы русского алфавита встречается очень часто, а некоторые редко. Поскольку этот способ статистический, то лучше всего он работает с большими текстами. </span></p> <p class="feed-readmore"><a target="_blank" href ="/index.php/windows/shrifty-yazyki-kodirovki-regionarnye-standarty/mnogoyazychie-lokalizatsiya-i-perekodirovka/raspoznavanie-kodirovki.html">Подробнее...</a></p> Регионарные стандарты 2017-10-22T05:33:34+07:00 2017-10-22T05:33:34+07:00 https://delphi-hlp.ru/index.php/windows/shrifty-yazyki-kodirovki-regionarnye-standarty/mnogoyazychie-lokalizatsiya-i-perekodirovka/regionarnye-standarty.html Super User toto44@inbox.ru <p style="margin: 7px 0px; text-align: justify;"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">В Дельфи есть предопределенные переменные языковых установок и форматов:</span></p> <p class="feed-readmore"><a target="_blank" href ="/index.php/windows/shrifty-yazyki-kodirovki-regionarnye-standarty/mnogoyazychie-lokalizatsiya-i-perekodirovka/regionarnye-standarty.html">Подробнее...</a></p> <p style="margin: 7px 0px; text-align: justify;"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">В Дельфи есть предопределенные переменные языковых установок и форматов:</span></p> <p class="feed-readmore"><a target="_blank" href ="/index.php/windows/shrifty-yazyki-kodirovki-regionarnye-standarty/mnogoyazychie-lokalizatsiya-i-perekodirovka/regionarnye-standarty.html">Подробнее...</a></p> Список установленных раскладок клавиатуры 2017-10-22T05:28:47+07:00 2017-10-22T05:28:47+07:00 https://delphi-hlp.ru/index.php/windows/shrifty-yazyki-kodirovki-regionarnye-standarty/mnogoyazychie-lokalizatsiya-i-perekodirovka/spisok-ustanovlennykh-raskladok-klaviatury.html Super User toto44@inbox.ru <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p> <div style="margin: 0px; padding: 0px; text-align: left; text-indent: 0px;"> <table style="border-width: 1px; border-style: solid; border-color: #000000 #c0c0c0 #c0c0c0 #000000; border-spacing: 0px; background-color: #ffffc4;" border="1" cellspacing="0" cellpadding="5" bgcolor="#ffffc4"> <tbody> <tr align="left" valign="top"> <td style="border-width: 1px; border-style: solid; border-color: #c0c0c0 #000000 #000000 #c0c0c0;"> <p style="text-align: justify;"><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt; font-weight: bold;">Code:</span></p> </td> </tr> <tr align="left"> <td style="border-width: 1px; border-style: solid; border-color: #c0c0c0 #000000 #000000 #c0c0c0;"> <p class="p_CodeExample"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">procedure</span><span class="f_CodeExample" style="color: #000000;"> GetKLList(List: TStrings);</span></span></p> <p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt; font-weight: bold;">var</span></p> <p class="p_CodeExample"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span class="f_CodeExample" style="color: #000000;">   AList : </span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">array</span><span class="f_CodeExample" style="color: #000000;"> [</span><span class="f_CodeExample" style="color: #800000;">0</span><span class="f_CodeExample" style="color: #000000;">..</span><span class="f_CodeExample" style="color: #800000;">9</span><span class="f_CodeExample" style="color: #000000;">] </span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">of</span><span class="f_CodeExample" style="color: #000000;"> Hkl;</span></span></p> <p class="p_CodeExample"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span class="f_CodeExample" style="color: #000000;">   AklName: </span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">array</span><span class="f_CodeExample" style="color: #000000;"> [</span><span class="f_CodeExample" style="color: #800000;">0</span><span class="f_CodeExample" style="color: #000000;">..</span><span class="f_CodeExample" style="color: #800000;">255</span><span class="f_CodeExample" style="color: #000000;">] </span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">of</span><span class="f_CodeExample" style="color: #000000;"> Char;</span></span></p> <p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">   i: Longint;</span></p> <p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt; font-weight: bold;">begin</span></p> <p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">   List.Clear;</span></p> <p class="p_CodeExample"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span class="f_CodeExample" style="color: #000000;">   </span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">for</span><span class="f_CodeExample" style="color: #000000;"> i := </span><span class="f_CodeExample" style="color: #800000;">0</span> <span class="f_CodeExample" style="color: #008000; font-weight: bold;">to</span><span class="f_CodeExample" style="color: #000000;"> GetKeyboardLayoutList(SizeOf(AList), AList) - </span><span class="f_CodeExample" style="color: #800000;">1</span> <span class="f_CodeExample" style="color: #008000; font-weight: bold;">do</span></span></p> <p class="p_CodeExample"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span class="f_CodeExample" style="color: #000000;">     </span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">begin</span></span></p> <p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">       GetLocaleInfo(LoWord(AList[i]), LOCALE_SLANGUAGE, AklName, SizeOf(AklName));</span></p> <p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">       List.AddObject(AklName, Pointer(AList[i]));</span></p> <p class="p_CodeExample"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span class="f_CodeExample" style="color: #000000;">     </span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">end</span><span class="f_CodeExample" style="color: #000000;">;</span></span></p> <p class="p_CodeExample"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">end</span><span class="f_CodeExample" style="color: #000000;">;</span></span></p> <p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p> <p class="p_CodeExample"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">procedure</span><span class="f_CodeExample" style="color: #000000;"> TForm1.FormCreate(Sender: TObject);</span></span></p> <p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt; font-weight: bold;">begin</span></p> <p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">   GetKLList(ListBox1.Items);</span></p> <p class="p_CodeExample"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">end</span><span class="f_CodeExample" style="color: #000000;">;</span></span></p> <p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p> <p class="p_CodeExample"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">procedure</span><span class="f_CodeExample" style="color: #000000;"> TForm1.ListBox1Click(Sender: TObject);</span></span></p> <p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt; font-weight: bold;">begin</span></p> <p class="p_CodeExample"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span class="f_CodeExample" style="color: #000000;">   </span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">with</span><span class="f_CodeExample" style="color: #000000;"> Sender </span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">as</span><span class="f_CodeExample" style="color: #000000;"> TListBox </span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">do</span></span></p> <p class="p_CodeExample"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span class="f_CodeExample" style="color: #000000;">     ActivateKeyboardLayout(Hkl(Items.Objects[ItemIndex]), </span><span class="f_CodeExample" style="color: #800000;">0</span><span class="f_CodeExample" style="color: #000000;">);</span></span></p> <p class="p_CodeExample"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">end</span><span class="f_CodeExample" style="color: #000000;">;</span></span></p> </td> </tr> </tbody> </table> </div> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p> <div style="margin: 0px; padding: 0px; text-align: left; text-indent: 0px;"> <table style="border-width: 1px; border-style: solid; border-color: #000000 #c0c0c0 #c0c0c0 #000000; border-spacing: 0px; background-color: #ffffc4;" border="1" cellspacing="0" cellpadding="5" bgcolor="#ffffc4"> <tbody> <tr align="left" valign="top"> <td style="border-width: 1px; border-style: solid; border-color: #c0c0c0 #000000 #000000 #c0c0c0;"> <p style="text-align: justify;"><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt; font-weight: bold;">Code:</span></p> </td> </tr> <tr align="left"> <td style="border-width: 1px; border-style: solid; border-color: #c0c0c0 #000000 #000000 #c0c0c0;"> <p class="p_CodeExample"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">procedure</span><span class="f_CodeExample" style="color: #000000;"> GetKLList(List: TStrings);</span></span></p> <p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt; font-weight: bold;">var</span></p> <p class="p_CodeExample"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span class="f_CodeExample" style="color: #000000;">   AList : </span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">array</span><span class="f_CodeExample" style="color: #000000;"> [</span><span class="f_CodeExample" style="color: #800000;">0</span><span class="f_CodeExample" style="color: #000000;">..</span><span class="f_CodeExample" style="color: #800000;">9</span><span class="f_CodeExample" style="color: #000000;">] </span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">of</span><span class="f_CodeExample" style="color: #000000;"> Hkl;</span></span></p> <p class="p_CodeExample"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span class="f_CodeExample" style="color: #000000;">   AklName: </span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">array</span><span class="f_CodeExample" style="color: #000000;"> [</span><span class="f_CodeExample" style="color: #800000;">0</span><span class="f_CodeExample" style="color: #000000;">..</span><span class="f_CodeExample" style="color: #800000;">255</span><span class="f_CodeExample" style="color: #000000;">] </span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">of</span><span class="f_CodeExample" style="color: #000000;"> Char;</span></span></p> <p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">   i: Longint;</span></p> <p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt; font-weight: bold;">begin</span></p> <p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">   List.Clear;</span></p> <p class="p_CodeExample"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span class="f_CodeExample" style="color: #000000;">   </span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">for</span><span class="f_CodeExample" style="color: #000000;"> i := </span><span class="f_CodeExample" style="color: #800000;">0</span> <span class="f_CodeExample" style="color: #008000; font-weight: bold;">to</span><span class="f_CodeExample" style="color: #000000;"> GetKeyboardLayoutList(SizeOf(AList), AList) - </span><span class="f_CodeExample" style="color: #800000;">1</span> <span class="f_CodeExample" style="color: #008000; font-weight: bold;">do</span></span></p> <p class="p_CodeExample"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span class="f_CodeExample" style="color: #000000;">     </span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">begin</span></span></p> <p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">       GetLocaleInfo(LoWord(AList[i]), LOCALE_SLANGUAGE, AklName, SizeOf(AklName));</span></p> <p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">       List.AddObject(AklName, Pointer(AList[i]));</span></p> <p class="p_CodeExample"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span class="f_CodeExample" style="color: #000000;">     </span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">end</span><span class="f_CodeExample" style="color: #000000;">;</span></span></p> <p class="p_CodeExample"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">end</span><span class="f_CodeExample" style="color: #000000;">;</span></span></p> <p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p> <p class="p_CodeExample"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">procedure</span><span class="f_CodeExample" style="color: #000000;"> TForm1.FormCreate(Sender: TObject);</span></span></p> <p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt; font-weight: bold;">begin</span></p> <p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">   GetKLList(ListBox1.Items);</span></p> <p class="p_CodeExample"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">end</span><span class="f_CodeExample" style="color: #000000;">;</span></span></p> <p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p> <p class="p_CodeExample"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">procedure</span><span class="f_CodeExample" style="color: #000000;"> TForm1.ListBox1Click(Sender: TObject);</span></span></p> <p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt; font-weight: bold;">begin</span></p> <p class="p_CodeExample"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span class="f_CodeExample" style="color: #000000;">   </span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">with</span><span class="f_CodeExample" style="color: #000000;"> Sender </span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">as</span><span class="f_CodeExample" style="color: #000000;"> TListBox </span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">do</span></span></p> <p class="p_CodeExample"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span class="f_CodeExample" style="color: #000000;">     ActivateKeyboardLayout(Hkl(Items.Objects[ItemIndex]), </span><span class="f_CodeExample" style="color: #800000;">0</span><span class="f_CodeExample" style="color: #000000;">);</span></span></p> <p class="p_CodeExample"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">end</span><span class="f_CodeExample" style="color: #000000;">;</span></span></p> </td> </tr> </tbody> </table> </div> Транслитерация 2017-10-22T05:25:58+07:00 2017-10-22T05:25:58+07:00 https://delphi-hlp.ru/index.php/windows/shrifty-yazyki-kodirovki-regionarnye-standarty/mnogoyazychie-lokalizatsiya-i-perekodirovka/transliteratsiya.html Super User toto44@inbox.ru <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Например, молоко - moloko. И всё.</span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Вот пример функции, которая транслирует из русских слов в английские. </span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Пригодилась, когда нужно было файлы в mp3-плеер перегонять - он русский не понимает. </span></p> <p class="feed-readmore"><a target="_blank" href ="/index.php/windows/shrifty-yazyki-kodirovki-regionarnye-standarty/mnogoyazychie-lokalizatsiya-i-perekodirovka/transliteratsiya.html">Подробнее...</a></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Например, молоко - moloko. И всё.</span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Вот пример функции, которая транслирует из русских слов в английские. </span></p> <p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Пригодилась, когда нужно было файлы в mp3-плеер перегонять - он русский не понимает. </span></p> <p class="feed-readmore"><a target="_blank" href ="/index.php/windows/shrifty-yazyki-kodirovki-regionarnye-standarty/mnogoyazychie-lokalizatsiya-i-perekodirovka/transliteratsiya.html">Подробнее...</a></p> Узнать текущую раскладку клавиатуры в любом активном окне 2017-10-22T05:27:53+07:00 2017-10-22T05:27:53+07:00 https://delphi-hlp.ru/index.php/windows/shrifty-yazyki-kodirovki-regionarnye-standarty/mnogoyazychie-lokalizatsiya-i-perekodirovka/uznat-tekushchuyu-raskladku-klaviatury-v-lyubom-aktivnom-okne.html Super User toto44@inbox.ru <p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Узнать текущую раскладку клавиатуры в любом активном окне</span></p> <p class="p_CodeExample"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span class="f_CodeExample" style="color: #000000;"> </span><span class="f_CodeExample" style="color: #000000;">возвращает числовое значение соответственно установленной раскладке</span></span></p> <p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p> <p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Зависимости: windows</span></p> <p class="feed-readmore"><a target="_blank" href ="/index.php/windows/shrifty-yazyki-kodirovki-regionarnye-standarty/mnogoyazychie-lokalizatsiya-i-perekodirovka/uznat-tekushchuyu-raskladku-klaviatury-v-lyubom-aktivnom-okne.html">Подробнее...</a></p> <p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Узнать текущую раскладку клавиатуры в любом активном окне</span></p> <p class="p_CodeExample"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span class="f_CodeExample" style="color: #000000;"> </span><span class="f_CodeExample" style="color: #000000;">возвращает числовое значение соответственно установленной раскладке</span></span></p> <p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p> <p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Зависимости: windows</span></p> <p class="feed-readmore"><a target="_blank" href ="/index.php/windows/shrifty-yazyki-kodirovki-regionarnye-standarty/mnogoyazychie-lokalizatsiya-i-perekodirovka/uznat-tekushchuyu-raskladku-klaviatury-v-lyubom-aktivnom-okne.html">Подробнее...</a></p>