summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAlexander Lantsev <aunsane@gmail.com>2015-01-16 16:28:19 +0000
committerAlexander Lantsev <aunsane@gmail.com>2015-01-16 16:28:19 +0000
commit8a09c895c4cd0e9cc87c38181ae2913dba77c30b (patch)
tree9b0315e07bdc53b8f35fd72cc441c3e30f47be36
parent06851f5c26bd24c742d13dbbac4c0b19064aba83 (diff)
Installer: ability to suppress message boxes in silent mode
git-svn-id: http://svn.miranda-ng.org/main/trunk@11865 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
-rw-r--r--tools/installer_ng/MirandaNG.iss4
-rw-r--r--tools/installer_ng_stable/MirandaNG.iss4
2 files changed, 4 insertions, 4 deletions
diff --git a/tools/installer_ng/MirandaNG.iss b/tools/installer_ng/MirandaNG.iss
index 611465b2de..f44898e940 100644
--- a/tools/installer_ng/MirandaNG.iss
+++ b/tools/installer_ng/MirandaNG.iss
@@ -969,7 +969,7 @@ begin
if DirExists(WizardForm.DirEdit.Text) and (FileExists(WizardForm.DirEdit.Text+'\{#MirName}') or FileExists(WizardForm.DirEdit.Text+'\mir_core.dll')) then
begin
- MsgBox(ExpandConstant('{cm:FolderExists1}')+#10+#10+WizardForm.DirEdit.Text+#10+#10+ExpandConstant('{cm:FolderExists2}'), mbError, MB_OK);
+ SuppressibleMsgBox(ExpandConstant('{cm:FolderExists1}')+#10+#10+WizardForm.DirEdit.Text+#10+#10+ExpandConstant('{cm:FolderExists2}'), mbError, MB_OK, MB_OK);
Result := False;
exit;
end;
@@ -993,7 +993,7 @@ begin
if CurUninstallStep=usPostUninstall then
begin
if DirExists(AddBackslash(ExpandConstant('{userappdata}\Miranda NG'))) then
- if MsgBox(ExpandConstant('{cm:ProfileUninst}'), mbError, MB_YESNO or MB_DEFBUTTON2) = IDYES then
+ if SuppressibleMsgBox(ExpandConstant('{cm:ProfileUninst}'), mbError, MB_YESNO or MB_DEFBUTTON2, IDNO) = IDYES then
begin
DelTree(AddBackslash(ExpandConstant('{userappdata}\Miranda NG')), True, True, True);
end;
diff --git a/tools/installer_ng_stable/MirandaNG.iss b/tools/installer_ng_stable/MirandaNG.iss
index 777b071045..2df06dab35 100644
--- a/tools/installer_ng_stable/MirandaNG.iss
+++ b/tools/installer_ng_stable/MirandaNG.iss
@@ -969,7 +969,7 @@ begin
if DirExists(WizardForm.DirEdit.Text) and (FileExists(WizardForm.DirEdit.Text+'\{#MirName}') or FileExists(WizardForm.DirEdit.Text+'\mir_core.dll')) then
begin
- MsgBox(ExpandConstant('{cm:FolderExists1}')+#10+#10+WizardForm.DirEdit.Text+#10+#10+ExpandConstant('{cm:FolderExists2}'), mbError, MB_OK);
+ SuppressibleMsgBox(ExpandConstant('{cm:FolderExists1}')+#10+#10+WizardForm.DirEdit.Text+#10+#10+ExpandConstant('{cm:FolderExists2}'), mbError, MB_OK, MB_OK);
Result := False;
exit;
end;
@@ -993,7 +993,7 @@ begin
if CurUninstallStep=usPostUninstall then
begin
if DirExists(AddBackslash(ExpandConstant('{userappdata}\Miranda NG'))) then
- if MsgBox(ExpandConstant('{cm:ProfileUninst}'), mbError, MB_YESNO or MB_DEFBUTTON2) = IDYES then
+ if SuppressibleMsgBox(ExpandConstant('{cm:ProfileUninst}'), mbError, MB_YESNO or MB_DEFBUTTON2, IDNO) = IDYES then
begin
DelTree(AddBackslash(ExpandConstant('{userappdata}\Miranda NG')), True, True, True);
end;