Saber el nombre del exe que estas ejecutanto

Andrés González · Post by **Andrés González** » Wed Feb 28, 2007 8:10 am

Existe alguna manera de saber el nombre del programa que estas ejecutando de forma autonoma. Me refiero si hay forma de que el programa te informe de cual es su nombre, a modo de ejemplo "fivewindemo.exe" y en el directorio donde se ha ejecutado. He buscado si existe alguna funcion GetExeName o GetPrgName y no he encontrado algo similar. Alguna idea.

Saludos

Post by **Antonio Linares** » Wed Feb 28, 2007 8:15 am

GetModuleFileName( GetInstance() )

Andrés González · Post by **Andrés González** » Wed Feb 28, 2007 8:17 am

Mas rapido imposible y mira que he revisado las chm para ver si encontraba algo. Gracias nuevamente Antonio.

Post by **Antonio Linares** » Wed Feb 28, 2007 8:35 am

Andrés,

El errorsys de FWH lo usa para mostrar el nombre del ejecutable

source\function\errsysw.prg

Esa información es propia del API de Windows, no de FWH

Andrés González · Post by **Andrés González** » Thu Mar 01, 2007 6:36 am

Gracias Antonio, como me gusto la idea de la nueva numeracion de las versiones, crei oportuno implementarlo directamente sin tener que anotarlo cada vez que realizo una nueva compilacion del programa. A modo de ejemplo hice esto:

Code: Select all

   ::cVersion  := " Versión: " +   Substr(dtoc(Directory(GetModuleFileName( GetInstance() ) )[1,3]),9,2)+"/"+Substr(dtoc(Directory(GetModuleFileName( GetInstance() ) )[1,3]),4,2)

Que sencillamente me coge los dos digitos del año y los dos del mes, Directori()[1,3] me devuelve la fecha del ejecutable. Asi me muestra "Version: 07/02"

Post by **Antonio Linares** » Thu Mar 01, 2007 8:08 am

Andrés,

Es buena idea, pero si le cambian la fecha al EXE (por ejemplo al copiarlo a otro ordenador) entonces dará una fecha errónea, no ?

Andrés González · Post by **Andrés González** » Fri Mar 02, 2007 7:45 pm

Si Antonio, como siempre tienes razon pero en mi caso no tiene sentido si cambian el programa de entorno sencillamente deja de funcionar, mas que por seguridad es para mi control. Tengo muchos programas funcionando pero como puedes ver me falta un conocimiento profundo de fivewin, bueno en eso estoy, soy de los que siempre he creido en ti desde las primeras versiones de fivewin aun debo conservar las primeras versiones en disquete, hace mucho mucho tiempo.

Gracias por tu ayuda.