VPF::Переключить раскладку клавиатуры

OlafShadow

Дата 13.7.2006, 20:10 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 21.6.2006
Где: Архангельская обл

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

Здравствуйте, собственно сабж, способ с внедрением ДЛЛ в чужой процесс и вызовом оттуда ActivateKeyboardLayout мне не подходит.

BinaryEvil

Дата 13.7.2006, 20:15 (ссылка)

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

Загрузка ...

Шустрый

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

Репутация: -1
Всего: 2

так а ты sendinput'ом нажимай нужные клавиши: Ctrl+Shift или Alt+Shift там...

OlafShadow

Дата 13.7.2006, 23:48 (ссылка)

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

Загрузка ...

Я уже думал, воспользоваться WH_JOURNALPLAYBACK, но вот вопрос: как узнать нужную комбинацию клавиш?

Демо

Дата 15.7.2006, 21:37 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

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

Найди необходимое окно и выполни для него

Код


const
  LRUS=$04190419;
  LENG=$04090409;

...

procedure SetKeyState(const Wnd: HWND;const Code: DWORD);
begin
  PostMessage(
    Wnd,
    WM_INPUTLANGCHANGEREQUEST,
    $1,
    Code);
end;

...
var
  WND: HWND;
begin
  WND := FindWIndow('Notepad',nil);
  SetKeyState(Wnd,LRUS);

Это сообщение отредактировал(а) Демо - 15.7.2006, 21:40

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

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