Page 1 of 1
Saber el nombre del exe que estas ejecutanto
Posted: Wed Feb 28, 2007 8:10 am
by 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
Posted: Wed Feb 28, 2007 8:15 am
by Antonio Linares
GetModuleFileName( GetInstance() )
Posted: Wed Feb 28, 2007 8:17 am
by Andrés González
Mas rapido imposible y mira que he revisado las chm para ver si encontraba algo. Gracias nuevamente Antonio.
Posted: Wed Feb 28, 2007 8:35 am
by 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
Posted: Thu Mar 01, 2007 6:36 am
by 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
::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"
Posted: Thu Mar 01, 2007 8:08 am
by 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 ?
Posted: Fri Mar 02, 2007 7:45 pm
by 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.