Всем драсте
Помогите плиз
Код нажатие левый клик мышки
SetCursorPos ();
вот начало есть а чтоб нажал и отпустил код незнаю подскажите
VeTaL_UA
20.03.2011, 12:25
GetCursorPos(A) - узнать текущее положение мыши (где A : TPoint)
SetCursorPos(X,Y) - установить новое положение мыши
mouse_event(MOUSEEVENTF_LEFTDOWN,X,Y,0,0) - нажать левой кнопки
mouse_event(MOUSEEVENTF_LEFTUP,X,Y,0,0) - отпустить левую кнопку
Hellost
20.03.2011, 17:04
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;