{ Eliminamos las que tengan 0 píxeles de anchura o de altura }
DwmGetWindowAttribute(hw,DWMWA_EXTENDED_FRAME_BOUNDS,@rect,sizeof(rect));
nula:=(rect.Bottom-rect.Top=0) or (rect.Right-rect.Left=0);
Getwindowtext(hw, titulo, 255);
final:=pos('Microsoft Text',titulo)=1; { Marca la ventana final }
if IsWindowVisible(hW) and { que sea visible }
((getwindow(hw,GW_OWNER)=0) or form1.cb_hijas.checked) and { Que sea padre o estén habilitadas las hijas }
(GetWindowTextLength(hw)>0) and { que el título no sea nulo }
(pos('RedimensionaVentana',titulo)<>1) and { Elimina esta aplicación }
not nula and { Que no tenga dimensiones nulas (ni altura ni anchura) }
not final then { Elimina las ventanas iniciales del sistema operativo. (Esto es arbitrario) }
begin
inc(contvent);
form1.listbox1.Items.Add(inttostr(contvent)+': '+inttostr(hW)+' --- '+titulo);
end;