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

procedure autosize;
var
  h : array [0..4] of hWnd;
  i, nr : integer;
  g : array [0..4] of hWnd;
begin
  nr:=0;
  for i:=0 to 4 do   
  begin
    h[i] := FindWindowByTitle('(editor)');
    if (h[i] <> 0) and ((i<>0) and (h[i]<>h[i-1]) or (i=0)) then
    begin
      g[nr]:=h[i];
      inc(nr);
    end
    else break; //provisorisch, wird geändert wenns klappt
  end;
  showmessage(inttostr(nr));
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:

procedure findsimilarwindows;
var elements, i, position, nr : integer;
    line, dummy: string;
    title: array [0..10] of string;
    windows : array [0..10] of hWnd;
begin
  nr:=0;
  EnumWindows(@EnumWindowsProc, Integer(main.Listbox1));
  elements := main.listbox1.Count;
  for i:=0 to elements-1 do
  begin
    line:=main.listbox1.items[i];
    if pos('(partname)', line)>0 then
    begin
      dummy:=line;
      Delete(dummy,length(dummy) - 7,8);
      title[nr]:=dummy;
      inc(nr);
    end;
  end;
  if nr>0 then
  begin
    main.history.Lines.Add(inttostr(nr)+' Found');
    for i:=0 to nr do
    begin
      windows[i]:=FindWindowByTitle(title[i]);
      //ShowWindow(windows[i], SW_MAXIMIZE);
    end;
  end
  else
    main.history.Lines.Add('Didnt find anything');
end;