Algunos de vosotros mostráis interés en saber que aplicaciones se están ejecutando en un momento determinado, os adjunto un sencillo fragmento de código en forma de idea y como introducción a como saber y controlar de la ejecución de otras aplicaciones.

En este ejemplo, eliminaremos todas las aplicaciones con el mismo nombre que la nuestra y que no sea la nuestra… la debilidad se encuentra en que podremos engañarlo ejecutando una instancia de la misma con el nombre cambiado ya que ‘process’ no sabrá que se trata de la misma aplicación. Pero en fin… para evitar múltiples instancias en ejecución de la misma aplicación, disponemos de mecanismos mucho más adecuados.

NOTA: Esto es un ejemplo sin malicia!… esta claro que a nadie en su sano juicio va a empezar a ‘KILEAR’ (de Kill) aplicaciones a lo Bruto o ¿al menos eso creo?, por lo tanto solo entender que disponemos de un potente espacio para interactuar con los procesos y esto es lo interesante.

Dim ProcesosLocales As Process() = Process.GetProcessesByName(«ElNombreDeMiAplicacion»)
‘ Saber si existe mas de una aplicacion
‘ con el mismo nombre en ejecucion
If ProcesosLocales.Length > 1 Then
   ‘Aviso
   MessageBox.Show(«Solo se puede ejecutar UNO con el mismo nombre!»)
   ‘Obtener las referencias de mi proceso (para no autoeliminarme)
   Dim yo As Process = Process.GetCurrentProcess
   ‘Eliminar todos los procesos con el mismo nombre pero diferente Id
   For Each tu As Process In ProcesosLocales
       If yo.Id <> tu.Id Then tu.Kill()
   Next
End If

Saludos,
Pep Lluis

 PD. La semana que viene… ¿existira algun antidoto para que evitar el KILL de un extraño?