[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 Менял на аналоги, но нет реакции.