updater, fix translations

use fixed appname
riderkick · Jun 12, 2015 · bf367bb · bf367bb
1 parent 8b9adc2
commit bf367bb
Showing 1 changed file with 9 additions and 4 deletions.
diff --git a/updater/uMain.pas b/updater/uMain.pas
@@ -9,9 +9,9 @@ interface
   cthreads,
   cmem,
   {$endif}
-  Classes, SysUtils, zipper, FileUtil, UTF8Process, Forms, Dialogs,
-  ComCtrls, StdCtrls, Clipbrd, ExtCtrls, DefaultTranslator, RegExpr, IniFiles,
-  process, USimpleException, uMisc, httpsend, blcksock, ssl_openssl;
+  Classes, SysUtils, zipper, FileUtil, UTF8Process, Forms, Dialogs, ComCtrls,
+  StdCtrls, Clipbrd, ExtCtrls, DefaultTranslator, RegExpr, IniFiles, process,
+  USimpleException, uMisc, uTranslation, httpsend, blcksock, ssl_openssl;
 
 type
 
@@ -616,6 +616,9 @@ procedure TfrmMain.FormCreate(Sender :TObject);
 begin
   Randomize;
   InitSimpleExceptionHandler(ChangeFileExt(Application.ExeName, '.log'));
+  uTranslation.LangDir := GetCurrentDirUTF8 + PathDelim + 'languages';
+  uTranslation.LangAppName := 'updater';
+  uTranslation.CollectLanguagesFiles;
   InitCriticalSection(CS_ReadCount);
   //load proxy config from fmd
   config := TIniFile.Create('config/config.ini');
@@ -679,7 +682,9 @@ procedure TfrmMain.FormShow(Sender :TObject);
         else if s = '-r' then
           _MaxRetry := StrToIntDef(ParamStrUTF8(i + 1), 1)
         else if s = '-l' then
-          _LaunchApp := ParamStrUTF8(i + 1);
+          _LaunchApp := ParamStrUTF8(i + 1)
+        else if (LowerCase(s) = '--lang') then
+          uTranslation.SetLang(ParamStrUTF8(i + 1));
       end;
     end;
   end;