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:

procedure GetSpecificWindowCaption(const AList: TStrings; const SubWindowCaption: string);
  function GetAllWindows(hWnd: HWND; const AList: TStrings): Boolean; stdcall;
  var
    captionLength: Word;
    wndCaption: string;
  begin
    captionLength := GetWindowTextLength(hWnd);
    SetLength(wndCaption, captionLength);
    GetWindowText(hWnd, PChar(wndCaption), captionLength + 1);
    Alist.Add(wndCaption);
    result := true;
  end;
var
  tmp: TStringList;
  i: Integer;
begin
  if (AList <> nil) and (SubWindowCaption <> '') then
  begin
    tmp := TStringList.Create;
    try
      EnumWindows(@GetAllWindows, Integer(tmp));
      tmp.BeginUpdate;
      for i := 0 to tmp.Count - 1 do
        if Pos(UpperCase(SubWindowCaption), UpperCase(tmp[i])) <> 0 then
          AList.Add(tmp[i]);
      tmp.EndUpdate;
    finally
      tmp.Free;
    end;
  end;
end;					

1:

      EnumWindows(@GetAllWindows, NativeInt(tmp));					

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:

procedure GetSpecificWindowCaption(const AList: TStrings; const SubWindowCaption: string);
  function GetAllWindows(hWnd: HWND; const AList: TStrings): Boolean; stdcall;
  var
    captionLength: Integer;
    wndCaption: string;
  begin
    captionLength := GetWindowTextLength(hWnd);
    if captionLength > 0 then
    begin
      SetLength(wndCaption, captionLength);
      GetWindowText(hWnd, PChar(wndCaption), captionLength + 1);
      Alist.Add(wndCaption);
    end;
    result := true;
  end;
var
  tmp: TStringList;
  i: Integer;
begin
  if (AList <> nil) and (SubWindowCaption <> '') then
  begin
    tmp := TStringList.Create;
    try
      EnumWindows(@GetAllWindows, NativeInt(tmp));
      tmp.BeginUpdate;
      for i := 0 to tmp.Count - 1 do
        if Pos(UpperCase(SubWindowCaption), UpperCase(tmp[i])) <> 0 then
          AList.Add(tmp[i]);
      tmp.EndUpdate;
    finally
      tmp.Free;
    end;
  end;
end;					

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

procedure GetSpecificWindowCaption(const AList: TStrings; const SubWindowCaption: string);
  function GetAllWindows(hWnd: HWND; const AList: TStrings): Boolean; stdcall;
  var
    captionLength: Integer;
    wndCaption: string;
  begin
    captionLength := GetWindowTextLength(hWnd);
    if captionLength > 0 then
    begin
      SetLength(wndCaption, captionLength);
      GetWindowText(hWnd, PWideChar(wndCaption), captionLength + 1);
      Alist.Add(wndCaption);
    end;
Alist.SaveToFile('1.txt'); //<- Das mag er nicht!
    result := true;
  end;
//...					

1:
2:
3:
4:
5:

//...
    tmp := TStringList.Create;  //tmp wird hier ja eindeutig erzeugt, ...
    try
      EnumWindows(@GetAllWindows, NativeInt(tmp));  //... und dann an GetAllWindows übergeben!
//...					

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

procedure GetSpecificWindowCaption(const AList: TStrings; const SubWindowCaption: string);
var
  NextHandle: Hwnd;
  wndCaption: array[0..260] of char;
begin
  // Get the first window
  NextHandle := GetWindow(Application.Handle, GW_HWNDFIRST);
  while NextHandle > 0 do
  begin
    // retrieve its text
    GetWindowText(NextHandle, wndCaption, 255);

    if Pos(AnsiUpperCase(SubWindowCaption), AnsiUpperCase(wndCaption)) > 0 then
      AList.Add(wndCaption);

    // Get the next window
    NextHandle := GetWindow(NextHandle, GW_HWNDNEXT);
  end;
end;