¿Se puede devolver resultado tras ejecución programa?

[nincillo]

Muy buenas.

Estoy lanzando un programa hecho en delphi desde un .vbs para enviar correos electrónicos.

Lo lanzo de esta manera:

Programa = PathAux & "\LanSmtp.exe"
Set WS = CreateObject("WScript.Shell")
MsgBox WS.Run(Programa & " " & Parametros, 1, True)

Mi intención era poder saber el resultado del envío desde el programa en que lo llamo.

O sea, si tengo manera en delphi de devolver un valor con el resultado de la ejecución del programa. NO si el programa se ejecutó o no, sino saber concretamente si el envío se pudo realizar o por contrario hubo algún tipo de error.

O no tengo más remedio que tirar de un fichero auxiliar tipo log donde almacenar el resultado.

Ahora mismo siempre me devuelve 0, ya que el programa se ejecuta. Pero no me entero si hubo o no error en la entrega.


Gracias y un saludo.

[[ElDioni]]

¿Y el programa LanSmtp.exe que es?, ¿un programa hecho por ti?.

Saludos.

[Young]

Hola, en el programa tienes que poner el valor de retorno en la variable ExitCode.

Saludos.

[nincillo]

Empezado por Young

Hola, en el programa tienes que poner el valor de retorno en la variable ExitCode.

Saludos.

Lo intento... Muchas gracias.

[nincillo]

Empezado por ElDioni

¿Y el programa LanSmtp.exe que es?, ¿un programa hecho por ti?.

Saludos.

Si, si. Si con el ExitCode que me indicó el compañero, voy a intentar que me devuelva el resultado.

Muchas gracias a los dos.

[nincillo]

Empezado por Young

Hola, en el programa tienes que poner el valor de retorno en la variable ExitCode.

Saludos.

Funcionó perfectamente.

Una pena que solo se puedan devolver valores numéricos.