Mouse_Event 鼠标点击点问

Question

请问如何获取指定窗口的坐标 
然后再用Mouse Event 点击该窗口的指定位置该如何实现. 
本人菜鸟希望有高手能发代码上来供测试.{procedure TForm1.Button1Click(Sender: TObject);
var
x,y:integer;
begin
x:= form1.Left+button2.Left+25;
y:= top+button2.Top+27;
SetCursorPos(x,y);
Mouse_Event(MOUSEEVENTF_LEFTDOWN,X,Y,0,0);
Mouse_Event(MOUSEEVENTF_LEFTUP,X,Y,0,0);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
showmessage('fksj');
end;
*************************************
// Set the mouse cursor to position x,y:
SetCursorPos(x, y);
// Simulate the left mouse button down
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
// Simulate the right mouse button down
mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0);
}如何可以据这个点应用在指窗口上的点击吗？例如：如果我们每次打开我的电脑这个窗口，假如每次的窗口大小每次大少一样（非最大化）而位置都一样，用程序自动去点击该窗口进入C盘。
   不知道那位大哥能发代码上来。

Answer 1

是打开窗口显视的位置都不一样。