Скачать: CL | DM;

Энгл Рус   Найти похожие ветки 

← →
Сутковой Вадим   (2002-12-11 21:22) [0]

Добрый вечер делферы! Вот, озодачился проблемой:
Мне нужно из проги узновать какая раскладка клавы в активном окне! GetKeyboartLayout - только в своей ыинде определяет! Помогите плииз, запыхался в поисках...

---

← →
Юрий Зотов ©   (2002-12-11 22:50) [1]

Для чужих окон нужно сначала приаттачить ввод. Вот простенький (но работающий) примерчик. Не судите строго - набросал на скорую руку, лишь бы показать ход действий. У формы выставьте StayOnTop, а интервал таймера - 100.

type
TForm1 = class(TForm)
Label1: TLabel;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
private
FID: DWORD;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if FID <> 0 then AttachThreadInput(GetCurrentThreadId, FID, False);
FID := GetWindowThreadProcessId(GetForegroundWindow, nil);
if FID = GetCurrentThreadId then FID := 0 else AttachThreadInput(GetCurrentThreadId, FID, True);
Label1.Caption := IntToStr(GetKeyboardLayout(FID))
end;

---

← →
Сутковой Вадим   (2002-12-12 11:36) [2]

Спасибо Юрий Зотов © , огромнейшее спасибо!

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c