[fpc-pascal] ExtractFilePath(GetModuleName(0)) problem

[Michael Van Canneyt]

On Sat, 11 Apr 2009, lloyd thomas wrote:

> Need Help please "confini :=
> ExtractFilePath(GetModuleName(0))+'\myfile.ini';" returns C:Program
> FilesMyApp\myfile.ini should be C:\Program Files\MyApp\myfile.ini . Am I
> doing something wrong?
> 
> The Problem is intermitent
> 
>     {$IFDEF Windows}
> confini  := ExtractFilePath(GetModuleName(0))+'\Myfile.ini';
> {$ENDIF}
> {$IFDEF Linux}
> confini  := GetAppConfigDir(True)+'/callcollex.conf';
> {$ENDIF}
> 
>    IniFile := TIniFile.Create(confini);
> 
> returns  an  error as follows
> project raised exception class 'EFopenError' with message:
> Unable to open file "C:Program FilesMyApp\myfile.ini"

Try using ParamStr(0) instead of GetModuleName()
I've never had any problems with that.

Michael.