Виртуальная клавиатура (Ирмологий)

[Fahman]

Нужна виртуальная клавиатура ка на подобие вот этого http://www.churchslavonic.org/

Как можно сделать ее???

Тут вот есть http://www.irmologion.ru/tools.html

Но там только на 32 битную систему а мне надо под 64((((
Подскажите куда копать?

[Streletz]

Найти соответствующий шрифт и создать свой вариант для Win64. Можно реализовать даже на стандартных компонентах.

[Fahman]

Сообщение от Streletz

Найти соответствующий шрифт и создать свой вариант для Win64. Можно реализовать даже на стандартных компонентах.

Шрифт есть, скачал, а можно будет же потом чтоб в word'е писало?

[Fahman]

Разобрался, темы на подобие моей были на этом форуме)

[Fahman]

Маленький вопросик остался.... Вот этой функцией я ввожу текст в Word

procedure TForm1.Button1Click(Sender: TObject);
var
  wnd: HWND;
  i: Integer;
  s: string;
begin
  WordDoc := 0;
  wnd := FindWindow(nil, PChar('Документ1 - Microsoft Word'));
  if wnd <> 0 then
  begin
    EnumChildWindows(wnd, @EnumChildWndProc, 0);
    if WordDoc <> 0 then
    begin
      s := 'Hello';
      for i := 1 to Length(s) do
        PostMessage(WordDoc, WM_CHAR, Word(s[i]), 0);
      PostMessage(WordDoc, WM_KEYDOWN, VK_RETURN, 0);
    end
    else ShowMessage('Word list is not found!');
  end
  else ShowMessage('MS Word is not found!');
end;

Как мне с эмулировать нажатие клавиши Backspase или Shift???