Текущий архив: 2003.09.25;
Скачать: CL | DM;

Вниз

Индикатор клавиатуры   Найти похожие ветки 

← →
Ilg   (2003-09-11 19:15) [0]

Здравствуйте! <br />Кто-нибудь встречал нормальный компонент, который бы показывал текущий язык (желательно с исходниками)?

---

← →
Юрий Федоров ©   (2003-09-11 19:37) [1]

Напиши сам, не ленись. <br />Ориентировка - <code>GetKeyboardLayoutName</code>

---

← →
8ung ©   (2003-09-11 20:00) [2]

Я если хочется исходник, то <br />дам только функцию: <br /> <code>function Tform1.getLanguage:string; <br />var <br />Layout: array [0.. KL_NAMELENGTH] of char; <br />begin <br />GetKeyboardLayoutName(Layout); <br />if Layout = &quot;00000409&quot; then <br />Result := &quot;EN&quot; <br />else <br />Result := &quot;RU&quot;; <br />end;</code>

---

← →
VMcL ©   (2003-09-11 21:10) [3]

Или даже вот так: <br /> <br /> <code>function ShowLayoutName: String; <br />var <br />LayoutName: array [0 .. KL_NAMELENGTH + 1] of Char; <br />LangName: array [0 .. 255] of Char; <br />begin <br />Result := &quot;??&quot;; <br />if GetKeyboardLayoutName(@LayoutName) then <br />begin <br />if GetLocaleInfo(StrToInt(&quot;$&quot; + StrPas(LayoutName)), <br />LOCALE_SABBREVLANGNAME, <br />@LangName, SizeOf(LangName) - 1) &lt;&gt; 0 then Result := StrPas(LangName); <br />end; <br />Result := AnsiUpperCase(Copy(Result, 1, 2)); <br />end;</code>

---

← →
DrWeb ©   (2003-09-12 00:20) [4]

http://delphiplus.nagano.ru/articles/components/statusbar/index.html

---

Страницы: 1 вся ветка

Текущий архив: 2003.09.25;
Скачать: CL | DM;

Наверх

Память: 0.59 MB
Время: 0.032 c