VPF::WM_INPUTLANGCHANGEREQUEST - Форум программистов

subdigger

Дата 22.9.2003, 11:19 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 10.9.2003

Репутация: нет
Всего: нет

Кто знает как правильно выдрать из этого сообщения название раскладки

<Spawn>

Дата 22.9.2003, 13:08 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

По моему для этого нужно юзать WM_INPUTLANGCHANGE:

Код

type
  TForm1 = class(TForm)
    Label1: TLabel;
  private
    { Private declarations }
  public
   procedure WMINPUTLANGCHANGE(var Msg:TMessage);message WM_INPUTLANGCHANGE;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



{ TForm1 }

procedure TForm1.WMINPUTLANGCHANGE(var Msg: TMessage);
begin
case Msg.LParam of
  $4090409:Label1.Caption:='Eng';
  $4190419:Label1.Caption:='Rus';
 end;
end;

end.

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

subdigger

Дата 22.9.2003, 15:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 10.9.2003

Репутация: нет
Всего: нет

работает толлько на моей проге а с чюжих не сканит

p0s0l

Дата 22.9.2003, 16:45 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Еще бы сканила... Читай в факе про хуки, если нужно брать сообщения чужих прог...

--------------------

С уважением, г-н Посол.

<Spawn>

Дата 22.9.2003, 18:00 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Цитата(subdigger @ 22.9.2003, 07:34)

работает толлько на моей проге а с чюжих не сканит

Ну а ты что думал - для каждой программы своя выбраная раскладка клавы. По крайней мере в последних версиях винды(по моему в 95 не так, хотя может я ошибаюсь). Если нужно узнать раскладку чужого процесса, то используй например GetKeyboardLayout, либо, как уже сказал p0s0l, используй хук(например на WH_GETMESSAGE).

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »