[nixon232]

День добрый, требуется ваша помощь. Требуется послать клик на кнопку, но его нет. В чем проблема? Хендл находит верный

Код:

procedure TForm1.Button1Click(Sender: TObject);
var

  h: HWND;
begin

  h := FindWindow(nil,'Текст' );
  
  h := FindWindowEx(h, 0, 'ButtonClass', nil);
 ShowMessage(IntToStr(h));
  PostMessage(h, BM_CLICK,0,0);
end;

BM_CLICK Менял на аналоги, но нет реакции.

[angvelem]

Судя по названию класса 'ButtonClass', это что-то от Мелкомягких. И заметьте, на BM_CLICK обязан реагировать класс 'BUTTON'. Про 'ButtonClass' это с уверенностью сказать нельзя. Можно попытаться послать WM_LBUTTONDOWN, WM_LBUTTONUP.

[Alegun]

Сообщение от angvelem

...Можно попытаться послать WM_LBUTTONDOWN, WM_LBUTTONUP.

и правда, шлёт

Код:

...
h:= FindWindowEx(FindWindow(nil, 'Текст'), 0, nil, 'Надпись на кнопке');
PostMessage(h, WM_LButtonDown, 1, 1);
PostMessage(h, WM_LButtonUP, 1, 1);
...

[nixon232]

Сообщение от angvelem

Судя по названию класса 'ButtonClass', это что-то от Мелкомягких. И заметьте, на BM_CLICK обязан реагировать класс 'BUTTON'. Про 'ButtonClass' это с уверенностью сказать нельзя. Можно попытаться послать WM_LBUTTONDOWN, WM_LBUTTONUP.

Ваша правда, контрол тут непонятный и как по нему нажать я не знаю. Код выше не работает. Какие есть еще варианты?

[NumLock]

Сообщение от nixon232

Какие есть еще варианты?

mouse_event() 2 раза

[Alegun]

Сообщение от nixon232

...Код выше не работает...

Я делал так: создал два проекта, первый - форма и кнопка, при жиме на которую что-то отображается в лейбле, второй - тоже самое, а в обработке кнопки запускал этот код с параметрами FindWindowEx(FindWindow(nil, 'Form1'), 0, nil, 'Button1'): оно работает, причём и Post... и SendMessage(), здесь претензий нет, значит вам всё же нужно определиться, что представляет из себя то, что вы хотите нажать, именно здесь собака порылась, однозначно

[nixon232]

так я че-то с кликами и не понял, смог добиться клика только с физическим перемещением мыши

Код:

    SetCursorPos( pt.X, pt.Y );
        Mouse_Event( MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LeftDOWN, 0, 0, 0, 0 );

        Mouse_Event( MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 );

А тот же код с координатами не берет..

Код:

  Mouse_Event( MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LeftDOWN, pt.X, pt.Y, 0, 0 );

        Mouse_Event( MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, pt.X, pt.Y, 0, 0 );

Что может быть то?

[Alegun]

Mouse_event отрабатывает относительные координаты, поэтому предварительно ставить курсор куда надо посредством SetCursorPos() обязательно. Его можно сначало запомнить через GetCursorPos(), обработать клик, а потом вернуть обратно координаты указателя. Или тогда попробовать сделать так

Код:

...
// Вгоняем в поинт точку жима
pt.X := 300;
pt.Y := 300;

// Преобразуем её к координатам на экране 
pt := ClientToScreen(pt); 

// 65535 - это ширина экрана
pt.X := Round(pt.X * (65535 / Screen.Width)); 
pt.Y := Round(pt.Y * (65535 / Screen.Height)); 

// И лишь затем сам жим
Mouse_Event( MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LeftDOWN, pt.X, pt.Y, 0, 0 );

        Mouse_Event( MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, pt.X, pt.Y, 0, 0 );

drkb:01582