[Помогите!] Имитация клика мыши

[19955991]

Всю голову сломал.
Подскажите пожалуйста как имитировать нажатие мышки в компоненте WebBrowser при этом чтобы курсор мышки был свободным. Например нужно в браузере нажать определенную кнопку(не мою, а сайта).
=========================================
mouse_event точно не подходит мне в данном случае

Делаю таким образом, но почему то не работает:

Цитата: procedure TForm2.Button1Click(Sender: TObject); var test: HWnd; begin test:=form2.webbrowser1.Handle; postmessage(test,WM_LBUTTONDOWN,0,(100 shl 16)+100); postmessage(test,WM_LBUTTONUP,0,(100 shl 16)+100); end;

P.S.Пока писал попробовал проделать тоже самое только с кнопкой, прописал координаты 1, 1 и оля ля получилось, но с браузером сколько бы я не колдовал безрезультатно((
Вот как с кнопкой проделал:

Цитата: procedure TForm2.Button1Click(Sender: TObject); var test: HWnd; begin test:=form2.button1.Handle; postmessage(test,WM_LBUTTONDOWN,0,(1 shl 16)+1); postmessage(test,WM_LBUTTONUP,0,(1 shl 16)+1); end;

Да и объясните пожалуйста мне вот этот кусок 0,(100 shl 16)+100 от чего именно он отчитывает, может быть я не туда тыкаю))

[19955991]

Знающих людей по этой теме нету совсем чтоли?
Ну хотя бы маленькую подскахочку киньте

[Dinmaite]

разберитесь с сообщением WM_LBUTTONDOWN и остальными сообщениями мыши. После этого, я считаю, все вопросы отпадут сами собою.