Функция на виртуальную распечатку строки

[Alex Cones]

Procedure PrintSmt(S : String);
Var
I:Integer;
Begin
For I := 1 to Length(S) do
  Begin
   Keybd_event(Ord(S[I]), 0, 0, 0);
   Keybd_event(Ord(S[I]), 0, KEYEVENTF_KEYUP, 0);
  end;
End;

PrintSmt('PrivetiКъ');

Выводит всякую фигню.

P.S. И подскажите, пожалуйста, как отправить CTRL+V?

[raxp]

а почему не postmessage ?

postMessage(h, $0102, ord(s[i]), 0)

и да, если русские посылаешь, то раскладку переключай LoadKeyboardLayout(StrCopy(Layout,' 00000419'),KLF_ACTIVATE).

[Alex Cones]

Это так, похоже, придется каждую букву проверять на раскладку. Все-таки, наверное проще будет зарядить строку в буфер обмена и послать CTRL+V. Вопрос только в том, как он посылается.

[raxp]

в русской раскладке английские символы через postmessage идут нормально, т.е. будет достаточно сразу один раз переключить.

[Alex Cones]

Дык, а ежели хендл неизвестен? Тестирую на блокноте, программа собирается для мозиФФ.

Вотъ, нашел и вставил:

Procedure PrintSmt(S : String);
Var
I:Integer;
Begin
 Clipboard.AsText := S;
 keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);
 keybd_event(Ord('V'), MapVirtualKey(Ord('V'), 0), 0, 0);
 keybd_event(Ord('V'), MapVirtualKey(Ord('V'), 0), KEYEVENTF_KEYUP, 0);
 keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), KEYEVENTF_KEYUP, 0)
End;

[raxp]

в смысле если неизвестен, значит его надо найти, а если имеешь ввиду то, что сверху активное, то значит его хэндл брать через GETforegroundwindow ...а нескольких кнопок послать нажатие можно так:

var msg: TMessage;
...
msg.LParamLo:= MOD_CONTROL;
msg.LParamHi:= VK_CONTROL or ord('V');
PostMessage(handle_window, WM_HOTKEY, 0, Msg.LParam);