Actualizar ruta de aplicacion

[JuanOrtega]

Hola tengo una aplicacion consola que muevo de carpeta para despues mostrar la ruta actual del archivo pero el problema es que en el mensaje no se muestra la ruta actual (muestra el anterior) a pesar de que el archivo se movio correctamente.

El codigo de la aplicacion consola es este :

Código Delphi [-]
  ruta := 'c:/xampp/'+'/'+ExtractFileName(paramstr(0));
  MoveFile(Pchar(paramstr(0)), Pchar(ruta));
  MessageBox(0,Pchar(paramstr(0)),'test',MB_ICONQUESTION);

¿ Cual es el error ?

[ecfisa]

Hola Lepuke.

Código Delphi [-]
  ...
  MessageBox(0, Pchar( ParamStr(1) ), 'test', MB_ICONQUESTION);
end.

Revisa este enlace: ParamStr

Saludos

[JuanOrtega]

gracias por la ayuda ecfisa , pero paramstr(1) me devuelve un string vacio , en cambio cuando uso 0 me devuelve la ruta vieja , ¿ porque pasa esto ?

[[AgustinOrtu]]

A simple vista, ParamStr(0) tiene la ubicacion en donde windows ejecuta el programa. Creo que siempre se lo manda como argumento a todo .exe.

Que en la mayoria de los casos coincida con la ruta de la aplicacion no quiere decir que asi sea siempre , tu caso es una de las excepciones

[[Lepe]]

Hombre, si te dicen que revises la ayuda, lo normal es decir qué no entiendes en la ayuda.

Una línea de comando siempre tiene como mínimo el ParamStr(0) que es el propio ejecutable,"tu project1.exe". Si al llamar a tu programa desde ms-dos, le pasas algún parámetro, entonces paramStr(1) será ese parámetro. Por ejemplo:

c:\>d:\delphi\project1.exe "primer parametro" segundo

ParamStr(0) es "d:\delphi\project1.exe"
ParamStr(1) es "primer parametro"
ParamStr(2) es "segundo". La línea de comandos se separan por espacios. En este caso no hace falta comillas dobles porque no tiene espacios.

En Delphi, en el menú Run -> parameters -> puedes especificar los parámetros que quieras para testear cuando ejecutes desde delphi tu programa.

Creo que lo que quieres mostrar en el MessageBox es el contenido de la variable ruta, en lugar del paramstr(0). Y si no es así, explica qué quieres hacer .