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:

procedure TForm1.Button2Click(Sender: TObject);

begin
  JvLabel2.Caption := Status3;
  JvLabel2.Refresh;
  if IsExeRunning(Anwendung1) then
    begin
      wnd1 := FindWindow('#32770', Anwendung1);                            // hier wird das Handle vom Hauptfenster ermittelt
      wnd3 := FindWindowEx2(wnd1, 'Static', 3);
      sendmessage(wnd3, WM_GETTEXT, 1024, Integer(@buffer));
      if buffer <> 'Getrennt' then
        begin
          ClickButton(wnd2);
          Sleep(1000);
        end;
      wnd4 := FindWindowEx2(wnd1, 'Button', 6);
      ClickButton(wnd4);                                                   // hier wird der Exit Button gegrückt
                                                                           // und das Programm bleibt hängen!!!

      wnd6 := FindWindow('#32770', Anwendung);                             // hier sollte das Handle des Dialogfenstern ermittelt werden
                                                                           // es besitzt die gleiche Klasse und Bezeichnung, wie das
                                                                           // Hauptfenster
      wnd7 := FindWindowEx2(wnd6, 'Button', 1);                            // hier soll das Handle des OK Button ermittelt werden
      ClickButton(wnd7);                                                   // hier soll das Dialogfenster geschlossen werden
      //KillTask(Anwendung1);                                              // bisheriges beenden mit KillTask
    end;
  if IsExeRunning(Anwendung2) then
    begin
      KillTask(Anwendung2);
    end;
  JvLabel2.Caption := Status4;
  JvLabel2.Refresh;
end;