[Yarcim]

Если тема не совсем понятна поясняю: Мне нужно с'эмулировать ввод символов в текущее мест курсора при помощи клавиши ALT+NumPad. (для тех кто не знает, если зажать клавишу Alt и ввести трихцифровой код, появится знак из ASCII таблицы). Так вот мне нужно это сделать программно.

Пробую так, но желаемого эффекта не получается.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TForm1.Button1Click(Sender: TObject); begin    Memo1.SetFocus;     keybd_event(VK_MENU,0, 0, 0);   keybd_event(VK_NUMPAD3,32,0, 0);   keybd_event(VK_NUMPAD3,32,KEYEVENTF_KEYUP, 0);   keybd_event(VK_NUMPAD9,32,0, 0);   keybd_event(VK_NUMPAD9,32,KEYEVENTF_KEYUP, 0);   keybd_event(VK_NUMPAD5,32,0, 0);   keybd_event(VK_NUMPAD5,32,KEYEVENTF_KEYUP, 0);   keybd_event(vk_menu, 0, keyeventf_keyup, 0);   end;

По хорошему должна появиться русская буква "Л" (Alt+Num395),но ничего не выходит.

Может быть я что-то делаю не так, или существует какое-то аппаратное ограничение на программный ввод таким способом?

[Pyro]

может надо где-то использовать KEYEVENTF_EXTENDEDKEY

[Yarcim]

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

может надо где-то использовать KEYEVENTF_EXTENDEDKEY

Попробовал, тишина...

[Yarcim]

Неужели никто не знает как это сделать? А ведь в TeamViewer такая фича как-то реализована...

[Alegun]

Наверное ошибаюсь, но похоже keybd_event больше двух посылок одновременно не отправляет, по крайней мере мне этой устаревшей функцой ничего эмульнуть кроме типа Ctrl+V или Ctrl+C не удалось. Предлагаю вместо неё использовать более продвинутую SendInput:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

TForm1.Button1Click(Sender: TObject); var b: array [0..1] of TInput; begin memo1.SetFocus;    FillChar(b, SizeOf(b), 0);  b[0].Itype:= 1; // INPUT_KEYBOARD  b[0].ki.wScan:= Word('Л');  b[0].ki.dwFlags:= 4; // KEYEVENTF_UNICODE    SendInput(Length(b), b[0], SizeOf(TInput)); end;

Шлёт кому и куда угодно любые чарки, даже в юникоде, главное чтоб у принимающей стороны фокус был, да и думать о ASCII-кодах не придётся

[Yarcim]

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

Шлёт кому и куда угодно любые чарки, даже в юникоде, главное чтоб у принимающей стороны фокус был, да и думать о ASCII-кодах не придётся

Спасибо, попробую.