como saber si el programa se esta ejecutando ya¿

[cplus]

como saber si el programa se esta ejecutando ya¿

ahora estoy usando un txt donde pongo 1 o 0, pero no me gusta nada

alguien sabe algo mejor.

[ReViJa]

Echa un vistazo a:

Código:

App.PrevInstance

Saludos.

[cplus]

gracias, al final hice esto, lo dejo aqui para to diox

Código PHP:

  Private Sub MataProceso()
 Dim ListaProcesos As Object
 Dim Wmi As Object
 Dim ProcesoACerrar As Object
 Set Wmi = GetObject("winmgmts:")
 Set ListaProcesos = Wmi.InstancesOf("win32_process")
 For Each ProcesoACerrar In ListaProcesos
  If ProcesoACerrar.Name = "xxxxxxx" Then
   List1.AddItem (ProcesoACerrar.Name)
   ProcesoACerrar.Terminate
   Exit Sub
  End If
 Next
     
End Sub

Private Sub Form_Load()
Call MataProceso
End Sub 
   

[c_keeper]

Qué es Flory KYNG ? xD

Gracias por el ejemplo

Saludos.

[cplus]

no puedo decir aqui lo que es, pero lleva flores para poner en tu jardin, y no necesita regar, lleva 2 aspersores con riego por goteo.

[c_keeper]

ummmmmmmmm O_O!

[Manu_Leon]

dios, en la faq vine un ejemplo mucho mas sencillo:

if app.previnstance <>0 then
msgbox "El programa ya se esta ejecutando."
End
End if

algo asi creo que era.

[cplus]

juas que tonto que soy jajajja, no lo vi, y eso q uso las faq siempre

[c_keeper]

Pero............. no sé, yo no veo que ambos códigos hagan lo mismo.. o_0 xD