Fenster Listen

[Sir K]

Hallo,
ich benutze den folgenden Code um mir in einer ListBOx alle aktiven Fenster anzeigen zu lassen...
der Code ist hier aus dem Forum und müsste eig funktionieren... nur ich bekomme beim Funktionsaufru die Meldung Inkompatibble Typen 'HWND' und 'Pointer'.

Kann mir da einer helfen?

Delphi-Quellcode:

function EnumWindowsProc (Wnd: HWND; LParam: LPARAM): BOOL; stdcall; 
var Bezeichnung  : Array[0..200] of Char; 
begin 
  if (IsWindowVisible(Wnd) or IsIconic(wnd)) and 
     ((GetWindowLong(Wnd, GWL_HWNDPARENT) = 0) or 
     (GetWindowLong(Wnd, GWL_HWNDPARENT) = GetDesktopWindow)) and 
     (GetWindowLong(Wnd, GWL_EXSTYLE) and WS_EX_TOOLWINDOW = 0) then begin 
      GetWindowText(Wnd, Bezeichnung, 256); 
    Form1.listbox1.Items.Add(Bezeichnung); 
  end; 
end; 


procedure TForm1.aktualisieren1Click(Sender: TObject); 
begin
ListBox1.Clear; 
EnumWindows(@EnumWindowsProc, 1); 
end;

[mr_emre_d]

Schau dir mal die HIlfe genauer an !!

Code:

Return Value

To continue enumeration, the callback function must return TRUE; to stop enumeration, it must return FALSE.

[himitsu]

Wo (in welcher Zeile) bekommst du denn diese Fehlermeldung?


PS:

Delphi-Quellcode:

var Bezeichnung  : Array[0..200] of Char;

GetWindowText(Wnd, Bezeichnung, 256);

Length(Bezeichnung) = 210
MaxLength für GetWindowText = 256

fällt dir da was auf?

[Sir K]

Zitat von himitsu:

Wo (in welcher Zeile) bekommst du denn diese Fehlermeldung?


PS:

Delphi-Quellcode:

var Bezeichnung  : Array[0..200] of Char;

GetWindowText(Wnd, Bezeichnung, 256);

Length(Bezeichnung) = 210
MaxLength für GetWindowText = 256

fällt dir da was auf?

beim Funktionsaufruf:
EnumWindows(@EnumWindowsProc, 1);

[Luckie]

Wo kommt denn die eins beim Funktionsaufruf her?

Guck dir das mal an: http://www.michael-puff.de/Developer...mWindows.shtml

[himitsu]

grad getestet und ich bekomm keine Fehlermeldung

und wie gesagt:

Delphi-Quellcode:

GetWindowText(Wnd, Bezeichnung, 201);
// bzw.
GetWindowText(Wnd, Bezeichnung, Length(Bezeichnung));

@Luckie: die "1" ist doch egal ... da er LParam eh nicht verwendet


[add]

Delphi-Quellcode:

function EnumWindowsProc (Wnd: HWND; LParam: LPARAM): BOOL; stdcall;
var Bezeichnung  : Array[0..200] of Char;
begin
  if (IsWindowVisible(Wnd) or IsIconic(wnd)) and
      ((GetWindowLong(Wnd, GWL_HWNDPARENT) = 0) or
      (GetWindowLong(Wnd, GWL_HWNDPARENT) = GetDesktopWindow)) and
      (GetWindowLong(Wnd, GWL_EXSTYLE) and WS_EX_TOOLWINDOW = 0) then begin
    GetWindowText(Wnd, Bezeichnung, Length(Bezeichnung));
    TListBox(LParam).Items.Add(Bezeichnung);
  end;
  Result := True;
end;


procedure TForm1.aktualisieren1Click(Sender: TObject);
begin
  ListBox1.Clear;
  EnumWindows(@EnumWindowsProc, LPARAM(ListBox1));
end;

[Sir K]

Zitat von Luckie:

Wo kommt denn die eins beim Funktionsaufruf her?

Guck dir das mal an: http://www.michael-puff.de/Developer...mWindows.shtml

Delphi-Quellcode:

type
  PMyEnumParam = ^TMyEnumParam;
  TMyEnumParam = record
    lb: TListbox;
  end;

Wie muss ich diesen abschnitt eintragen? wenn cih den einfach hinzufüge bekomm ich erst mal die meldungen:
-"Feld Form1.Form1 besitzt keine entsprechende Komponente. Soll d. Deklaration entfert werden?"
-"Die Methode Button1Click, auf die Button1Click verweist, existiert nicht soll der Verweis entfernt werden?"

bei verneinung kommen dann folgende compiler meldungen:

; oder : erwartet aber = gefunden
Published-Feld 'PMyEnumParam' ist weder vom Typ class noch interface
PMyEnumParam = ^TMyEnumParam; und das gleiche mit der nächsten Zeile..

[Sir K]

Zitat von himitsu:

grad getestet und ich bekomm keine Fehlermeldung

und wie gesagt:

Delphi-Quellcode:

GetWindowText(Wnd, Bezeichnung, 201);
// bzw.
GetWindowText(Wnd, Bezeichnung, Length(Bezeichnung));

@Luckie: die "1" ist doch egal ... da er LParam eh nicht verwendet


[add]

Delphi-Quellcode:

function EnumWindowsProc (Wnd: HWND; LParam: LPARAM): BOOL; stdcall;
var Bezeichnung  : Array[0..200] of Char;
begin
  if (IsWindowVisible(Wnd) or IsIconic(wnd)) and
      ((GetWindowLong(Wnd, GWL_HWNDPARENT) = 0) or
      (GetWindowLong(Wnd, GWL_HWNDPARENT) = GetDesktopWindow)) and
      (GetWindowLong(Wnd, GWL_EXSTYLE) and WS_EX_TOOLWINDOW = 0) then begin
    GetWindowText(Wnd, Bezeichnung, Length(Bezeichnung));
    TListBox(LParam).Items.Add(Bezeichnung);
  end;
end;


procedure TForm1.aktualisieren1Click(Sender: TObject);
begin
  ListBox1.Clear;
  EnumWindows(@EnumWindowsProc, LPARAM(ListBox1));
end;

habs mal enstprechend abgeändert aber es bleibt bei dem Fehler... also wenn du die Meldung nicht bekommst kann das ja nur heißen dass es an der delphi version liegt^^ welche hast du denn?

[himitsu]

in D7 und D2009 getestet

[mr_emre_d]

Ich werde natürlich wieder ignoriert ...