Эмуляция нажатия клавиши

[helenfly]

Здравствуйте!
Нужно написать код, чтобы в Активном окне (любом) при нажатии определенной клавиши (например v) эмулировалось попеременное нажатие двух клавиш с определенным промежутком времени.

Например, держу клавишу "v" - эмулируется нажатие поочередно "g" "h",
отпускаю - эмуляция закончена.

Как это реализовать?

PS: Я в программировании чайник, а код нужен для любимой игрушки.

[Terran]

Самое простое, что приходит на ум... Так это сделать так:

Procedure 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.Timer1Timer(Sender: TObject);
Begin
If GetKeyState(86) < 0 Then
Begin
SetKey(8);
SetKey(71);
Sleep(100);
SetKey(72);
End;
End;

Но при зажимании клавиши будет проскакивать "v", а при обычном нажатии будет всё нормально.

[helenfly]

Но этот код применим только к форме TForm1, а как сделать чтобы работало в другом приложении (текущем)?

[uberchel]

А уж долго зарегистрировать горячию клавишу?

private
procedure WMHotKey(var Message: TMessage); message WM_HOTKEY;

Procedure 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.Timer1Timer(Sender: TObject);
Begin
If GetKeyState(86) < 0 Then
Begin
SetKey(8);
SetKey(71);
Sleep(100);
SetKey(72);
End;
End;

procedure Tform1.WMHotKey(var Message: TMessage);
begin
Timer1.Enabled: =True;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
RegisterHotKey(Handle, 86,86);
end;

procedure TForm1.FormDestroy(Sender: TObject);

begin
UnregisterHotKey(Handle, 86)
end;

[helenfly]

Всем спасибо! Программку состряпала, теперь буду ее шлифовать.

Еще вопросы:
Как свернуть программу в трей?
Как привязать ее к определенному процессу? (программе)

Где можно посмотреть про это?

[Terran]

Как свернуть программу в трей?

Самый простой вариант - это использовать компонент CoolTrayIcon.

Как привязать ее к определенному процессу? (программе)

Немного уточните, что именно вы подразумеваете под привязыванием программы?

[Marinesku]

Здравствуйте. У меня вопрос:
вот код эмуляции буквы:
keybd_event(ord('E'), MapVirtualKey(ord('E'), 0), 0, 0);
keybd_event(ord('E'), 0, KEYEVENTF_KEYUP, 0);
вот для других кнопок:
keybd_event(VK_TAB, MapVirtualKey(VK_TAB, 0), 0, 0);
keybd_event(VK_TAB, 0, KEYEVENTF_KEYUP, 0);
и кроме tab так можно нажимать и другие кнопки.
А как же эмулировать ТОЧКУ. Или тире, запятую... Но главное сейчас - это точка. Вот мне нужно поставить точку, например, в блокноте, или в адресной строку браузера.

[Marinesku]

Думал через del на дополнительной клавиатуре, тот что справа (он тоже точку рисует), дык и его незнаю как эмулировать. Только обычный del работает. Может хоть его код напишите.

[raxp]

имхо, лучше ищите хэндл блокнота и работайте через sendmessage или postmessage:

SendMessage(h, $0102, ord('.'), 0)

[Stilet]

Одна тема - один автор.