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

Вниз

Язык русский или английский   Найти похожие ветки 

← →
dj0n ©   (2005-11-03 16:45) [0]

Как отобразить какой язык для ввода у меня включин?

---

← →
TUser ©   (2005-11-03 16:46) [1]

getkeyboardlayout

---

← →
dj0n ©   (2005-11-03 16:51) [2]

это что такое?

---

← →
Amoeba ©   (2005-11-03 16:53) [3]

> dj0n ©   (03.11.05 16:51) [2]
> это что такое?

Как что? Функция.

---

← →
dj0n ©   (2005-11-03 16:57) [4]

а можно более подробное онисание а то я не профи в делфи?! плиз

---

← →
dj0n ©   (2005-11-03 17:03) [5]

в хелпе нет описания этой функции

---

← →
Fay ©   (2005-11-03 17:09) [6]

2 dj0n ©   (03.11.05 17:03) [5]
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winui/windowsuserinterface/userinput/keyboardinpu t/keyboardinputreference/keyboardinputfunctions/getkeyboardlayout.asp

---

← →
Fay ©   (2005-11-03 17:09) [7]

Или просто
http://search.microsoft.com/search/results.aspx?qu=GetKeyboardLayout&View=msdn&st=b&c=0&s=1&swc=0

---

← →
dj0n ©   (2005-11-03 17:26) [8]

функция getkeyboardlayout возвращает число! а какое число русский и какое латинские???

---

← →
Leonid Troyanovsky ©   (2005-11-03 17:34) [9]

> dj0n ©   (03.11.05 17:26) [8]
> функция getkeyboardlayout возвращает число! а какое число
> русский и какое латинские???


var
 AklName: array [0..2] of Char;

     GetLocaleInfo( LoWord(ahkl),
                    LOCALE_SABBREVLANGNAME,
                    AklName,
                    SizeOf(AklName));


--
Regards, LVT.

---

← →
dj0n ©   (2005-11-03 17:45) [10]

не работает

---

← →
Leonid Troyanovsky ©   (2005-11-03 17:48) [11]

> dj0n ©   (03.11.05 17:45) [10]
> не работает


Win32Check(GetLocaleInfo(..) <> 0);
ShowMessage(AklName);

--
Regards, LVT.

---

← →
dj0n ©   (2005-11-03 18:18) [12]

И так не работает

---

← →
Zeqfreed ©   (2005-11-03 18:57) [13]

dj0n ©   (03.11.05 18:18) [12]
Я скажу больше! [11] даже не компилируется! Какой ужас! А голова есть? Ну хотя бы чуть-чуть?

type
 TForm1 = class(TForm)
   procedure FormCreate(Sender: TObject);
 private
   procedure WMLangChanged(var Msg : TMessage); message WM_INPUTLANGCHANGE;
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

function GetActiveLayoutName() : String;
var
 buf : array[0..MAX_PATH] of Char;
 kl : hKL;
 l : Integer;
begin
 kl := GetKeyboardLayout(0);
 l := GetLocaleInfo(LoWord(kl), LOCALE_SLANGUAGE {LOCALE_SABBREVLANGNAME}, @buf, SizeOf(buf));
 if (l > 0) and (l <= SizeOf(buf)) then
  Result :=Copy(buf, 1, l)
 else
  Result := "";
end;

procedure TForm1.WMLangChanged(var Msg : TMessage);
begin
 Caption := GetActiveLayoutName;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Caption := GetActiveLayoutName;
end;

Это работает?

---

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

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

Наверх

Память: 0.49 MB
Время: 0.066 c