Отправить текст в другое приложение (сэмулировать ввод).

[exxer]

Здравствуйте!

Пытаюсь сделать функцию для автоматического ввода текста в чужое приложение.

Все получается, но НЬЮАНС: текст передается без форматирования (Заглавные/строчные буквы). Все пишется строчными буквами. как исправить?

Заранее благодарен!

Сейчас код такой:

// Send text to current window
function TypeStr(s:string): boolean;
var Symbol: word;
    A,B: DWORD;
var i,n:integer;
begin
  A := GetCurrentThreadId;
  B := GetWindowThreadProcessId(GetForegroundWindow, nil);
  if A<>B then AttachThreadInput(A, B, True);

  for i:=1 to Length(s) do
  begin
    Symbol := Word(s[i]);
    if (ord(s[i]) = 13) or (ord(s[i]) = 10) then
    begin
      PostMessage(GetFocus, WM_KEYDOWN, ord(s[i]), 1);
      PostMessage(GetFocus, WM_KEYUP, ord(s[i]), 1);
    end
    else
      PostMessage(GetFocus, WM_IME_CHAR, Symbol, 1);
  end;

  if A<>B then AttachThreadInput(A, B, false);
  Result := Symbol <> 0;
end;