Saber el nombre del exe que estas ejecutanto

[Andrés González]

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

[Antonio Linares]

GetModuleFileName( GetInstance() )

[Andrés González]

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

[Antonio Linares]

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]

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  Expand view  RUN

   ::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"

[Antonio Linares]

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]

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.