Directorio actual

[roman]

Bueno, pues la ayuda de Delphi sólo indica:

On Windows, ParamStr(0) returns the path and file name of the executing program

y en la prueba que hago devuelve, en efecto, la ruta completa.

// Saludos

[marcoszorrilla]

ParmStr(0):C:\ARCHIVOS DE PROGRAMA\BORLAND\DELPHI5\BIN\PROJECT1.EXE

ExtractFilePath(ExpandFileName(ParamStr(0))):;
C:\ARCHIVOS DE PROGRAMA\BORLAND\DELPHI5\BIN\

Creo que si lo que se pide es únicamente la ruta completa y no el nombre del ejecutable, hay que utilizar lo propuesto por JachGuate.


Un Saludo.

[roman]

Empezado por marcoszorrilla

Creo que si lo que se pide es únicamente la ruta completa y no el nombre del ejecutable, hay que utilizar lo propuesto por JachGuate.

Totalmente cierto Marcos, a mí se me había pasado lo del nombre del archivo. La duda es sí es necesario ExpandFileName o basta ExtractFilePath.

// Saludos

[__cadetill]

Empezado por roman

Totalmente cierto Marcos, a mí se me había pasado lo del nombre del archivo. La duda es sí es necesario ExpandFileName o basta ExtractFilePath.

// Saludos

Según lo mostrado por Marcos, con ExtractFilePath sería suficiente

[jachguate]

He realizado pruebas en delphi4 y delphi7, y en los casos probados, el ExpandFileName no es necesario.

Los casos probados son:

• Ejecutar directamente el programa (via doble click en el exe o desde el ide)
• invocar al ejecutable via path (es decir, estando en c:\windows, p. ej., e invocarlo en c:\ solamente con el nombre del exe)
• Ejecutar el programa con un acceso directo y ruta de inicio diferente a la del ejecutable

Hay algun caso que se me haya escapado?

[guillotmarc]

¿ En que S.O. lo has probado, seria interesante probarlo en un Windows 95/98 ?

Saludos.

[marcoszorrilla]

Con Windows 98 funciona correctamente lo siguiente:

ShowMessage(ExtractFilePath(ParamStr(0)));

Resultado:
C:\ARCHIVOS DE PROGRAMA\BORLAND\DELPHI5\BIN\


Un Saludo.