Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> русская раскладка для wine через hook, подмена англ-их символов русскими 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) есть ограничения.

вот и возник вопрос - какие еще существуют способы передавать текстовым полям русские буквы ) ?
например текст вводить нельзя в браузер опера. может для оперы текст нужно преобразовать в юникод,? но как?
PM MAIL   Вверх
bems
Дата 12.2.2012, 20:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



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


--------------------
Обижено школьников: 8
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.

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


 




[ Время генерации скрипта: 0.0643 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.