Hvordan oprettes en liste over vinduer

Function EnumWindowsProc (Wnd: HWND; lb: TListbox): BOOL; stdcall;
var
  caption: Array [0..128] of Char;
begin
  Result := True;
  if IsWindowVisible(Wnd) and ((GetWindowLong(Wnd, GWL_HWNDPARENT) = 0) or
      (HWND(GetWindowLong(Wnd, GWL_HWNDPARENT)) = GetDesktopWindow))
and
    { skip WS_EX_TOOLWINDOW windows }
    ((GetWindowLong(Wnd, GWL_EXSTYLE) and WS_EX_TOOLWINDOW) = 0)
  then begin
    SendMessage( Wnd, WM_GETTEXT, Sizeof( caption ),integer(@caption));
    lb.Items.AddObject( caption, TObject( Wnd ));
  end;
end;

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

Eller:

http://www.swissdelphicenter.ch/torry/showcode.php?id=485

Hej hejhej :-)

Jeg siger tusind tak for det meget hutige og meget præcise svar, det var lige det jeg havde brug for!

Tak for hjælpen!

//Oergaard