Fix update procedure

VERSION

@@ -1 +1 @@
-1.4.0
+1.4.1

src/MainImpl.bas

@@ -104,10 +104,10 @@ Public Function UpdateConceptPowershell() As Boolean
     Exit Function
   
   On Error GoTo RETURN_FALSE
-  Dim sExec$: sExec = "cmd.exe /c " & """" & sInstall & """" & " < nul"
+  Dim sExec$: sExec = "explorer.exe " & CP_TOOLS_SERVER
   Dim iShell As New WshShell
-  iShell.CurrentDirectory = CP_TOOLS_SERVER
-  UpdateConceptPowershell = iShell.Run(sExec, waitOnReturn:=True) = 0
+  Call iShell.Run(sExec, waitOnReturn:=True)
+  UpdateConceptPowershell = True
   Exit Function
 
 RETURN_FALSE:

src/z_UIMessages.bas

@@ -58,11 +58,11 @@ Public Function UIShowMessage(theCode As MsgCode, ParamArray params() As Variant
   Case IM_LINKS_SCAN_OK:              Call MsgBox(Fmt("Äîáàâëåíî ôàéëîâ: {1}/{2}", unwrapped), vbInformation)
   Case IM_LINKS_RELOCATE_OK:          Call MsgBox(Fmt("Ïåðåìåùåíî ôàéëîâ: {1}/{2}", unwrapped), vbInformation)
   Case IM_LINKS_SERVER:               Call MsgBox(Fmt("Èñïðàâëåíî ãèïåðññûëîê: {1}/{2}", unwrapped), vbInformation)
-  Case IM_CONCEPT_UPDATE_OK:           Call MsgBox("Îôèñíûå ïðîäóêòû ÊÎÍÖÅÏÒ îáíîâëåíû óñïåøíî", vbInformation)
+  Case IM_CONCEPT_UPDATE_OK:          Call MsgBox("Закройте приложения MS Office. Запустите файл install.bat в открытом окне для обновления", vbInformation)
   Case IM_WORD_ADDINS_OK:             Call MsgBox("Îáíîâëåíèå íàäñòðîåê çàâåðøåíî", vbInformation)
   Case IM_TEMPLATES_OK:               Call MsgBox("Îáíîâëåíèå øàáëîíîâ çàâåðøåíî", vbInformation)
   Case IM_LINKS_COPY_OK:              Call MsgBox(Fmt("Ñêîïèðîâàíî ôàéëîâ: {1}/{2}", unwrapped), vbInformation)
-  Case IM_SEARCH_OK:                   Call MsgBox("Ïîèñê çàâåðøåí", vbInformation)
+  Case IM_SEARCH_OK:                  Call MsgBox("Поиск завершен", vbInformation)
   
   Case Else:                          Call MsgBox("Íåâåðíûé êîä ñîîáùåíèÿ", vbCritical)
   End Select