Pues sólo tienes que leer el archivo. Por ejemplo puedes usar un StringList. Suponiendo que el archivo tiene una única línea con el nombre del directorio pondrías:
Código:
var
SL: TStringList;
begin
SL := TStringList.Create;
SL.LoadFromFile(tu archivo plano);
Session.NetFileDir := SL[0];
SL.Free;
end;
Por supuesto tendrás que agregar código para controlar errores como: el archivo no existe, el archivo está vacío, el directorio indicad no existe, etc.
Otras formas de hacer esto sería utilizando el registro de Windows para guardar el nombre del directorio o más sencillo, un archivo *.ini, por ejemplo.
Además si después quieres agregar más información para ser leída por el programa podrías crear el archivo de texto con lineas de la forma
entrada=valor
por ejemplo:
Cita:
NetFileDir=c:\temp
AliasName=tualias
TableName=tutabla
|
Usarías igualmente un StringList y su método LoadFromFile para cargar el archivo y luego su propiedad Values para poder leer los valores:
Session.NetFileDir := SL.Values['NetFileDir'];
Database.AliasName := SL['AliasName'];
Table.TableName := SL['TableName'];
// Saludos