День добрый, требуется ваша помощь. Требуется послать клик на кнопку, но его нет. В чем проблема? Хендл находит верный
Код:
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 Менял на аналоги, но нет реакции.