Find A file Relative to where the .exe is ...

[Berklesse]

Hi ,
How can i read from a file or write to a file in Free Pascal , with a relative link to where the .exe is ?
Thanks

[molly]

Usually by providing a relative path/filename from your exe.

e.g. TFileStream.Create('subdir1\subdir2\filename.txt', fmOpenRead)

Is it not working for your platform ?

[taazz]

Hi ,
How can i read from a file or write to a file in Free Pascal , with a relative link to where the .exe is ?
Thanks

try this one.

Code: Pascal  [Select][+][-]

1.   ExpandFileName(IncludeTrailingPathDelimiter(ExtractFileDir(Application.ExeName))+Relativepath);
2.  

Usually by providing a relative path/filename from your exe.

e.g. TFileStream.Create('subdir1\subdir2\filename.txt', fmOpenRead)

Is it not working for your platform ?

that is relative to currentdir which might be the application dir and might not, since currentdir is a systemwide variable and can be changed at any time by any process.

[molly]

that is relative to currentdir which might be the application dir and might not, since currentdir is a systemwide variable and can be changed at any time by any process.

Sorry, you are right. thank you for the correction.

As an additional note for TS: the directory/path must already exist. It will not be automatically generated for you.

[taazz]

that is relative to currentdir which might be the application dir and might not, since currentdir is a systemwide variable and can be changed at any time by any process.

Sorry, you are right. thank you for the correction.

As an additional note for TS: the directory/path must already exist. It will not be automatically generated for you.

I'm glad I could be of service.

[J-G]

I use 'ProgramDirectory' + filename  as in :

Code: Pascal  [Select][+][-]

1.   system.assign(SuppProg,ProgramDirectory +'SupportProg.DTA');
2.   system.assign(Location,ProgramDirectory +'Location.DTA');

which (once written) creates files in the same directory as the .EXE but I'm sure adding  'subdirectory name'  would also be effective   -   taking care of the path delimiter of course.

[wp]

Code: Pascal  [Select][+][-]

1.   ExpandFileName(IncludeTrailingPathDelimiter(ExtractFileDir(Application.ExeName))+Relativepath);
2.  

A shorter version would be

Code: Pascal  [Select][+][-]

1. var
2.   s: String;
3. ...
4.   s := ExpandFilename(Application.Location + RelativePath);

[Remy Lebeau]

Why use ExpandFileName() at all?  It is used for converting a relative path to an absolute path, but since the value being passed to it is already an absolute path to begin with, I would expect it to be a no-op, so just omit it:

Code: [Select]

// these are compatible with Delphi and FreePascal...
s := IncludeTrailingPathDelimiter(ExtractFileDir(Application.ExeName)) + 'subdir1\subdir2\filename.txt';
s := IncludeTrailingPathDelimiter(ExtractFileDir(ParamStr(0))) + 'subdir1\subdir2\filename.txt';

Or:

Code: [Select]

// these are also compatible with Delphi and FreePascal...
s := ExtractFilePath(Application.ExeName) + 'subdir1\subdir2\filename.txt';
s := ExtractFilePath(ParamStr(0)) + 'subdir1\subdir2\filename.txt';

Or:

Code: [Select]

// I wish Delphi had Application.Location!
s := Application.Location + 'subdir1\subdir2\filename.txt';


[taazz]

Why use ExpandFileName() at all?  It is used for converting a relative path to an absolute path, but since the value being passed to it is already an absolute path to begin with, I would expect it to be a no-op, so just omit it:

I'm using to remove any and all .\ ..\ sequence of pairs the path might have other than that I guess you are right.