Cambiar de directorio

[Casimiro Noteví]

Pues entonces no entiendo

[Cañones]

Bueno, vamos desde cero.
Tengo una aplicación X.
La estructura de las carpetas es la siguiente.
...\X -> Directorio principal
...\X\bin -> Directorio con el .exe los .ini y .dll
...\X\data -> Directorio con el .fbd y un archivo .txt para el log

Yo no se donde va a estar la carpeta X, ya que la idea es que sea portable y que se copie y pegue en cualquier lado y salga andando.
Puede estar en C:\X o en C:\Documents and Settings\cañones\Escritorio.
Entonces con la función extractpath puedo saber la ruta completa del .exe.
Como puedo cambiar de directorio laRuta\X\bin a laRuta\X\data.
Mi idea era usar alguna función de delphi, pero si no existe creo mi propio procedimiento.
Muchas gracias.
Saludos.

[[Caral]]

Hola
El ejemplo que mostro Casimiro dara la direccion de X/Data.

Código Delphi [-]
var
  directory : string;
begin
  GetDir(2, directory);
  ShowMessage(directory+'\Data');

Asi se puede saber la direccion correcta y ampliar la misma a la carpeta Data.
El dato es string, se puede usar de cualquier forma
Saludos

[[Caral]]

Hola
Es lo mismo que se puede hacer con ExtractFilePath
Como son datos string se pueden manejar a nuestro antojo:

Código Delphi [-]
var
  programa : string;
begin
  programa:= ExtractFilePath(Application.ExeName);
  ShowMessage(programa+'Data\');

Y asi sucesivamente.
Saludos

[Cañones]

Caral, probé los dos ejemplos que me has dejado pero no hace lo que necesito.
El tema es que data está en el mismo nivel que bin, no dentro de bin\data.
Gracias de igual modo.
Me voy a poner a trabajar en un procedimiento que haga lo que necesito.
Cuando lo tenga lo coloco en el hilo.
Gracias a todos.

[Casimiro Noteví]

Pues... no te explicas qué problema tienes... o no te entendemos

devuelve la ruta a tu programa, por ejemplo:

miruta := extractfilepath(paramstr(0));

Ahora sólo debes añadir la parte que quieras:

larutadata := miruta + '\data\';

ahora cambiamos a esa ruta

chdir( larutadata );

[*Caro*]

Hola, lo que yo entiendo es que quiere acceder a un nivel anterior al directorio donde esta su ejecutable, si es eso puedes hacerlo de esta forma:

Código Delphi [-]
directorio:String;
begin
  directorio := ExtractFilePath(Application.ExeName);
  directorio := Copy(directorio, 1, LastDelimiter('\', directorio));
  chdir(directorio+'data');
  directorio := GetCurrentDir;
  ShowMessage('Nueva ruta: '+directorio);

Saluditos