delphi 获取活动窗口名?
delphi 开发的系统，运行后，怎么样可以把所有活动的窗口名添加到ComboBox1，不能重复？

[解决办法]

Delphi(Pascal) code

procedure TForm1.Button1Click(Sender: TObject);var  i : Integer;  cmp : TComponent;begin  for i := 0 to Application.ComponentCount - 1 do  begin    cmp := Application.Components[i];    if cmp is TForm then    begin      if not TForm(cmp).Visible then      begin        ShowMessage(TForm(cmp).Name);      end;    end;  end;  for i := 0 to Screen.FormCount - 1 do  begin    if not Screen.Forms[i].Visible then    begin      ShowMessage(Screen.Forms[i].Name);    end;  end;end;