Changeset 114 for trunk/Engine.pas

Timestamp:

Jan 14, 2025, 8:56:52 AM (8 days ago)

Author:

chronos

Message:

• Fixed: Linux data directories detection.

File:

• trunk/Engine.pas (modified) (1 diff)

trunk/Engine.pas

@@ -1647 +1647 @@
 {$IFDEF UNIX}
 const
-  UnixDataDir = '/usr/share/Tunneler';
-  UnixAudioDir = UnixDataDir + '/Audio';
+  AudioDirName = 'Audio';
+  UnixDataDir = '../share/Tunneler';
+var
+  NewDir: string;
+  BaseDir: string;
 {$ENDIF}
 begin
-  Result := GetCurrentDir + DirectorySeparator + 'Audio';
+  BaseDir := ExcludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0)));
+  Result := BaseDir + DirectorySeparator + AudioDirName;
   {$IFDEF UNIX}
-  if not DirectoryExists(Result) and DirectoryExists(UnixAudioDir) then begin
-    Result := UnixAudioDir;
-    Exit;
+  NewDir := ExpandFileName(BaseDir + DirectorySeparator + UnixDataDir +
+    DirectorySeparator + AudioDirName);
+  if not DirectoryExists(Result) and DirectoryExists(NewDir) then begin
+    Result := NewDir;
   end;
   {$ENDIF}