SendMessage и WinApi

var
  h,b1: HWND;
 
begin
  h := findwindow(nil, 'BioSmart-Studio_v4.0');
  b1 :=FindWindowEx(h, 0, 0,'Готово');
  if b1 <> 0 then
  ShowMessage('кнопка найдена') ;
    end;

function myEnumFunc(hChild : HWND; L : LPARAM) : BOOL; stdcall;
var
   sClass : array[0 .. 255] of Char;
   sCaption : array[0 .. 255] of Char;
begin
   GetClassName(hChild, @sClass, 255);
   if StrPas(sClass) = 'Button' then
   begin
      SendMessage(hChild, WM_GETTEXT, 255, Integer(@sCaption));
      Form1.Memo2.Lines.Add(Format('Class = %s, Caption = %s, Handle = %d',
         [sClass, sCaption, hChild]));
   end;
   Result := True;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  h,b1: HWND;
begin
 
  h := findwindow(nil, 'BioSmart-Studio_v4.0');
EnumChildWindows(h, @MyEnumFunc, 0);
 b1 :=FindWindowEx(h, 0, 'Button','&Готово');
  SendMessage(b1,bm_Click,0,0);
      end;

procedure TForm1.Button1Click(Sender: TObject);
var
  h,b1: HWND;
begin
 
  h := findwindow(nil, 'BioSmart-Studio_v4.0');
EnumChildWindows(h, @MyEnumFunc, 0);
 b1 :=FindWindowEx(h, 0, 'Button','&Готово');
  SendMessage(b1,bm_Click,0,0);
 SendMessage(b1,bm_Click,0,0);
      end;
 
procedure TForm1.Button2Click(Sender: TObject);
var h2,b2: HWND;
begin
 
      h2 := findwindow(nil, 'Выбор языка');
EnumChildWindows(h2, @MyEnumFunc, 0);
 b2 :=FindWindowEx(h2, 0, 'WindowsForms10.BUTTON.app.0.33c0d9d','&Ок');
  SendMessage(b2,bm_Click,0,0);
  SendMessage(b2,bm_Click,0,0);
end;

b2 :=FindWindowEx(h, 0, 'WindowsForms10.Window.8.app.0.33c0d9d','Выбор языка');

 b2 :=FindWindowEx(h, 0, 'WindowsForms10.BUTTON.app.0.33c0d9d','&Ок);