VPF::русская раскладка для wine через hook

Sheleh

Дата 12.2.2012, 16:59 (ссылка)

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

Загрузка ...

Новичок

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

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

задача - сделать возможным ввод русских буков под вайном средствами перехвата сообщений клавиатуры.

Код

library hook;
Uses Windows, Messages, Sysutils;

var
  myHook: HHook = 0;

function MsgProc(Code: integer; wParam: Word; lParam: Longint): Longint; stdcall;
var c: char;
    f: text;
    key: array [0..16] of Char;
    s: Char;
begin
  if (Code=HC_ACTION) and (((lParam shr 16) and KF_UP)=0) then
  begin
    GetKeyNameText(lParam,key,SizeOf(key));
    s:='x';

    if key='Q' then s:='й';
    if key='W' then s:='ц';
    if key='E' then s:='у';
    if key='R' then s:='к';
    if key='T' then s:='е';
    if key='Y' then s:='н';
    if key='U' then s:='г';
    if key='I' then s:='ш';
    if key='O' then s:='щ';
    if key='P' then s:='з';
    if key='[' then s:='х';
    if key=']' then s:='ъ';
    if key='A' then s:='ф';
    if key='S' then s:='ы';
    if key='D' then s:='в';
    if key='F' then s:='а';
    if key='G' then s:='п';
    if key='H' then s:='р';
    if key='J' then s:='о';
    if key='K' then s:='л';
    if key='L' then s:='д';
    if key=';' then s:='ж';
    //if key='' then s:='э';
    if key='Z' then s:='я';
    if key='X' then s:='ч';
    if key='C' then s:='с';
    if key='V' then s:='м';
    if key='B' then s:='и';
    if key='N' then s:='т';
    if key='M' then s:='ь';
    if key=',' then s:='б';
    if key='.' then s:='ю';
    if key='/' then s:='.';

    if s<>'x' then SendMessage(GetFocus, WM_CHAR, Ord(s), 0)
     else result:=CallNextHookEx(myHook,Code,wParam,lParam);
  end;
end;

procedure setHook(Hook: boolean) export; stdcall;
begin
  if Hook then
  begin
    if myHook=0 then
    myHook:=SetWindowsHookEx(WH_KEYBOARD,@MsgProc,HInstance,0);
  end
  else
  begin
    if myHook<>0 then
    UnHookWindowsHookEx(myHook);
    myHook:=0;
  end;
end;

exports setHook name 'SetHook';

begin
end.

русский текст написан при помощи етого кода. правда писать можно только в блокноте и некоторых других полях. видимо у SendMessage(GetFocus, WM_CHAR, Ord(s), 0) есть ограничения.

вот и возник вопрос - какие еще существуют способы передавать текстовым полям русские буквы ) ?
например текст вводить нельзя в браузер опера. может для оперы текст нужно преобразовать в юникод,? но как?

bems

Дата 12.2.2012, 20:08 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

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

попробуй хук KEYBOARD_LL

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

Обижено школьников: 8

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