Hola,
Falta el "menos uno" Neftalí, so pena de enfrentarnos a un "Index out of bounds".
Código Delphi
[-]
var
i, len: integer;
begin
len := Screen.FormCount-1;
for i := 0 to len do begin
ShowMessage(Screen.Forms[i].Name);
end;
end;
Nótese que prefiero además almacenar la "longitud" del bucle en una variable, será por leer a
Francisco Charte.
