如何这样控制程序？

Question

假设有个程序，我需要在他的（100，100）这个点产生按下鼠标的动作，通常可以向系统发送一个消息过去，但是这样的话鼠标也会移动过去，有没有办法做到鼠标不移动，却可以在任意指定因为产生点击的效果这样的方法，谢谢，请副上源玛

Answer 1

这样.先记下当前MOUSE的位置,先postmessage一个(100,100)的消息,然后再postmessage一个回到当前位置的消息

Answer 2

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
   Perform(WM_LBUTTONDOWN,0,MakeLong(100,100));
end;procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if (X=100) and (Y=100) then
  ShowMessage('OK');
end;用perform函数,这样Mouse不会动.

Answer 3

perform函数的原形是什么？3个参数的作用？