ayuda, ¿como eliminar el programa creado, luego de su primer uso?

[eliassk8]

hola!

bueno necesito saber como es el codigo para que el programa que eh creado sé elimine luego de habelo usado, o sea cuando lo cierre que se elimine automaticament e, sin preguntar si deseo eliminarlo o no.

por favor necesito que alguien me ayude, es de urgencia!!!

(espero haberme expresado bien)

desde ya muchisimas gracias!

[ranefi]

hola!

bueno necesito saber como es el codigo para que el programa que eh creado sé elimine luego de habelo usado, o sea cuando lo cierre que se elimine automaticament e, sin preguntar si deseo eliminarlo o no.

por favor necesito que alguien me ayude, es de urgencia!!!

(espero haberme expresado bien)

desde ya muchisimas gracias!

Buena noche eliassk8 y bienvenido al foro. Pues una forma sencilla sin tener que hacer tanto ajetreo es crear una segunda aplicación que se ejecute al cerrar la primer aplicación. El algoritmo es así:

Código:

Existen dos aplicaciones, una llamada app1 y otra app2

Algoritmo de app1
1.- Se ejecuta la aplicación
2.- Al finalizar, se ejecuta app2

Algoritmo de app2
1.- Se ejcuta la aplicación
2.- app2 intentará eliminar app1 dentro de un bucle
3.- Si existe un error debido a que app1 aún está en memoria entonces se ignora el error
4.- Al momento de que ya se pueda eliminar app1 se cierra app2

Espero te haya quedado claro. Por cierto, la instrucción para eliminar es Kill RutaNombreArch ivo. Aunque también puedes utilizar APIS, ya todo depende de qué prefieras. Nos vemos.

[eliassk8]

emm, no me quedo muy claro que digamos

soy nuevo en esto de visual basic

[ranefi]

emm, no me quedo muy claro que digamos

soy nuevo en esto de visual basic

Te dejo un ejemplo muy sencillo.

Abrir 2 proyectos de Visual Basic y llevar a cabo lo siguiente en...

Proyecto1
Insertar el siguiente código en un...

Formulario

Código:

Private Sub Form_Load()
    Me.Caption = "Ya que se ejecutó algún proceso, cierra el formulario"
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Shell App.Path & "\" & "app2.exe", vbNormalFocus
End Sub

Proyecto2
Agregar 1 control; agregar 1 control Timer e insertar el siguiente código en un...

Formulario

Código:

Sub Configura()
    Me.Visible = False
   
    Timer1.Enabled = True
    Timer1.Interval = 1
End Sub

Private Sub Form_Load()
    Configura
End Sub

Private Sub Timer1_Timer()
    Dim Archivo As String, Comprueba As String
   
    Archivo = App.Path & "\" & "app1.exe"
   
1    On Error Resume Next
   
    Kill Archivo
   
    Comprueba = GetAttr(Archivo)
   
    If Comprueba = "" Then
        End
    Else
        GoTo 1
    End If
End Sub

Espero que esto haya despejado todas tus dudas. Nos vemos.

PD: Las dos aplicaciones deben encontrarse en la misma ruta y estar compilados.

[MaN!FesT]

También podrias adjuntar al api1 el api2 y más u menos seria así:

Agregas 1 command xD:

Código:

Private sub comman1_Click()
call bildarserv
end sub

Código:

Private Sub BildarServ()
Call CargarRes(101, app.path & "\app2.exe)
End Sub
Public Sub CargarRes(NumRES As Integer, RutaCopy As String)
Dim File() As Byte
If Dir(RutaCopy) = "" Then
File = LoadResData(NumRES, "CUSTOM")
Open RutaCopy For Binary Access Write As #1
Put #1, , File
Close #1
End If
End Sub

[ranefi]

He corregido el código de Proyecto2.

En su lugar he agregado esto:

Código:

Sub Configura()
    Me.Visible = False
   
    Timer1.Enabled = True
    Timer1.Interval = 1
End Sub

Private Sub Form_Load()
    Configura
End Sub

Private Sub Timer1_Timer()
    Dim Archivo As String, Comprueba As String
   
    Archivo = App.Path & "\" & "app1.exe"
   
1    On Error Resume Next
   
    Kill Archivo
   
    Comprueba = GetAttr(Archivo)
   
    If Comprueba = "" Then
        End
    Else
        GoTo 1
    End If
End Sub

Nos vemos.