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

procedure TForm1.Button1Click(Sender: TObject);
var s : string;
wnd : Hwnd;
i : integer;
begin
  wnd := FindWindow('Notepad', nil);
  if wnd <> 0 then
  begin
    wnd := FindWindowEx(Form1.Handle, 0, '#32770', nil);
    wnd := FindWindowEx(Form1.Handle, 0, 'Edit', '1');
    s := 'Hello';
    for i := 1 to Length(s) do
    SendMessage(wnd, WM_CHAR, Word(s[i]), 0);
  end;
end;                    

1:
2:
3:
4:
5:
6:

var
  hwndFensterMsg: HWND;
begin
  hwndFensterMsg := FindWindow(nil, 'Message');
  ShowMessage(IntToStr(hwndFensterMsg));
end;                    

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:

function FindControlByNumber(hApp: HWND; ControlClassName: string; ControlNr: Word = 1): HWND;
var
  i: Word;
  hControl: HWND;
begin
  Result := 0;
  if IsWindow(hApp) then
  begin
    Dec(ControlNr);
    hControl := 0;
    for i := 0 to ControlNr do
    begin
      hControl := FindWindowEx(hApp, hControl, PChar(ControlClassName), nil);
      if hControl = 0 then
        Exit;
    end;
  end;
  Result := hControl;
end;


// Beispiel: in einem Fenster nach dem 2. TTabControl suchen
// und verstecken.

procedure TForm1.Button1Click(Sender: TObject);
var
  hApp, hControl: HWND;
begin
  hApp := FindWindow('Klassenname_eines_Fensters','Evtl_Titel_eines_Fensters_oder_NIL');
  hApp := Handle;
  hControl := FindControlByNumber(hApp, 'TTabControl', 2);
  ShowWindow(hControl, SW_HIDE);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TForm1.BitBtn1Click(Sender: TObject);
var Fenster: HWND;
    result : integer;
begin
  Fenster := FindWindow('TFormEDEvent', nil);
  ShowMessage(IntToStr(Fenster));

  if Fenster <> 0 then
  begin
    Fenster := FindWindowEx(Fenster, 0, 'TTabControl', nil);
    ShowMessage(IntToStr(Fenster));
    Fenster := FindWindowEx(Fenster, 0, 'TTabControl', nil);
    ShowMessage(IntToStr(Fenster));
    Fenster := FindControlByNumber(Fenster, 'TFakeGroupBox', 2);
    ShowMessage(IntToStr(Fenster));
    Fenster := FindWindowEx(Fenster, 0, 'TScriptListBox', nil); // <-----
    Fenster := Handle;
    Result := SendMessage(Fenster, LB_GETCOUNT, 0, 0);
    ShowMessage(IntToStr(Fenster));
    ShowMessage(IntToStr(result));
  end;