SendMessage(BSend, BM_CLICK, 0, 0); работает только если курсор находится над кнопкой

[Armorer]

В программе ищу хендл кнопки другого приложения. Потом отправляю сообщение

SendMessage(BSend, BM_CLICK, 0, 0);

Но кнопка нажимается только если курсор находится над ней.
Пробовал PostMessage.

Как решить проблему?

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

про кликанье тем много, смотрите сообщения WM_LBUTTONDOWN и WM_LBUTTONUP

[Armorer]

Спасибо, заработало при wm_LButtonDblClk. При WM_LBUTTONDOWN и WM_LBUTTONUP тоже зависит от того на кнопке ли мышь. Хотя я не понял почему BM_CLICK не работает.

[Stilet]

Может потому что Механизм обработки этого сообщения требует еще кое-каких условий?

[blinkapec]

Чем отличаются SendMessage от PostMessage? Я пробовал обе функции, но при эмуляции нажатий кнопок клавиатуры ничего не происходило... Видимо что-то не так делал, но хэндл нужного окна совпадал с тем что показывала WinSpy, да и окно было в фокусе (что кстати необязательно для этих функций?)

[BOBAH13]

Чем отличаются SendMessage от PostMessage?

Узнаем новые слова и информацию от MSDN

[davidoff_pk]

Добрый день.

Не стал открывать новую тему, лучше оживить эту. Возникла проблема. При запуске приложения с сетевого диска (добавить в доверенные не могу) появляется всем известное окно: "Не удается проверить издателя...". Оно мешает программному запуску приложения из под Delphi.

Нашел кусок кода, который получает дескриптор кнопки "Выполнить" в мешающем мне окошке. Но ни одна из констант (wm_LButtonDblClk, (WM_LBUTTONDOWN, WM_LBUTTONUP), BM_CLICK) отправке объекту сообщения не дожимают нужную кнопку. Ближе всего к цели wm_LButtonDblClk, она переводит ее в "запавший" режим при наведении курсора))

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

Может кто знает все таки, почему кнопка не нажимается? Ну или подскажите пожалуйста еще какие-нибудь пути решения проблемы, а то вот застрял на этой ерунде...

[davidoff_pk]

Тоска...

Может в коде кто какой косяк увидит:

function EnumChildProc(Wnd: hWnd; SL: TStrings): BOOL; stdcall;
var
  szFull: array[0..MAX_PATH] of Char; //Buffer for window caption
begin
  Result := Wnd <> 0;
  if Result then
  begin
    GetWindowText(Wnd, szFull, SizeOf(szFull)); // put window text in buffer
    if Pos(SL[0], StrPas(szFull)) > 0 then
      SL.AddObject(StrPas(szFull), TObject(Wnd)); // Add item to list
    EnumChildWindows(Wnd, @EnumChildProc, Longint(SL)); //Recurse into child windows
  end;
end;

function ClickButton(ParentWindow: Hwnd; ButtonCaption: string): Boolean;
var
  SL: TStringList;
  H:  hWnd;
begin
  SL := TStringList.Create;
  try
    SL.AddObject(ButtonCaption, nil); // First item in list is text to find
    EnumChildWindows(ParentWindow, @EnumChildProc, Longint(SL));
    H := 0;
    ShowMessage(SL.Text);
    case SL.Count of
      1: ShowMessage('Window text not found.');
      2: H := hWnd(SL.Objects[1]);
      else
        ShowMessage('Ambiguous text detected.');
    end;
  finally
    SL.Free;
  end;
  Result := H <> 0;
  if Result then
    PostMessage(H, wm_LButtonDblclk, 0, 0);

end;

procedure TForm1.Button1Click(Sender: TObject);
var AppHandle : Thandle;
begin
  AppHandle := FindWindow(nil, 'Открыть файл - предупреждение системы безопасности');
  ClickButton(AppHandle, PChar('полнить'));
end;

[dummy_user]

Подниму тему если не против...

Та же проблема что у davidoff_pk.

Есть кнопка, ничто её не может нажать. Она не нарисованная. Win 10, 64 бит.

[p51x]

Ну вы хоть скрин приведите или Spy++ инфу.