Ruta del ejecutable

Hola Carlos ... existen diversas formas ..

Con el API ...

DECLARE integer GetModuleFileName IN WIN32API ;
integer hinst,;
string @lpszFilename,;
integer @cbFileName

lcFilename=Space(256)
lnBytes%5

=GetModuleFileName(0,@lcFileName,@lnBytes)

lnBytes=AT(CHR(0),lcFileName)
IF lnBytes > 1
lcFileName=SUBSTR(lcFileName,1,lnBytes-1)
ELSE
lcFileName=""
ENDIF

?lcFileName
-

? _VFP.fullname


y Con la función Sys(16)
David Amador Tapia
Webmaster de "La Web de Davphantom"
www.davphantom.cjb.net
Cartagena. Colombia
Tel (5) 6621502 - 6581523

"Carlos Rene Acevedo" escribió en el mensaje
news:

Amigos, con que funcion puede devolver la ruta donde se encuentra el
ejecutable de mia aplicacion,

por ejemplo si yo tengo una aplicacion copiada en c:\windows y estando en

el

directorio c:\prueba digito miaplicacion.exe me corre ya que como esta
copiada en c:\windows el path hacia alli hace que corra, necesito que me
retorne c:\windows y no c:\prueba con curdir() me retorna c:\prueba,


muchas gracias

Hola, creo que la funcion home( ) te serviría
Saludos
"Carlos Rene Acevedo" escribió en el mensaje
news:

Amigos, con que funcion puede devolver la ruta donde se encuentra el
ejecutable de mia aplicacion,

por ejemplo si yo tengo una aplicacion copiada en c:\windows y estando en

el

directorio c:\prueba digito miaplicacion.exe me corre ya que como esta
copiada en c:\windows el path hacia alli hace que corra, necesito que me
retorne c:\windows y no c:\prueba con curdir() me retorna c:\prueba,


muchas gracias

muchas gracias David

Carlos, mira la función SYS(16)

lcFull = SYS(16,1)
lcPath = JUSTPATH(SYS(16,1))
lcFileName = JUSTFNAME(SYS(16,1))


Luis María Guayán
Vicente Trapani S.A.
Tucumán, Argentina
_____________________________________________
Microsoft Visual FoxPro MVP
SysOp de PortalFox - http://www.portalfox.com
_____________________________________________
Proteje al zorro, úsalo legalmente


"Carlos Rene Acevedo" wrote in message
news:

Amigos, con que funcion puede devolver la ruta donde se encuentra el
ejecutable de mia aplicacion,

por ejemplo si yo tengo una aplicacion copiada en c:\windows y estando en
el
directorio c:\prueba digito miaplicacion.exe me corre ya que como esta
copiada en c:\windows el path hacia alli hace que corra, necesito que me
retorne c:\windows y no c:\prueba con curdir() me retorna c:\prueba,


muchas gracias

YO USO ESTO POR SI TU APLICACION MENAJA VARIAS EMPRESAS

WDEFAUL=Sys(5)+Sys(2003)+"\"
WINFORME=Sys(5)+Sys(2003)+"\informe\"
WDATOS=Sys(5)+Sys(2003)+"\DATOS\0001\"


wdefaul = donde esta la aplicacion
winforme = donde estan los informes si los usas con informes modificables
wdatos = donde esta la aplicacion



"Luis María Guayán" escribió en el mensaje
news:#

Carlos, mira la función SYS(16)

lcFull = SYS(16,1)
lcPath = JUSTPATH(SYS(16,1))
lcFileName = JUSTFNAME(SYS(16,1))


Luis María Guayán
Vicente Trapani S.A.
Tucumán, Argentina
_____________________________________________
Microsoft Visual FoxPro MVP
SysOp de PortalFox - http://www.portalfox.com
_____________________________________________
Proteje al zorro, úsalo legalmente


"Carlos Rene Acevedo" wrote in message
news:
> Amigos, con que funcion puede devolver la ruta donde se encuentra el
> ejecutable de mia aplicacion,
>
> por ejemplo si yo tengo una aplicacion copiada en c:\windows y estando

en

> el
> directorio c:\prueba digito miaplicacion.exe me corre ya que como esta
> copiada en c:\windows el path hacia alli hace que corra, necesito que me
> retorne c:\windows y no c:\prueba con curdir() me retorna c:\prueba,
>
>
> muchas gracias
>
>