FindWindow: Alle Handles filtern

[gizzy]

Hallöchen,

und zwar suche ich ALLE offenen Handles mit dem Gleichen Fenstertitel! Bei VB gibt es den Parameter "NextWindow" oder so, den man mit übergben kann, dann wird das nächste Handle von dem Fenster mit den bestimmten Titel genommen.

Hier mal um den Arbeitsplatz zu finden, sind aber jetzt mehrere davon offen, möchte ich jedes einzelne Handle haben.

Für 2??

Delphi-Quellcode:

var
handles: Array[1..20] of Integer;
i: IntegeR;
begin
For i:=1 to 20 do begin
  handles[i]:= 0;
end;

handles[1]:= FindWindow(nil, 'Arbeitsplatz');
//.. Da ich keine Hilfe für den Syntax von FindWindow gefunden habe, kann es ja sein, das "nil" falsch ist oder ertwas anderes
//   Eingesetzt werden kann

For i:=1 to 20 do begin
   listbox1.Items.Add(InttoStr(handles[i]));
end;

Wäre nett wenn mir da jemand weiterhelfen könnte

[DeddyH]

Ich denke, EnumWindows sollte Dir weiterhelfen.

[Apollonius]

Die Hilfe zu den API-Funktionen findest du in der [msdn:f1a4d706a3="FindWindow"]MSDN[/msdn:f1a4d706a3]. Als Lösung für dein Problem würde ich FindWindowEx vorschlagen.

[gizzy]

Danke soweit.
Habe folgende Funktion gefunden, leider verstehe ich sie nicht. Vielleicht könnte mir jemand ein Anwendungs Beispiel zeigen :)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
EnumWindows(@EnumWinProc, 0);  //Fehler: Variable erforderlich
end;

function TForm1.EnumWinProc(Wnd: THandle; LParam: LongInt): Boolean; stdcall;
var
 WinCaption : string;
 Len: integer;
begin
 Result := True;
 Len := GetWindowTextLength(Wnd);
 SetLength(WinCaption, Len);
 GetWindowText(Wnd, PChar(WinCaption), Len+1);
 if Trim(WinCaption) <> '' then
   Form1.Listbox1.Items.Add(Format('%.6x : %s', [Wnd, WinCaption]));
end;

Quelle

Viele Grüße

[Apollonius]

Du darfst nicht einfach aus Funktionen Methoden machen!

[gizzy]

Bei diesem Tipp muss man ja auch das Handle mit geben, ka was das soll.
Der taugt anscheinend nichts.
Ich komm nicht weiter :(.
Könntet ihr mir ein Beispiel Code dazu geben, wie ich das am besten um setzte?

Viele Grüße und Danke im voraus

[bitsetter]

Zitat:

Zitat von Apollonius

Du darfst nicht einfach aus Funktionen Methoden machen!

Genau, du brauchst echt nur noch den Code per Copy und Paste hinzufügen. :roll:

Delphi-Quellcode:

function EnumWinProc(Wnd: THandle; Lbx: TListBox): Boolean; stdcall;
var
  WinCaption : string;
  Len: integer;
begin
  Result := True;
  Len := GetWindowTextLength(Wnd);
  SetLength(WinCaption, Len);
  GetWindowText(Wnd, PChar(WinCaption), Len + 1);
  if Trim(WinCaption) <> '' then
    Lbx.Items.Add(Format('%.6x : %s', [Wnd, WinCaption]));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  EnumWindows(@EnumWinProc, DWord(ListBox1));
end;

[gizzy]

Hi, danke schonmal für eure Mühen.
Da immer noch der Fehler Variable erforderlich auftaucht und ich anscheinend sowas wie eine eine "Funktions-Variable" erstellen muss, frage ich mich ob das überhaubt der Richtige Weg zur Lösung meines Problems ist. Ich suche ja nicht "alle" Fenster sondern nur diese die "Arbeitsplatz" oder sonst wie heißen.
In VB geht das mit:

Zitat:

nhWnd = GetWindow(nhWnd, GW_HWNDNEXT)
Loop

Denke ich mal!
Weiß wer etwas, was mir alle Handles zu einen Fenstertitel liefert?

[API]

Anbei ein Demo (code von bitsetter)

[gizzy]

Zitat:

Zitat von API

Anbei ein Demo (code von bitsetter)

Danke! Ich frag mich nur, obwohl ich exakt dies hatte, bei mir dieser Variablen Fehler kam! :gruebel:
Habe jetzt den Filter innerhalb des EnumWindows geändert. Sieht folgendermaßen aus und funktioniert auch Prima

Delphi-Quellcode:

if Trim(WinCaption) = 'Arbeitsplatz' then
    Lbx.Items.Add(InttoStr(wnd));

Dank schön