[Помогите!] Мышь

[Pahan2011]

Всем драсте
Помогите плиз
Код нажатие левый клик мышки
SetCursorPos ();
вот начало есть а чтоб нажал и отпустил код незнаю подскажите

[VeTaL_UA]

GetCursorPos(A) - узнать текущее положение мыши (где A : TPoint)
SetCursorPos(X,Y) - установить новое положение мыши
mouse_event(MOUSEEVENTF_LEFTDOWN,X,Y,0,0) - нажать левой кнопки
mouse_event(MOUSEEVENTF_LEFTUP,X,Y,0,0) - отпустить левую кнопку

[Hellost]

procedure mouseclick(x,y :integer);
var
OldCursorPos: TPoint;
begin
GetCursorPos(OldCursorPos);
SetCursorPos(x, y );
mouse_event(MOUSEEVENTF_LEFTDOWN,0, 0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0, 0 ,0,0);
SetCursorPos(OldCursorPos.X, OldCursorPos.Y);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
mouseclick(20, 1023 )
end;