Patrón Singleton

[BassXpander]

Saludos !!

Tengo una aplicación windows y necesito que se genere únicamente una sola instancia. Sé que con el Patrón Singleton y mutex puedo hacerlo, pero la información que encuentro indica como realizarlo con dos formularios, es decir, el formulario A abre a Formulario B (lo he probado y funciona). Sin embargo, yo no tengo dos formularios, unicamente tengo uno y no tengo idea de como puedo adaptar el código de singleton a un solo formulario.

Lo que pretendo lograr es que al ejecutarse la aplicación verifique si ya hay una instancia ejecutandose, si no la hay, que se cree una nueva instancia.

PD: Ya revise las FAQS, y hay info para Formularios MDI y no MDI, sólo que en este ultimo explican el caso para dos formularios.


Alguien puede ayudarme?

Gracias

[RicaJ0625]

Esto te puede servir lo encontre en este sitio:
http://www.elguille.info/colabora/pu...evinstance.htm

Código:

 
'Agregar todo el código en el formulario principal.

Shared Sub Main()
    'Usamos la clase Process para sacar información de procesos en ejecución.
    'Definimos una matríz de procesos
    Dim MisProcesos() As Process

    'Asignamos a la matríz todos los procesos en ejecución 
    'que tengan por nombre el de nuestra aplicación.
    MisProcesos = Process.GetProcessesByName(Application.ProductName.ToString)

    'MisProcesos.Length nunca es cero, porque
    'este mismo proceso cuenta;
    'por eso miramos si solo hay una coincidencia.

    If MisProcesos.Length = 1 Then
        'Ejecutamos nuestra aplicación
        Application.Run(New Form1())

    Else 'Hay más de un proceso ejecutandose
        'MessageBox.Show("Ya se está ejecutando una instancia") 
        Application.Exit()
    End If

End Sub 

[BassXpander]

Gracias por la respuesta RicaJ0625 !!

Me funcionó el código. Solo tengo una duda, he observado que cuando la aplicación obtiene la lista de procesos, el uso del cpu se incrementa notablemente. Esto es normal?

Gracias