Эмуляция нажатия ЛКМ в приложении под мышкой

[Illusiony]

Пробовал вот это:

SetCursorPos(x1,y1);
Application.ProcessMessages;
sleep(1300);
Mouse_Event( MOUSEEVENTF_LEFTDOWN, x1,y1,0,0);
Application.ProcessMessages;
sleep(500);
Mouse_Event( MOUSEEVENTF_LEFTUP, x1,y1,0,0);
Application.ProcessMessages;
sleep(1300);


В различных комбинациях задержек. Получается чер ти што. В одном приложении жмется без проблем( другое приложение делфи для подсчета скорости нажатия на кнопку), а в нужном мне то вообще не жмется то жмется непонятно по какому закону- то жмется то не жмется.

Кто может дать работоспособный код. При этом желательно чтобы он был быстрый на нажатие до 0.5 сек на нажатие.

Возможно по какойто причине происходит потеря фокуса, не знаю. Пробовал убирать Application.ProcessMessages; вразумительной работы не получил.

[raxp]

...уберите слипы, перейдите на SendMessage(). И да, приложение приложению - рознь. Об чем речь конкретно? Об игре с выводом через DirectX, скайпе, браузерке?

[doktor255]

Application.ProcessMessages в данном случае бесполезен. Советую почитать о случаях его применения.

При этом желательно чтобы он был быстрый на нажатие до 0.5 сек на нажатие

Временной интервал двойного клика определяется настройками Win. Как настроено, так и делаешь. Быстрее настройки не получится.

[Illusiony]

Нужно нажимать на игровом приложении - клиенте MMDOC. Что оно использует для прорисовки DirectX или нет не знаю.
Приложение в оконном режиме работает. Поэтому мне просто нужно чтобы ЛКМ нажималось в на текущем окне, в данном случае в окне MMDOC. А по Вашему совету мне еще нужно узнавать хэндл окна при применении SendMessage().

Узнаю хэндл окна и посылаю сообщение на клик:
procedure TForm1.Button1Click(Sender: TObject);
var h:hwnd;pchar;mk:Cardinal;index:in teger;
begin
sleep(1000);
h:=GetWindow(GetForegroundWindow,GW _HWNDFIRST);
getmem(p,2000);
GetWindowText(h,p,mk);
while (pos('Might & Magic : Duel of Champions - Multiplayer Ranked Game - RendezVous',p)=0)and(h<>0) do begin
h:=GetWindow(h,GW_HWNDNEXT);
// GetWindowText(h,p,mk);
end;
for index:=1 to 10 do begin
SetCursorPos(1052,719);
SendMessage(h, WM_LBUTTONDOWN,MK_LBUTTON,MAKELPARA M(1052,719));
SendMessage(h, WM_LBUTTONUP,MK_LBUTTON,MAKELPARAM( 1052,719));
edit3.Text:=inttostr(h);

end;
end;

Все равно ничего не нажимается

[Illusiony]

есть идеи?