Changeset 43 for trunk/Packages/CoolTranslator/UCoolTranslator.pas

Timestamp:

Jul 14, 2016, 2:06:55 PM (8 years ago)

Author:

chronos

Message:

• Modified: Installer now contains 32-bit and 64-bit version.
• Added: Install also openssl libraries to support https protocol.

File:

• trunk/Packages/CoolTranslator/UCoolTranslator.pas (modified) (1 diff)

trunk/Packages/CoolTranslator/UCoolTranslator.pas

@@ -354 +354 @@
   for I := 1 to Languages.Count - 1 do
   with TLanguage(Languages[I]) do begin
-    Available := FileExists(POFilesFolder + DirectorySeparator + ExtractFileNameOnly(Application.ExeName) +
+    Available := FileExists(ExtractFileDir(UTF8Encode(Application.ExeName)) +
+      DirectorySeparator + POFilesFolder + DirectorySeparator + ExtractFileNameOnly(Application.ExeName) +
       '.' + Code + ExtensionSeparator + 'po') or (Code = 'en');
   end;