вставка unicode символа в активный контрол чужого приложения

[tral]

Итак, пишется небольшая программа, которая будет ждать нажатия сочетания горячих клавиш (скажем, Shift+Alt+F9), определять активный контрол активного окна и вставлять туда символ (скажем, "à").

ознакомился с http://www.programmersforum.ru/showthread.php?t=20551

работает, но ни в один контрол Mozilla Firefox 11.0 не вставляется символ. В блокнот, Word, Chrome - все ок.

procedure TForm1.WMHotkey( var msg: TWMHotkey );
var Symbol: word;
    A,B: DWORD;
    ClipBoard:TClipboard;
begin
  if msg.hotkey = 1 then
  begin                     

  A := GetCurrentThreadId;
  B := GetWindowThreadProcessId(GetForegroundWindow, nil);
  if A<>B then AttachThreadInput(A, B, True);
  Symbol := Ord(#0224); // 

  PostMessageW (GetFocus , WM_IME_CHAR, Symbol, 1);

  if A<>B then AttachThreadInput(A, B, false);
                  
  end;
end;

Сдается мне, что я как-то неверно ищу активный контрол активного окна или же firefox не принимает мои мессаги.
Есть идеи?

[EUGY]

Сдается мне, что я как-то неверно ищу активный контрол активного окна или же firefox не принимает мои мессаги.
Есть идеи?

Видимо, то, что Вы ищите, отсутствует в мозиле.
Гляньте http://ru.wikipedia.org/wiki/XUL.

Может есть смысл отправить сообщение в очередь непосредственно в главное окно?

PostMessage(FindWindow(L"MozillaWindowClass", NULL), WM_CHAR, 'A', 0);

[tral]

не помогло

[tral]

ау, пипл, есть идеи?