Pascal/Turbo Pascal - Path's relativos

Hola, me gustaria saber si alguien me puede decir como usar paths relativos en lugar de paths absolutos para q, sea cual sea la carpeta usada para la ejecucion del programa, se puedan usar los ficheros q en esa carpeta hay contenidos.

Gracias!

No me creas mucho pero creo que por default Turbo Pascal busca en el path local, luego en el definido en la variable de sistema PATH.

Ojala que alguno de los otros colaboradores pueda ratificarlo.

Para saber la ruta del programa ejecutable, usa la siguiente función:

Function PrgDir :DirStr;
Var
E :ExtStr;
N :NameStr;
D :DirStr;
Begin
FSplit(ParamStr(0), D, N, E);
If (Copy(D, Length(D), 1)<>'\') then D := D + '\';
PrgDir := D;
End; {PrgDir}

Espero te sea de utilidad. Saludos ;-)

No me he enterao de nada,jejeje, pero la estudiaré con detenimiento a ver si me sale bien. Muchas gracias

Saludos