Mensajes

@ Krackwatts
Podes parar de postear tonterias por favor?

@LeandroA
Yo uso el Resource Builder que soporta 32 bits y  hasta los nuevos en formato PNG

Si, se puede hacer con mutex, archivo, memoria, registro, dde, linea de comandos o cualquier cosa que te permita crear un flag, tambien podrias ver que proceso lo ejecuto o usar CreateProcess y pasarle los flags o mil cosas mas,  gracias por el dato.

Se puede hacer asi sin necesidad de usar gosub, con respecto al end no es recomendado para nada, aparte se supone que esta es la primer funcion asi que no tendria que haber nada cargado exepto el form de inicio.

Con respecto a las variables de entorno, son locales no globales

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
    If App.PrevInstance and _
         Not Environ$("RESTARTED") = "1" Then
            Call Unload(Me)
    Else
        '// Your Code Here
    End If

End Sub

Podrias hacer algo asi

Código (vb) [Seleccionar] Expandir


Option Explicit

Private Declare Function SetEnvironmentVariable Lib "kernel32" Alias "SetEnvironmentVariableA" (ByVal lpName As String, ByVal lpValue As String) As Long

Private Sub Command1_Click()
    Call SetEnvironmentVariable("RESTARTED", "1")
    Call Shell(App.Path & "\" & App.EXEName & ".exe", vbNormalFocus)
    Call Unload(Me)
End Sub

Private Sub Form_Load()
    If App.PrevInstance Then
        If Not Environ$("RESTARTED") = "1" Then
            Gosub Quit:
        End If
    End If

    '// Your Code Here

    Exit Sub

Quit:
    Call Unload(Me)
End Sub



Podes usar environ$("VARIABLE") o tambien asi environ(1) por ejemplo

Lo haces con APIs

Bueno aca les dejo una mini clase para crear controles RichTextBox en tiempo de ejecucion, es muy simple pero viene ideal para EULA, Readme o Help files.

http://www.uploadsourcecode.com.ar/d/IxpzMQ8JDQDdsy6njvxsLYf70SivC04o

Un poco de feedback

1)

If UCase$(Right$(sPath, Len("VB6.EXE"))) = "VB6.EXE" Then Exit Function

podrias cambiarlo por If  App.LogMode=0 then exit function <- Edite aca

2)

el buffer de GetModuleFileName de 128 me parece chico tendria que ser
Private Const MAX_PATH As Long = 260 o ver que la funcion no retorne ERROR_INSUFFICIENT_BUFFER en cuyo caso tendras que aumentar el tamaño buffer

3)

Agregar nombre y descripcion en el manifest

4)

Soporte para Vista y sus diferentes manifest

5)
Hay una error grande en el codigo, fijate que si no existe el manifest intenta crear uno si es xp, sino pasa de largo y reinicia la aplicacion de igual manera... y lo vuelve a hacer infinitamente

http://www.physnet.uni-hamburg.de/physnet/vnc/winvnc.html#3

JIJI simple y al pie seba! =)