Иммитация нажатий клавиш клавиатуры

[chandrasecar]

Здравствуйте.
Есть два вопроса:
1) Как программно считать последовательное нажатие определеных клавиш? Например пользователь нажимает клавиши [Y],[E],[S], только после этого программа выдает какое-то действие.
2) У каждой клавиши есть свой код. Например, клавише [1!] соответствует код $31. Чтобы имитировать нажатие этой клавиши, использую ф-цию SetKey. Но под одним кодом находятся два символа 1 и !. Как сделать имитацию нажатия этой клавиши так, чтобы в текстовом поле (вне программы) выводился символ !, а не 1?

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

[mihali4]

1. Накапливать нажатия в строковой переменной (строке). При вводе каждого символа проверять, соответствует ли введенная подстрока началу эталона. Если нет - сброс в пустую строку с выдачей сообщения, если нужно.
2. А что вы делаете, когда вводите "!" руками? Верно, нажимаете еще и Shift. Вот и тут нужно указать Shift:=[ssShift].
SetKey, SetKey... Но ведь это функция для работы с датасетами...
Вообще-то, для текстового поля, например, эдита, можно сделать вот так:
Edit1.Perform(WM_Char,Ord('!'),0);

[chandrasecar]

Для Эдита можно и так. Но моя программа сама печатает с сторонних приложениях, например в Ворде, поэтому и SetKey. Только как через эту функцию одновременно нажать и [Шифт] и [1]?

[mihali4]

Если бы вы действительно имитировали нажатия клавиш (с их опусканием невидимым пальцем и последующим отпусканием) - я бы вас понял...
Но вам-то нужно передать не комбинацию кодов клавиш, а код символа!
И хватит разыгрывать из себя Джеймса Бонда. Приведите ваш код, в котором у вас "затыки", и вам быстрее помогут...

[chandrasecar]

Код значит такой:

private
    klav, klav1: Integer;
    procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
    procedure SetKey(Key:Integer);
..........................
procedure TForm1.SetKey(Key:Integer);
begin
  keybd_event(Key,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
  keybd_event(Key,0,KEYEVENTF_EXTENDEDKEY,0);
  keybd_event(Key,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
end;

procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
if Timer1.Enabled=False then begin
  SetLayoutActiveWnd(ENGLISH);
  i:=0;
  if Msg.HotKey = klav then Timer1.Enabled:=True;
  if Msg.HotKey = klav1 then Timer1.Enabled:=True;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
const
     vk_Delete    = $2E;
     vk_Back      = $08;
begin
  ShowWindow(Application.Handle,SW_Hide); // скрытие формы
  ShowWindow(handle,sw_hide);

  klav := GlobalAddAtom('Hotkey4');
  RegisterHotKey(Handle, klav, 0, vk_Delete );

  klav1 := GlobalAddAtom('Hotkey3');
  RegisterHotKey(Handle, klav1, 0, vk_Back );

end;

procedure TForm1.FormDestroy(Sender: TObject);
begin

  UnRegisterHotKey(Handle, klav);
  GlobalDeleteAtom(klav);
  UnRegisterHotKey(Handle, klav1);
  GlobalDeleteAtom(klav1);
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
  ShowWindow(Application.Handle,SW_Hide); // скрытие формы
  ShowWindow(handle,sw_hide);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
const
  VK_H = $48;  VK_N = $4E;
  VK_E = $45;  VK_Sh = $31;
  VK_L = $4C;
  VK_O = $4F;
begin
i:=i+1;
if i=1 then SetKey(VK_Space);
if i=2 then begin SetKey(VK_H); end;
if i=3 then begin SetKey(VK_E); end;
if i=4 then SetKey(VK_L);
if i=5 then SetKey(VK_L);
if i=6 then SetKey(VK_O); 
if i=7 then SetKey(VK_Space);
if i=8 then SetKey(VK_N);
if i=9 then SetKey(VK_E);
if i=10 then SetKey(VK_O);
if i=11 then SetKey(VK_Sh-2);
if i=11 then Timer1.Enabled:=False;
end;

Смысл программы: Пользователь работает в ворде, нажимает Del или Backspace, программа сама печатает в ворде сообщение 'Hello neo'. Вот отсюда и вопрос: каждая клавиша содержит максимум 2 символа, один из которых можно получить только при нажатии SHIFT, как этот символ получить при программной имитации нажатия клавиши?
Или может это можно сделать как-то иначе?

[mihali4]

Как же вы все (без исключения!) не любите или просто не умеете пользоваться поиском по форуму!
Посмотрите вот эту тему, она как раз для вас:
http://www.programmersforum.ru/showt...F1%EB%E0%F2%FC