获得窗体列表

Question

如上图，这是用“Windows优化大师”的“进程管理器”察看“计算器”的窗体列表的效果，这样的功能D7里该怎么实现啊？

Answer 1

列举窗体，再具体的可以自己修改
function   EnumWndProc(AWnd:   HWND;   AlParam:   LPARAM):Boolean;stdcall;
  var
    WndCaption:   array[0..254]   of   Char;
  begin
    GetWindowText(AWnd,   @WndCaption,   254);
  if   IsWindowVisible(awnd)   then
  begin
    if   WndCaption[0]<>chr(0)   then
        Form1.ListBox1.Items.Add(Format('[句柄]'+'%d   =     '+'[窗体]'+'%s',[AWnd,StrPas(WndCaption)]));
  end;
    Result :=   True;
  end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  EnumWindows(@EnumWndProc,0);
end;