Delphi 간단하게 키보드이벤트 발생하기

Delphi 간단하게 키보드이벤트 발생하기

 

윈도우API를 이용하여 키보드를 간단하게 제어해 보겠습니다.

 

Keybd_Event(Ord('K'), MapVirtualKey(Ord('K'), 0), 0, 0);

Keybd_Event(VK_ESCAPE, MapVirtualKey(VK_ESCAPE), 0), 0, 0);

 

//첫번째 파라미터 : 키보드의 가상 키코드

//두번째 파라미터 : 키보드의 하드웨어 스캔코드

//세번째 파라미터 : 키보드의 상태제어

 

//참조

https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-keybd_event

 

 

키보드 클릭

Keybd_Event(VK_ESCAPE, MapVirtualKey(VK_ESCAPE), 0), 0, 0);

Keybd_Event(VK_ESCAPE, MapVirtualKey(VK_ESCAPE), 0), KEYEVENTF_KEYUP, 0);

 

키보드 조합 클릭

ex) Alt + F4

Keybd_Event(VK_MENU, MapVirtualKey(VK_MENU, 0), 0, 0);

Keybd_Event(VK_F4, MapVirtualKey(VK_F4, 0), 0, 0);

Keybd_Event(VK_F4, MapVirtualKey(VK_F4, 0), KEYEVENTF_KEYUP, 0);

Keybd_Event(VK_MENU, MapVirtualKey(VK_MENU, 0), KEYEVENTF_KEYUP, 0);