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;