Cambiar de directorio

[[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

[Casimiro Noteví]

Si quiere ir a un directorio arriba sólo hay que añadirle los dos puntos

Ejemplo: (a lo bruto )

miruta := extractfilepath(paramstr(0));
cddir( miruta );
cddir( '..\'  );
chdir( 'data' );

[*Caro*]

Empezado por Casimiro Notevi

Si quiere ir a un directorio arriba sólo hay que añadirle los dos puntos

Hola Casimiro , sabía que se tenía que aumentar los dos puntos, la prueba que hice me daba error por eso puse el anterior codigo, acabo de probar nuevamente y si funciona como dices .

Código Delphi [-]
  directorio := ExtractFilePath(Application.ExeName);
  chdir(directorio+'..\data');
  directorio := GetCurrentDir;

Saluditos