Как дождаться завершения процедуры?

[Hintman]

Есть процедура, которая многократно выполняется в головной программе:

procedure mEmDmU(i,j: Cardinal);
begin

SetCursorPos(i,j);
Mouse_Event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
Mouse_Event(MOUSEEVENTF_LEFTUP,0,0,0,0);

end;

Проблема в том, что при многократных вызовах иногда не успевают обработаться или вовсе не обрабатываются процедуры SetCursorPos, Mouse_Event.
Помогает вставка процедуры Sleep(X), но на разных компьютерах и при разной загрузке процессора это X может быть меньше или больше, а время работы программы очень нужно сократить, и минимальное оптимальное X неизвестно.

Application.ProcessMessages - не помогает.

5 часов копался в интернете, так и не понял. Запутался в этих процедурах WaitForInputIdle, SleepEx, WaitForSingleObject, GetQueueStatus и т.д. Что же здесь может помочь, чтобы заставить эти процедуры выполняться последовательно, без неразберихи? И неужели без потоков решить проблему не удастся? Это что же, на каждый Mouse_Event теперь поток создавать?

[Пепел Феникса]

Application.ProcessMessages

оно и не должно помочь если сообщения идут не вашему окну.

вообще если вы такие процедуры многократно юзаете, то стоит помоему сначало разобратся в том как винда работает...а именно я говори про сообщения.

[Hintman]

Ага, как видно из кода, сообщения идут не нашему окну.

Вот предположим мы вызываем эту процедуру, в которой выполняется код:

SetCursorPos(i,j);
Mouse_Event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
Mouse_Event(MOUSEEVENTF_LEFTUP,0,0,0,0);

И иногда получается так, что курсор еще переместиться не успел (SetCursorPos), а кнопка мыши уже нажалась (т.е. сработало Mouse_Event до того, как полностью завершилось SetCursorPos). Что призвано помочь в этой и им подобных ситуациях?

Может проверять позицию курсора после вызова SetCursorPos(i,j)? Например, вот так:

repeat
GetCursorPos(PT);
until ((i<>PT.X) or (j<>PT.Y))

И каким-то образом определять положение кнопки мыши (нажата, отпущена) после каждого вызова Mouse_Event? Это вообще может помочь?

Как заставить любую процедуру, любой код, будь то SetCursorPos, Mouse_Event или любая другая процедура отработать полностью до конца, не передавая дальнейшее управление программе, т.е. не выполняя дальнейший код, пока процедура полностью не отработает?

[Stilet]

А что ты хочешь сделать в принципе?
Почему именно этот способ?

[Hintman]

Мне не важен способ, мне главное чтобы не нарушалась последовательность выполнения кода...

Программа должна перемещать курсор в определенную область экрана и делать там нажатие кнопки мыши, затем перемещать в другую область и нажимать там. Каким способом это реализовать мне не важно, главное лишь безошибочность работы и быстродействие. Дело в том, что в настоящий момент есть проблема: как я уже сказал, не успевает еще завершиться обработчик первого вызова процедуры SetCursorPos или Mouse_Event, как уже вызывается следующий.

Приведу код полностью:

    for i:=0 to 6 do begin
      mEmDmU(h_rect.Left+088+36*i,h_rect.Top+145+j);
      mEmDmU(h_rect.Left+504+36*i,h_rect.Top+145+j);
      mEmDmU(h_rect.Left+088+36*i,h_rect.Top+145+j);
      mEmDmU(h_rect.Left+088+36*i,h_rect.Top+145+j);
      mEmDmU(h_rect.Left+088+36*i,h_rect.Top+145+j);
      end;

Как видим, здесь идет многократный вызов процедуры mEmDmU. Вот она

procedure mEmDmU(i,j: Cardinal);
begin
SetCursorPos(i,j);
Mouse_Event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
Mouse_Event(MOUSEEVENTF_LEFTUP,0,0,0,0);
end;

Ну а когда программу запускаем, перемещения и кликанье мышью начинает срабатывать не в том порядке, как должны бы. На лицо тот факт, что не успевают завершаться обработчики процедур Mouse_Event, вызванных ранее, как происходит новый вызов.

Устроит любое, желательно конечно же простое решение.
Простановка Sleep(10) после каждого вызова Mouse_Event помогает, в этом случае уже практически не возникает сбоя в порядке перемещений мыши. Но 10 мс не всегда достаточно. Можно ставить 15. Но и этой задержки может не хватить для корректного срабатывания программы. И не красивый этот способ. Да к тому же еще и длительный по времени.

Прошу, помогите...

[Stilet]

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

А не проще посылать сообщения о нажатии мышки окну по тем координатам не двигая курсор физически?

[Hintman]

Помогло! Большое спасибо! Пока что работает. При этом оказалось достаточно использования Sleep(0). Пока вопросов больше нет.

procedure mEmDmU(i,j: Cardinal);
var
lp: Integer;

begin
  lp:=i or j shl 16; //as MakeLParam
  SendMessage(H,WM_MOUSEMOVE,  0,lp);
  SendMessage(H,WM_LBUTTONDOWN,0,lp);
  SendMessage(H,WM_LBUTTONUP,  0,lp);
  Sleep(0);
  end;