Changeset 225 for trunk/Core.pas

Timestamp:

Jan 20, 2025, 12:57:50 AM (2 days ago)

Author:

chronos

Message:

• Fixed: Detect relative Linux share application path.
• Fixed: Package install scripts.

File:

• trunk/Core.pas (modified) (2 diffs)

trunk/Core.pas

@@ -146 +146 @@
 
 function TCore.GetAppShareDir(Dir: string): string;
-{$IFDEF Linux}
+{$IFDEF UNIX}
 var
   NewDir: string;
@@ -152 +152 @@
 begin
   Result := ExtractFileDir(Application.ExeName) + DirectorySeparator + Dir;
-  {$IFDEF Linux}
+  {$IFDEF UNIX}
   // If installed in Linux system then try to use different installation directory
   if not DirectoryExists(Result) then begin
-    NewDir := '/usr/share/' + ExtractFileNameOnly(Application.ExeName) + DirectorySeparator + Dir;
+    NewDir := ExtractFileDir(Application.ExeName) + DirectorySeparator + '..' +
+      DirectorySeparator + 'share' + DirectorySeparator +
+      ExtractFileNameOnly(Application.ExeName) + DirectorySeparator + Dir;
     if DirectoryExists(NewDir) then Result := NewDir;
   end;