마우스커서 이동후 클릭효과

키보드에서 F4버튼 클릭시 윈도우의 특정위치로 마우스 이동 클릭효과

폼의 Keypreview 를 True로 하고

procedure TForm9.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

begin

  if key = VK_F4 then

  begin

    SetCursorPos(200,200);

    mouse_event(MOUSEEVENTF_LEFTDOWN, 200,200,0,0);

    mouse_event(MOUSEEVENTF_LEFTUP, 200,200,0,0);

  end;

  

end;

 

 

http://eaglesoft.tistory.com/43