Fenster anhand eines Teils des "Namens" finden?

[Sushibb]

Code:

function TForm1.EnumWinProc(Wnd: hWnd): Boolean; StdCall;
 var
  WinCaption : Pchar;
  WinHandle  : string;
 begin
   GetMem(WinCaption, 255);
   try
     GetWindowText(Wnd, WinCaption, 255);
     Result := True;
     if (Trim(WinCaption) <> '') then
     begin
       WinHandle := IntToHex(Wnd, 6);
       Form1.ListBox1.Items.add(WinHandle + ' : ' + WinCaption);
     end;
   finally
    FreeMem(WinCaption, 255);
   end;
 end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  EnumWindows(@EnumWinProc, Application.Handle);
end;

Auch so tut erst nich... kommt bei mir aufs gleiche raus

Hab ne Lösungsansatz von jemandem bekommen:

Code:

procedure TForm1.Button5Click(Sender: TObject);
begin
  EnumWindows(@[b]TForm1.[/b]EnumWinProc, Application.Handle);
end;[/

Jetzt funzt es... Danke erstmal, mal liest sich sicherlich mal wieder