Cambiar de directorio

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

[Cañones]

Mil gracias Casimiro y Caro por el tiempo.
Eso es exactamente lo que necesitaba. Por lo visto era un problema al comunicarles mi duda, ya que lo solucionaron muy fácil y de una manera sencilla.
Muchas gracias nuevamente.

Saludos de Cañones.