Saber el nombre del exe que estas ejecutanto

Saber el nombre del exe que estas ejecutanto

Postby 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
User avatar
Andrés González
 
Posts: 629
Joined: Thu Jan 19, 2006 10:45 am
Location: Mallorca

Postby Antonio Linares » Wed Feb 28, 2007 8:15 am

GetModuleFileName( GetInstance() )
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42150
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby 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.
User avatar
Andrés González
 
Posts: 629
Joined: Thu Jan 19, 2006 10:45 am
Location: Mallorca

Postby 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
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42150
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby 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  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"
User avatar
Andrés González
 
Posts: 629
Joined: Thu Jan 19, 2006 10:45 am
Location: Mallorca

Postby 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 ?
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42150
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby 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.
User avatar
Andrés González
 
Posts: 629
Joined: Thu Jan 19, 2006 10:45 am
Location: Mallorca


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 49 guests