Програмная эмуляция нажатия клавиш

Code:

Memo1.Perform(WM_CHAR, Ord('A'), 0);

Code:

SendMessage(Memo1.Handle, WM_CHAR, Ord('A'), 0);

Code:

{ **** UBPFD ***************

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

VKey - код виртуальной клавиши (см. описание констант VK_xxxx)

Зависимости: Windows

Автор:       Dimka Maslov, Этот адрес электронной почты защищён от спам-ботов. У вас должен быть включен JavaScript для просмотра.,

Copyright:   Dimka Maslov

***************************************************** }

procedure PressKey(VKey: Byte);

begin

keybd_event(VKey, 0, 0, 0);

keybd_event(VKey, 0, KEYEVENTF_KEYUP, 0);

end;

Code:

{ **** UBPFD *********** by ****

>> Эмуляция нажатия клавиши в любом окне, в т.ч. неактивном

Процедура эмулирует нажатие клавиши в любом окне путём посылки ему пары

сообщений WM_KEYDOWN и WM_KEYUP. Процедура принимает два параметра -

Handle окна и код клавиши (см. описание констант VK_xxxx).

Зависимости: Windows

Автор:       Dimka Maslov, Этот адрес электронной почты защищён от спам-ботов. У вас должен быть включен JavaScript для просмотра.,

Copyright:   Dimka Maslov

***************************************************** }

procedure EmulateKey(Wnd: HWND; VKey: Integer);

asm

  push 0

  push edx

  push 0101H //WM_KEYUP

  push eax

  push 0

  push edx

  push 0100H //WM_KEYDOWN

  push eax

  call PostMessage

  call PostMessage

end;

// Пример использования:

EmulateKey(Edit1.Handle, VK_RETURN);