unit AppDir;

interface
uses
{$IFDEF MSWINDOWS}
   Windows,
{$ENDIF}
{$IFDEF POSIX}
  Posix.Stdlib,
{$ENDIF}
  SysUtils;

var
  Directory: string;

implementation

{$IFDEF MSWINDOWS}
function GetModuleFileNameStr(Instance: THandle): string;
var
  buffer: array [0..MAX_PATH] of Char;
begin
  GetModuleFileName( Instance, buffer, MAX_PATH);
  Result := buffer;
  Result:=StringReplace(Result,'\\?\','',[]);
end;
{$ENDIF}

initialization
{$IFDEF MSWINDOWS}
  Directory:=IncludeTrailingPathDelimiter(ExtractFileDir(ParamStr(0)));
{$ELSE}
  {$IFDEF POSIX}
    Directory:=IncludeTrailingPathDelimiter(ExtractFilePath(String(AnsiString(realpath(PAnsiChar(AnsiString(ParamStr(0))),nil)))));
  {$ELSE}
    Directory:=ExtractFilePath(ParamStr(0))
  {$ENDIF}
{$ENDIF}

end.