Verificar si un puerto está abierto

[[egostar]]

Pues ya he visto tu programa, pero no creo que haya mucho que agregar, lo que yo quise fue hacer click en las columnas para ordenar las mismas, no lo tienes, pero en Torry's encontré como hacerlo, solo modifique una parte para que funcionara para todas las columnas.

esta es la modificación

Código Delphi [-]
 

// Cambie esto
if Column.Index = 0 then
    LvSortStyle := cssAlphaNum
  else
    LvSortStyle := cssNumeric;

 //Por esto
  case Column.Index of
     0,1,3,5,7 : LvSortStyle := cssAlphaNum;
     else LvSortStyle := cssNumeric;
  end;

Saludos.