ConceptProd/WordAI
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix update procedure

Browse Source
This commit is contained in:
IRBorisov 2024-06-18 12:09:31 +03:00
parent 04b897656c
commit 237e0412d2
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
VERSION
View File

@ -1 +1 @@
1.2.3 1.2.4

6
src/MainImpl.bas
View File

@ -215,10 +215,10 @@ Public Function UpdateConceptPowershell() As Boolean
Exit Function Exit Function
On Error GoTo RETURN_FALSE 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 Dim iShell As New WshShell
iShell.CurrentDirectory = CP_TOOLS_SERVER Call iShell.Run(sExec, waitOnReturn:=True)
UpdateConceptPowershell = iShell.Run(sExec, waitOnReturn:=True) = 0 UpdateConceptPowershell = True
Exit Function Exit Function
RETURN_FALSE: RETURN_FALSE:

2
src/z_UIMessages.bas
View File

@ -58,7 +58,7 @@ Public Function UIShowMessage(theCode As MsgCode, ParamArray params() As Variant
Case IM_CONVERT_CODEPAGE_OK: Call MsgBox("Êîððåêòèðîâêà âûïîëíåíà", vbInformation) Case IM_CONVERT_CODEPAGE_OK: Call MsgBox("Êîððåêòèðîâêà âûïîëíåíà", vbInformation)
Case IM_UNIQUE_BOOKMARKS_OK: Call MsgBox("Ïåðåñîçäàíèå çàêëàäîê çàâåðøåíî", vbInformation) Case IM_UNIQUE_BOOKMARKS_OK: Call MsgBox("Ïåðåñîçäàíèå çàêëàäîê çàâåðøåíî", vbInformation)
Case IM_REMOVE_ACCENTS_OK: Call MsgBox(Fmt("Óäàëåíû óäàðåíèÿ: {1}", unwrapped), vbInformation) Case IM_REMOVE_ACCENTS_OK: Call MsgBox(Fmt("Óäàëåíû óäàðåíèÿ: {1}", unwrapped), vbInformation)
Case IM_CONCEPT_UPDATE_OK: Call MsgBox("Îôèñíûå ïðîäóêòû ÊÎÍÖÅÏÒ îáíîâëåíû óñïåøíî", vbInformation) Case IM_CONCEPT_UPDATE_OK: Call MsgBox("Закройте приложения MS Office. Запустите файл install.bat в открытом окне для обновления", vbInformation)
Case IM_COMMENT_EXPORT_OK: Call MsgBox(Fmt("Âûãðóæåíî ïðèìå÷àíèé: {1}", unwrapped), vbInformation) Case IM_COMMENT_EXPORT_OK: Call MsgBox(Fmt("Âûãðóæåíî ïðèìå÷àíèé: {1}", unwrapped), vbInformation)
Case IM_BOOKMARK_IGNORED: Case IM_BOOKMARK_IGNORED:
Call MsgBox(Fmt("Âûäåëåííàÿ îáëàñòü äîáàâëåíà â èãíîðèðóåìûå" & vbNewLine & _ Call MsgBox(Fmt("Âûäåëåííàÿ îáëàñòü äîáàâëåíà â èãíîðèðóåìûå" & vbNewLine & _