델파이
마우스커서 이동후 클릭효과
미스터몽키
2012. 11. 30. 15:15
키보드에서 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;