델파이 마우쓰 클릭 제어하기

아래 코드는 마우쓰의 왼쪽 버튼을 클릭하게 하는 예제다. 마우쓰를 손으로 움직이지 않고 제어해야 할 때 필요하다.

procedure TForm1.FormClick(Sender: TObject);
begin
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
end;

mouse_event는 윈도우즈 api에 있는 함수인데 이 api가 통째로 델파이에 임포트되어 있어서 편하게 쓸 수 있다. MOUSEEVENTF_LEFTDOWN 같은 상수들도 따로 선언할 필요 없다.

누르는 명령을 실행한 뒤에는 이어서 떼는 동작도 실행을 해야 하는 거에 유의한다.