Многоязычие, локализация и перекодировка
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>