1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:

function FindWindowEx2(hParent: HWND; ChildClassName: string; ChildNr: Word): HWND;
var
   i: Word;
   hChild: HWND;
begin
   hChild := 0;
   Result := 0;
   Dec(ChildNr);
   for i := 0 to ChildNr do
      begin
         hChild := FindWindowEx(hParent, hChild, PChar(ChildClassName), nil);
         //showmessage(inttostr(hchild));
         if hChild = 0 then
         Break;
         Result := hChild;
      end;
end;


procedure upp_prog();
var
   i:integer;
begin
     //testwnd:= $00080652;
   wndMain :=  FindWindow(nil,'FUJITSU FLASH MCU Programmer');
   if wndMain <> 0 then SetForeGroundWindow(wndMain);
   //for i:=0 to 100 do begin
   if wndMain <> 0 then wndChild := FindWindowEx2(wndMain,'Button', 2);
   //sendmessage(wndchild,
   if wndChild <> 0 then  SendMessage(wndChild, BM_CLICK,0,0);
   //  end;

end;


procedure TForm1.Button1Click(Sender: TObject);
begin
//if ShellExecute(Handle, 'open', PChar('C:\Program Files (x86)\FUJITSU\FUJITSU FLASH MCU Programmer\FMC16LX\flash.exe'), nil, nil, SW_SHOW)> 32 then
upp_prog;
timer1.Enabled:= true;
//Pressbuttonxy(FindWindow(nil,'FUJITSU FLASH MCU Programmer'),266,40);
//ShellExecute(Handle, 'open', PChar('C:\Program Files (x86)\FUJITSU\FUJITSU FLASH MCU Programmer\FMC16LX\flash.exe'), nil, nil, SW_SHOW);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   wndMain :=  FindWindow(nil,'flash');
   //if wndMain <> 0 then SetForeGroundWindow(wndMain);
   //for i:=0 to 100 do begin
   if wndMain <> 0 then wndChild := FindWindowEx2(wndMain,'Button', 1);
   //sendmessage(wndchild,
   if wndChild <> 0 then  SendMessage(wndChild, BM_CLICK,0,0);
   timer1.Enabled:= false;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

  wndMain :=  FindWindow(nil,'DOWNLOAD');
  if wndMain <> 0 then
  begin
  showmessage('gefunden1');
    //wndchild:= GetDlgItem(wndMain, 32770);
    wndchild:=getmenu(wndmain);
    if wndchild <> 0 then
    GetMem(Buffer, 251);
    GetMenuString(wndchild, 1, Buffer, 250, MF_BYPOSITION);
    ShowMessage(StrPas(Buffer));
    FreeMem(Buffer);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

  hWin := FindWindow(nil, 'RS232');
  if hWin <> 0 then
  begin
  //gefunden
  showmessage('gefunden1');
  wndchild := FindWindowEX(hWin, 0, nil,'&Bits per Second');
  if wndchild <> 0 then
  begin
    showmessage('gefunden2');
    wndchild2 := FindWindowEX(wndchild, 0, 0,'9600');
    if wndchild2 <> 0 then
    begin
      showmessage('gefunden3');
    end;
  end;
  end;