안녕 하세요?

BacTeria 박종민 입니다.

폼의 속성중 KeyPreview 속성을 True로 해주신 후에 OnKeyDown 이벤트에

아래의 내용을 입력해 보세요.

'A'키를 누르면 메모장에 '1'이 써지는걸 볼 수 있을 겁니다.

이만...

---------------------------------------------------------------------

var
  H: THandle;
begin
  if Key = Ord('A') then
  begin
    H := FindWindow(nil, '제목 없음 - 메모장');
    H := FindWindowEx(H, 0, 'Edit', nil);
    SendMessage(H, WM_CHAR, 49, 0);
  end;
end;