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 :mrgreen:

[Sushibb]

Nur macht der jetzt immer nur den aktiven Fenstertitel... :cry:

[Luckie]

Hätte mich auch gewundert wenn das funktioniert. Die Methode einer Klasse schleppt immer noch den unsichtbaren Self-Parameter mit und damit stimmt die Parameterliste für die API Funktion nicht mehr. Aber ich verstehe dein Problem nicht. Hier im Forum und auf meiner Seite http://www.luckie-online.de/Ablage/D...umWindows.html gibt es genug funktionierende Beispiele.

[Sushibb]

Ja mit der Vorlage von dir hab ich vorhin schonmal rumgebastelt. Aber das wollte nicht... Jetzt hab ichs nochmal genutzt und jetzt gehts. Keine Ahnung wieso, aber es geht, das reicht... Knobeln werd ich da später drüber. THX so far...