Merge branch 'vstoaddininstaller' into develop
- VERBESSERT: Installationsprogramm erkennt jetzt, wenn Word bereits läuft, und bietet an, es zu schließen
This commit is contained in:
commit
9bbab2607d
1
.gitignore
vendored
1
.gitignore
vendored
@ -16,6 +16,7 @@ publish/release/
|
|||||||
x64/
|
x64/
|
||||||
win32/
|
win32/
|
||||||
[Rr]elease/
|
[Rr]elease/
|
||||||
|
[Rr]eleases/
|
||||||
[Dd]debug/
|
[Dd]debug/
|
||||||
Dist/
|
Dist/
|
||||||
build/
|
build/
|
||||||
|
|||||||
3
.gitmodules
vendored
3
.gitmodules
vendored
@ -1,3 +1,6 @@
|
|||||||
[submodule "www/PHPMailer"]
|
[submodule "www/PHPMailer"]
|
||||||
path = www/PHPMailer
|
path = www/PHPMailer
|
||||||
url = git@github.com:PHPMailer/PHPMailer.git
|
url = git@github.com:PHPMailer/PHPMailer.git
|
||||||
|
[submodule "deploy/VstoAddinInstaller"]
|
||||||
|
path = deploy/VstoAddinInstaller
|
||||||
|
url = /home/daniel/local/Code/VstoAddinInstaller
|
||||||
|
|||||||
1
deploy/VstoAddinInstaller
Submodule
1
deploy/VstoAddinInstaller
Submodule
@ -0,0 +1 @@
|
|||||||
|
Subproject commit 956c716d3fd2378cbbe37663ee41db91946f5be9
|
||||||
32
deploy/make-installer.iss
Normal file
32
deploy/make-installer.iss
Normal file
@ -0,0 +1,32 @@
|
|||||||
|
#expr Exec("C:\Program Files (x86)\Microsoft Visual Studio 12.0\Common7\IDE\devenv.com", \
|
||||||
|
"x:\Code\zaaReloaded2\zaaReloaded2\zaaReloaded2.csproj /Build Release")
|
||||||
|
|
||||||
|
#define VERSIONFILE "..\zaaReloaded2\VERSION"
|
||||||
|
#define PUB_YEARS "2015-2016"
|
||||||
|
#define TARGET_HOST "excel"
|
||||||
|
#define APP_GUID "{{8520B887-3AB1-422B-AB6B-A265D14FE4E5}"
|
||||||
|
#define PRODUCT "zaaReloaded"
|
||||||
|
#define COMPANY "Daniel Kraus (bovender)"
|
||||||
|
#define DESCRIPTION "Word-Addin, das Lauris-Laborwerte in der Zentralen Arztbriefablage formatiert."
|
||||||
|
#define HOMEPAGE "http://zaa.nephrowiki.de"
|
||||||
|
#define REGKEY "zaaReloaded2"
|
||||||
|
|
||||||
|
#define SOURCEDIR "..\zaaReloaded2\bin\Release\"
|
||||||
|
#define VSTOFILE "zaaReloaded2.vsto"
|
||||||
|
|
||||||
|
; OUTPUTDIR is the directory where the installer will be saved.
|
||||||
|
#define OUTPUTDIR "releases\"
|
||||||
|
|
||||||
|
#define LOGFILE "ZAARELOADED2-INSTALL-LOG.TXT"
|
||||||
|
|
||||||
|
#define SETUPFILESDIR "setup-files\"
|
||||||
|
#define LICENSE_FILE "license.rtf"
|
||||||
|
#define INSTALLER_ICO "icon.ico"
|
||||||
|
#define INSTALLER_IMAGE_LARGE "installbanner.bmp"
|
||||||
|
#define INSTALLER_IMAGE_SMALL "installbanner-small.bmp"
|
||||||
|
|
||||||
|
; If the VstoAddinInstaller files are in a different subdirectory
|
||||||
|
; than 'VstoAddinInstaller', change the path below.
|
||||||
|
#include "VstoAddinInstaller\vsto-installer.iss"
|
||||||
|
|
||||||
|
; vim: ts=2 sts=2 sw=2 et
|
||||||
|
Before Width: | Height: | Size: 204 KiB After Width: | Height: | Size: 204 KiB |
|
Before Width: | Height: | Size: 38 KiB After Width: | Height: | Size: 38 KiB |
|
Before Width: | Height: | Size: 6.8 KiB After Width: | Height: | Size: 6.8 KiB |
|
Before Width: | Height: | Size: 153 KiB After Width: | Height: | Size: 153 KiB |
@ -1,760 +0,0 @@
|
|||||||
; Inno Setup script for zaaReloaded2
|
|
||||||
; (c) 2015 Daniel Kraus
|
|
||||||
; Apache License Version 2.0
|
|
||||||
|
|
||||||
[Setup]
|
|
||||||
; #define DEBUG
|
|
||||||
|
|
||||||
; Read the semantic and the installer file version from the VERSION file
|
|
||||||
#define FILE_HANDLE FileOpen("..\zaaReloaded2\VERSION")
|
|
||||||
#define SEMVER FileRead(FILE_HANDLE)
|
|
||||||
#define VER FileRead(FILE_HANDLE)
|
|
||||||
#expr FileClose(FILE_HANDLE)
|
|
||||||
|
|
||||||
#define YEAR "2015"
|
|
||||||
#define DEV "Daniel Kraus"
|
|
||||||
#define LOGFILE "INST-LOG.TXT"
|
|
||||||
#define REGKEY "Software\Microsoft\Office\Word\Addins\zaaReloaded2"
|
|
||||||
#define APPNAME "zaaReloaded"
|
|
||||||
#define SLOGAN "Word-Addin, das Lauris-Laborwerte in der Zentralen Arztbriefablage formatiert"
|
|
||||||
#define UNINSTALLDIR "{app}\setup"
|
|
||||||
#define ADDINNAME "zaaReloaded2"
|
|
||||||
#define DOTNETSHA1 "58da3d74db353aad03588cbb5cea8234166d8b99"
|
|
||||||
#define VSTORSHA1 "ad1dcc5325cb31754105c8c783995649e2208571"
|
|
||||||
|
|
||||||
#ifndef DEBUG
|
|
||||||
#define SOURCEDIR "Release"
|
|
||||||
#define VSTORURL "http://download.microsoft.com/download/2/E/9/2E9D2603-6D1F-4B12-BD37-DB1410B23597/vstor_redist.exe"
|
|
||||||
#define DOTNETURL "http://download.microsoft.com/download/9/5/A/95A9616B-7A37-4AF6-BC36-D6EA96C8DAAE/dotNetFx40_Full_x86_x64.exe"
|
|
||||||
; Build the solution with Release configuration
|
|
||||||
#expr Exec("C:\Program Files (x86)\Microsoft Visual Studio 12.0\Common7\IDE\devenv.com", \
|
|
||||||
"x:\Code\zaaReloaded2\zaaReloaded2\zaaReloaded2.csproj /Build Release")
|
|
||||||
#else
|
|
||||||
#define SOURCEDIR "Debug"
|
|
||||||
#define VSTORURL "http://vhost/vstor_redist.exe"
|
|
||||||
#define DOTNETURL "http://vhost/dotNetFx40_Full_x86_x64.exe"
|
|
||||||
#endif
|
|
||||||
|
|
||||||
; Specific AppID - NEVER CHANGE THIS!
|
|
||||||
AppId={{8520B887-3AB1-422B-AB6B-A265D14FE4E5}
|
|
||||||
|
|
||||||
; Compiler info
|
|
||||||
OutputDir=release
|
|
||||||
#ifndef DEBUG
|
|
||||||
OutputBaseFilename=zaaReloaded-{#SEMVER}
|
|
||||||
#else
|
|
||||||
OutputBaseFilename=zaaReloaded-debug
|
|
||||||
#endif
|
|
||||||
Compression=lzma
|
|
||||||
InternalCompressLevel=max
|
|
||||||
SolidCompression=true
|
|
||||||
LicenseFile=setup-files\license.rtf
|
|
||||||
|
|
||||||
; Application name, version, etc.
|
|
||||||
AppName={#APPNAME}
|
|
||||||
AppVersion={#SEMVER}
|
|
||||||
AppPublisher={#DEV}
|
|
||||||
AppCopyright=2008-{#YEAR} {#DEV}
|
|
||||||
AppComments={#SLOGAN}
|
|
||||||
VersionInfoDescription={#SLOGAN}
|
|
||||||
VersionInfoVersion={#VER}
|
|
||||||
VersionInfoProductVersion={#VER}
|
|
||||||
VersionInfoTextVersion={#SEMVER}
|
|
||||||
VersionInfoProductTextVersion={#SEMVER}
|
|
||||||
AppContact={#DEV}
|
|
||||||
AppPublisherURL=http://zaa.nephrowiki.de
|
|
||||||
AppSupportURL=http://zaa.nephrowiki.de
|
|
||||||
AppUpdatesURL=http://zaa.nephrowiki.de
|
|
||||||
|
|
||||||
; Setup wizard
|
|
||||||
SetupIconFile=setup-files\icon.ico
|
|
||||||
WizardImageFile=setup-files\installbanner.bmp
|
|
||||||
WizardSmallImageFile=setup-files\installbanner-small.bmp
|
|
||||||
ArchitecturesAllowed=x86 x64
|
|
||||||
ArchitecturesInstallIn64BitMode=x64
|
|
||||||
DisableProgramGroupPage=true
|
|
||||||
DisableDirPage=false
|
|
||||||
DisableReadyPage=false
|
|
||||||
LanguageDetectionMethod=locale
|
|
||||||
TimeStampsInUTC=false
|
|
||||||
PrivilegesRequired=lowest
|
|
||||||
WizardImageStretch=false
|
|
||||||
WizardImageBackColor=clWhite
|
|
||||||
; ChangesAssociations=true
|
|
||||||
AppendDefaultDirName=false
|
|
||||||
DefaultDirName={code:SuggestInstallDir}
|
|
||||||
CreateAppDir=true
|
|
||||||
CloseApplicationsFilter=*.*
|
|
||||||
DefaultDialogFontName=Segoe UI
|
|
||||||
|
|
||||||
; Uninstall
|
|
||||||
;UninstallDisplayIcon={#UNINSTALLDIR}\xltoolbox.ico
|
|
||||||
UninstallFilesDir={#UNINSTALLDIR}
|
|
||||||
|
|
||||||
; Inno Downloader Plugin is required for this
|
|
||||||
; Note that this include directive MUST be located at the end of the [setup]
|
|
||||||
; section.
|
|
||||||
#include <idp.iss>
|
|
||||||
|
|
||||||
[Languages]
|
|
||||||
Name: en; MessagesFile: compiler:Default.isl;
|
|
||||||
Name: de; MessagesFile: compiler:Languages\German.isl;
|
|
||||||
; Name: Brasileiro; MessagesFile: compiler:Languages\BrazilianPortuguese.isl;
|
|
||||||
; Name: Portugues; MessagesFile: compiler:Languages\Portuguese.isl;
|
|
||||||
#include "c:\Program Files (x86)\Inno Download Plugin\Unicode\idplang\german.iss"
|
|
||||||
|
|
||||||
[Files]
|
|
||||||
Source: "..\zaaReloaded2\bin\{#SOURCEDIR}\*"; DestDir: "{app}"; Flags: ignoreversion createallsubdirs recursesubdirs
|
|
||||||
; Source: "setup-files\xltoolbox.ico"; DestDir: "{#UNINSTALLDIR}"
|
|
||||||
; NOTE: Don't use "Flags: ignoreversion" on any shared system files
|
|
||||||
|
|
||||||
[Registry]
|
|
||||||
; Keys for single-user install (HKCU)
|
|
||||||
Check: not IsMultiUserInstall; ValueName: Description; ValueData: {#SLOGAN}; ValueType: string; Root: HKCU; Subkey: {#REGKEY}; Flags: uninsdeletekey
|
|
||||||
Check: not IsMultiUserInstall; ValueName: FriendlyName; ValueData: {#APPNAME}; ValueType: string; Root: HKCU; Subkey: {#REGKEY}; Flags: uninsdeletekey
|
|
||||||
Check: not IsMultiUserInstall; ValueName: LoadBehavior; ValueData: 3; ValueType: dword; Root: HKCU; Subkey: {#REGKEY}; Flags: uninsdeletekey
|
|
||||||
Check: not IsMultiUserInstall; ValueName: Warmup; ValueData: 1; ValueType: dword; Root: HKCU; Subkey: {#REGKEY}; Flags: uninsdeletekey
|
|
||||||
Check: not IsMultiUserInstall; ValueName: Manifest; ValueData: file:///{code:ConvertSlash|{app}}/{#ADDINNAME}.vsto|vstolocal; ValueType: string; Root: HKCU; Subkey: {#REGKEY}; Flags: uninsdeletekey
|
|
||||||
|
|
||||||
; Same keys again, this time for multi-user install (HKLM)
|
|
||||||
Check: IsMultiUserInstall; ValueName: Description; ValueData: {#SLOGAN}; ValueType: string; Root: HKLM; Subkey: {#REGKEY}; Flags: uninsdeletekey
|
|
||||||
Check: IsMultiUserInstall; ValueName: FriendlyName; ValueData: {#APPNAME}; ValueType: string; Root: HKLM; Subkey: {#REGKEY}; Flags: uninsdeletekey
|
|
||||||
Check: IsMultiUserInstall; ValueName: LoadBehavior; ValueData: 3; ValueType: dword; Root: HKLM; Subkey: {#REGKEY}; Flags: uninsdeletekey
|
|
||||||
Check: IsMultiUserInstall; ValueName: Warmup; ValueData: 1; ValueType: dword; Root: HKLM; Subkey: {#REGKEY}; Flags: uninsdeletekey
|
|
||||||
Check: IsMultiUserInstall; ValueName: Manifest; ValueData: file:///{code:ConvertSlash|{app}}/{#ADDINNAME}.vsto|vstolocal; ValueType: string; Root: HKLM; Subkey: {#REGKEY}; Flags: uninsdeletekey
|
|
||||||
|
|
||||||
[Run]
|
|
||||||
; Filename: http://xltoolbox.sourceforge.net/welcome.html; Flags: shellexec nowait; Check: ShowWelcomePageInBrowser
|
|
||||||
|
|
||||||
[UninstallRun]
|
|
||||||
; Filename: http://xltoolbox.sourceforge.net/uninstall.html; Flags: shellexec nowait
|
|
||||||
|
|
||||||
[CustomMessages]
|
|
||||||
; General messages [EN]
|
|
||||||
en.SingleOrMulti=Single-user or system-wide install
|
|
||||||
en.SingleOrMultiSubcaption=Install for the current user only or for all users
|
|
||||||
en.SingleOrMultiDesc=Please indicate the scope of this installation:
|
|
||||||
en.SingleOrMultiSingle=Single user (only for me)
|
|
||||||
en.SingleOrMultiAll=All users (system-wide)
|
|
||||||
en.Word2007Required=zaaReloaded requires Word 2007 or later.
|
|
||||||
|
|
||||||
; CannotInstallPage [EN]
|
|
||||||
en.CannotInstallCaption=Administrator privileges required
|
|
||||||
en.CannotInstallDesc=You do not have the necessary rights to install additional required runtime files.
|
|
||||||
en.CannotInstallMsg=Additional runtime files from Microsoft are required to run this add-in. You may continue the installation, but the add-in won't start unless the required runtime files are installed by an administrator. Note: On Windows Vista and newer, right-click the installer file and choose 'Run as administrator'.
|
|
||||||
en.CannotInstallCont=Continue anyway, although it won't work without the required runtime files
|
|
||||||
en.CannotInstallAbort=Abort the installation (come back when the admin has installed the files)
|
|
||||||
|
|
||||||
; DownloadInfoPage [EN]
|
|
||||||
en.RequiredCaption=Additional runtime files required
|
|
||||||
en.RequiredDesc=Additional runtime files for the .NET framework from Microsoft are required in order to run the add-in.
|
|
||||||
en.RequiredMsg=%d file(s) totalling about %s MiB need to be downloaded from the Microsoft servers. Click 'Next' to start downloading.
|
|
||||||
|
|
||||||
; InstallInfoPage [EN]
|
|
||||||
en.InstallCaption=Runtime files downloaded
|
|
||||||
en.InstallDesc=The required runtime files are ready to install.
|
|
||||||
en.InstallMsg=Click 'Next' to beginn the installation.
|
|
||||||
|
|
||||||
en.StillNotInstalled=The required additional runtime files are still not installed. Setup cannot continue. You may try again, or abort the add-in installation.
|
|
||||||
en.DownloadNotValidated=A downloaded file has unexpected content. It may have not been downloaded correctly, or someone might have hampered with it. You may click 'Back' and then 'Next' to download it again.
|
|
||||||
|
|
||||||
; General messages [DE]
|
|
||||||
de.SingleOrMulti=Einzelner oder alle Benutzer
|
|
||||||
de.SingleOrMultiSubcaption=Geben Sie an, für wen die Installation sein soll
|
|
||||||
de.SingleOrMultiDesc=Bitte geben Sie an, ob das Addin nur für Sie oder für alle Benutzer installiert werden soll.
|
|
||||||
de.SingleOrMultiSingle=Ein Benutzer (nur für mich)
|
|
||||||
de.SingleOrMultiAll=Alle Benutzer (systemweit)
|
|
||||||
de.Word2007Required=Dieses Addin erfordert mindestens Word 2007.
|
|
||||||
|
|
||||||
; "Download required" messages (.NET and VSTOR runtimes) [DE]
|
|
||||||
de.CannotInstallCaption=Administratorrechte benötigt
|
|
||||||
de.CannotInstallDesc=Sie haben nicht die erforderlichen Benutzerrechte, um weitere benötigte Laufzeitdateien zu installieren.
|
|
||||||
de.CannotInstallMsg=Sie können mit der Installation fortfahren, aber das Addin wird nicht starten, solange die VSTO-Laufzeitdateien nicht von einem Admin installiert wurden. Tipp: Wenn Sie Windows Vista oder neuer verwenden, klicken Sie mit der rechten Maustaste auf die Installationsdatei und wählen "Als Administrator ausführen".
|
|
||||||
de.CannotInstallCont=Trotzdem installieren, obwohl es nicht funktionieren wird
|
|
||||||
de.CannotInstallAbort=Installation abbrechen
|
|
||||||
|
|
||||||
; DownloadInfoPage [EN]
|
|
||||||
de.RequiredCaption=Weitere Laufzeitdateien erforderlich
|
|
||||||
de.RequiredDesc=Weitere Laufzeitdateien für das .NET-Framework von Microsoft werden benötigt, um das Addin verwenden zu können.
|
|
||||||
de.RequiredMsg=%d Datei(en) mit ca. %s MiB muß/müssen von den Microsoft-Servern heruntergeladen werden. Klicken Sie 'Weiter', um den Download zu beginnen.
|
|
||||||
|
|
||||||
; InstallInfoPage [EN]
|
|
||||||
de.InstallCaption=Weitere .NET-Laufzeitdateien heruntergeladen
|
|
||||||
de.InstallDesc=Die zusätzlichen benötigten Dateien von Microsoft können jetzt installiert werden.
|
|
||||||
de.InstallMsg=Klicken Sie 'Weiter', um mit der Installation zu beginnen.
|
|
||||||
|
|
||||||
de.StillNotInstalled=Die zusätzlichen benötigten Dateien wurden leider nicht korrekt installiert, so daß die Installation nicht fortgesetzt werden kann.
|
|
||||||
de.DownloadNotValidated=Es wurde unerwarteter Inhalt in einer heruntergeladenen Datei gefunden. Die Installation kann so nicht fortgesetzt werden. Sie können aber 'Zurück' und dann 'Weiter' klicken, um den Download neu zu beginnen.
|
|
||||||
|
|
||||||
[Code]
|
|
||||||
const
|
|
||||||
maxWord = 24; //< highest Word version number to check for.
|
|
||||||
|
|
||||||
var
|
|
||||||
PageDevelopmentInfo: TInputOptionWizardPage;
|
|
||||||
PageSingleOrMultiUser: TInputOptionWizardPage;
|
|
||||||
PageCannotInstall: TInputOptionWizardPage;
|
|
||||||
PageDownloadInfo: TOutputMsgWizardPage;
|
|
||||||
PageInstallInfo: TOutputMsgWizardPage;
|
|
||||||
prerequisitesChecked: boolean;
|
|
||||||
prerequisitesMet: boolean;
|
|
||||||
|
|
||||||
/// Returns the path for the Wow6432Node registry tree if the current operating
|
|
||||||
/// system is 64-bit, i.e., simulates WOW64 redirection.
|
|
||||||
function GetWowNode(): string;
|
|
||||||
begin
|
|
||||||
if IsWin64 then
|
|
||||||
begin
|
|
||||||
result := 'Wow6432Node\';
|
|
||||||
end
|
|
||||||
else
|
|
||||||
begin
|
|
||||||
result := '';
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
/// Checks if a given Word version is installed
|
|
||||||
function IsWordVersionInstalled(version: integer): boolean;
|
|
||||||
var key: string;
|
|
||||||
var lookup1, lookup2: boolean;
|
|
||||||
begin
|
|
||||||
key := 'Microsoft\Office\' + IntToStr(version) + '.0\Word\InstallRoot';
|
|
||||||
lookup1 := RegKeyExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\' + GetWowNode + key);
|
|
||||||
|
|
||||||
// If checking for version >= 14.0 ("2010"), which was the first version
|
|
||||||
// that was produced in both 32-bit and 64-bit, on a 64-bit system we
|
|
||||||
// also need to check a path without 'Wow6434Node'.
|
|
||||||
if IsWin64 and (version >= 14) then
|
|
||||||
begin
|
|
||||||
lookup2 := RegKeyExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\' + key);
|
|
||||||
end;
|
|
||||||
|
|
||||||
result := lookup1 or lookup2;
|
|
||||||
end;
|
|
||||||
|
|
||||||
/// Checks if only Word 2007 is installed
|
|
||||||
function IsOnlyWord2007Installed(): boolean;
|
|
||||||
var
|
|
||||||
i: integer;
|
|
||||||
begin
|
|
||||||
result := IsWordVersionInstalled(12);
|
|
||||||
|
|
||||||
// Iterate through all
|
|
||||||
for i := 14 to maxWord do
|
|
||||||
begin
|
|
||||||
if IsWordVersionInstalled(i) then
|
|
||||||
begin
|
|
||||||
result := false;
|
|
||||||
break;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
/// Checks if hotfix KB976477 is installed. This hotfix
|
|
||||||
/// is required to make Word 2007 recognize add-ins in
|
|
||||||
/// the HKLM hive as well.
|
|
||||||
function IsHotfixInstalled(): boolean;
|
|
||||||
begin
|
|
||||||
result := RegKeyExists(HKEY_LOCAL_MACHINE,
|
|
||||||
'SOFTWARE\Microsoft\Windows\Current Version\Uninstall\KB976477');
|
|
||||||
end;
|
|
||||||
|
|
||||||
/// Retrieves the build number of an installed Office version
|
|
||||||
/// in OutBuild. Returns true if the requested Office version
|
|
||||||
/// is installed and false if it is not installed.
|
|
||||||
function GetOfficeBuild(OfficeVersion: integer; var OutBuild: integer): boolean;
|
|
||||||
var
|
|
||||||
key: string;
|
|
||||||
value: string;
|
|
||||||
build: string;
|
|
||||||
begin
|
|
||||||
key := 'SOFTWARE\' + GetWowNode + 'Microsoft\Office\' +
|
|
||||||
IntToStr(OfficeVersion) + '.0\Common\ProductVersion';
|
|
||||||
if RegQueryStringValue(HKEY_LOCAL_MACHINE, key, 'LastProduct', value) then
|
|
||||||
begin
|
|
||||||
// Office build numbers always have 4 digits, at least as of Feb. 2015;
|
|
||||||
// from a string '14.0.1234.5000' simply copy 4 characters from the 5th
|
|
||||||
// position to get the build number. TODO: Make this future-proof.
|
|
||||||
build := Copy(value, 6, 4);
|
|
||||||
Log('Found ProductVersion "' + value + '" for queried Office version '
|
|
||||||
+ IntToStr(OfficeVersion) + ', extracted build number ' + build);
|
|
||||||
OutBuild := StrToInt(build);
|
|
||||||
result := true;
|
|
||||||
end
|
|
||||||
else
|
|
||||||
Log('Did not find LastProduct key for Office version ' +
|
|
||||||
IntToStr(OfficeVersion) + '.0.');
|
|
||||||
end;
|
|
||||||
|
|
||||||
/// Asserts if Office 2007 is installed. Does not check whether other Office
|
|
||||||
/// versions are concurrently installed.
|
|
||||||
function IsOffice2007Installed(): boolean;
|
|
||||||
begin
|
|
||||||
result := IsWordVersionInstalled(12);
|
|
||||||
if result then Log('Detected Office 2007.');
|
|
||||||
end;
|
|
||||||
|
|
||||||
/// Asserts if Office 2010 without service pack is installed.
|
|
||||||
/// For build number, see http://support.microsoft.com/kb/2121559/en-us
|
|
||||||
function IsOffice2010NoSpInstalled(): boolean;
|
|
||||||
var
|
|
||||||
build: integer;
|
|
||||||
begin
|
|
||||||
if GetOfficeBuild(14, build) then
|
|
||||||
begin
|
|
||||||
result := build = 4763; // 4763 is the original Office 2007 build
|
|
||||||
if result then
|
|
||||||
Log('Detected Office 2010 without service pack (v. 14.0, build 4763)')
|
|
||||||
else
|
|
||||||
Log('Detected Office 2010, apparently with some service pack (build ' +
|
|
||||||
IntToStr(build) + ').');
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
/// Checks if the VSTO runtime is installed. This is relevant if only
|
|
||||||
/// Word 2007 is installed. Since Office 2010, the CLR is
|
|
||||||
/// automatically included.
|
|
||||||
/// The presence of the VSTO runtime is indicated by the presence one of
|
|
||||||
/// four possible registry keys.
|
|
||||||
/// See: http://xltoolbox.sf.net/blog/2015/01/net-vsto-add-ins-getting-prerequisites-right
|
|
||||||
/// HKLM\SOFTWARE\Microsoft\VSTO Runtime Setup\v4R (32-bit)
|
|
||||||
/// HKLM\SOFTWARE\Wow6432Node\Microsoft\VSTO Runtime Setup\v4R (64-bit)
|
|
||||||
function IsVstorInstalled(): boolean;
|
|
||||||
var
|
|
||||||
software, vstorPath: string;
|
|
||||||
begin
|
|
||||||
software := 'SOFTWARE\';
|
|
||||||
vstorPath := 'Microsoft\VSTO Runtime Setup\v4R';
|
|
||||||
result := RegKeyExists(HKEY_LOCAL_MACHINE, software + GetWowNode + vstorPath);
|
|
||||||
end;
|
|
||||||
|
|
||||||
/// Checks if the .NET 4.0 (or 4.5) runtime is installed.
|
|
||||||
/// See https://msdn.microsoft.com/en-us/library/hh925568
|
|
||||||
function IsNetInstalled(): boolean;
|
|
||||||
begin
|
|
||||||
result := RegKeyExists(HKEY_LOCAL_MACHINE,
|
|
||||||
'SOFTWARE\' + GetWowNode + 'Microsoft\NET Framework Setup\NDP\v4');
|
|
||||||
end;
|
|
||||||
|
|
||||||
/// Asserts if the VSTO runtime for .NET 4.0 redistributable needs to be
|
|
||||||
/// downloaded and installed.
|
|
||||||
/// If Office 2010 SP 1 or newer is installed on the system, the VSTOR runtime
|
|
||||||
/// will be automagically configured as long as the .NET 4.0 runtime is present.
|
|
||||||
/// Office 2007 and Office 2010 without service pack need the VSTO runtime
|
|
||||||
/// redistributable. For details, see:
|
|
||||||
/// http://xltoolbox.sf.net/blog/2015/01/net-vsto-add-ins-getting-prerequisites-right
|
|
||||||
function NeedToInstallVstor(): boolean;
|
|
||||||
begin
|
|
||||||
result := false; // Default for Office 2010 SP1 or newer
|
|
||||||
if IsOffice2007Installed or IsOffice2010NoSpInstalled then
|
|
||||||
result := not IsVstorInstalled;
|
|
||||||
end;
|
|
||||||
|
|
||||||
/// Checks if all required prerequisites are met, i.e. if the necessary
|
|
||||||
/// runtimes are installed on the system
|
|
||||||
function PrerequisitesAreMet(): boolean;
|
|
||||||
begin
|
|
||||||
// Cache check result to avoid multiple registry lookups and log messages
|
|
||||||
if not prerequisitesChecked then
|
|
||||||
begin
|
|
||||||
prerequisitesMet := IsNetInstalled and not NeedToInstallVstor;
|
|
||||||
prerequisitesChecked := true;
|
|
||||||
end;
|
|
||||||
result := prerequisitesMet;
|
|
||||||
end;
|
|
||||||
|
|
||||||
/// Checks if a file exists and has a valid Sha1 sum.
|
|
||||||
function IsFileValid(file: string; expectedSha1: string): boolean;
|
|
||||||
var
|
|
||||||
actualSha1: string;
|
|
||||||
begin
|
|
||||||
try
|
|
||||||
if FileExists(file) then
|
|
||||||
begin
|
|
||||||
actualSha1 := GetSHA1OfFile(file);
|
|
||||||
end;
|
|
||||||
finally
|
|
||||||
result := actualSha1 = expectedSha1;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
/// Returns the path to the downloaded VSTO runtime installer.
|
|
||||||
function GetVstorInstallerPath(): string;
|
|
||||||
begin
|
|
||||||
result := ExpandConstant('{%temp}\vstor_redist_40.exe');
|
|
||||||
end;
|
|
||||||
|
|
||||||
/// Returns the path to the downloaded .NET runtime installer.
|
|
||||||
function GetNetInstallerPath(): string;
|
|
||||||
begin
|
|
||||||
result := ExpandConstant('{%temp}\dotNetFx40_Full_x86_x64.exe');
|
|
||||||
end;
|
|
||||||
|
|
||||||
/// Checks if the VSTO runtime redistributable setup file has already been
|
|
||||||
/// downloaded by comparing SHA1 checksums.
|
|
||||||
function IsVstorDownloaded(): boolean;
|
|
||||||
begin
|
|
||||||
result := IsFileValid(GetVstorInstallerPath, '{#VSTORSHA1}');
|
|
||||||
end;
|
|
||||||
|
|
||||||
/// Checks if the .NET runtime setup file has already been
|
|
||||||
/// downloaded by comparing SHA1 checksums.
|
|
||||||
function IsNetDownloaded(): boolean;
|
|
||||||
begin
|
|
||||||
result := IsFileValid(GetNetInstallerPath, '{#DOTNETSHA1}');
|
|
||||||
end;
|
|
||||||
|
|
||||||
/// Determines if the VSTO runtime needs to be downloaded.
|
|
||||||
/// This is not the case it the runtime is already installed,
|
|
||||||
/// or if there is a file with a valid Sha1 sum.
|
|
||||||
function NeedToDownloadVstor: boolean;
|
|
||||||
begin
|
|
||||||
result := NeedToInstallVstor and not IsVstorDownloaded;
|
|
||||||
end;
|
|
||||||
|
|
||||||
/// Determines if the VSTO runtime needs to be downloaded.
|
|
||||||
/// This is not the case it the runtime is already installed,
|
|
||||||
/// or if there is a file with a valid Sha1 sum.
|
|
||||||
function NeedToDownloadNet: boolean;
|
|
||||||
begin
|
|
||||||
result := not IsNetInstalled and not IsNetDownloaded;
|
|
||||||
end;
|
|
||||||
|
|
||||||
/// Determines whether or not a system-wide installation
|
|
||||||
/// is possible. This depends on whether the current user
|
|
||||||
/// is an administrator, and whether the hotfix KB976477
|
|
||||||
/// is present on the system if Word 2007 is the only version
|
|
||||||
/// of Word that is present (without that hotfix, Word
|
|
||||||
/// 2007 does not load add-ins that are registered in the
|
|
||||||
/// HKLM hive).
|
|
||||||
function CanInstallSystemWide(): boolean;
|
|
||||||
begin
|
|
||||||
if IsAdminLoggedOn then
|
|
||||||
begin
|
|
||||||
if IsOnlyWord2007Installed then
|
|
||||||
begin
|
|
||||||
result := IsHotfixInstalled;
|
|
||||||
end
|
|
||||||
else
|
|
||||||
begin
|
|
||||||
result := true;
|
|
||||||
end;
|
|
||||||
end
|
|
||||||
else
|
|
||||||
begin
|
|
||||||
result := false;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure CreateSingleOrAllUserPage();
|
|
||||||
begin
|
|
||||||
PageSingleOrMultiUser := CreateInputOptionPage(wpLicense,
|
|
||||||
CustomMessage('SingleOrMulti'), CustomMessage('SingleOrMultiSubcaption'),
|
|
||||||
CustomMessage('SingleOrMultiDesc'), True, False);
|
|
||||||
PageSingleOrMultiUser.Add(CustomMessage('SingleOrMultiSingle'));
|
|
||||||
PageSingleOrMultiUser.Add(CustomMessage('SingleOrMultiAll'));
|
|
||||||
if CanInstallSystemWide then
|
|
||||||
begin
|
|
||||||
PageSingleOrMultiUser.Values[1] := True;
|
|
||||||
end
|
|
||||||
else
|
|
||||||
begin
|
|
||||||
PageSingleOrMultiUser.Values[0] := True;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure CreateCannotInstallPage();
|
|
||||||
begin
|
|
||||||
PageCannotInstall := CreateInputOptionPage(wpWelcome,
|
|
||||||
CustomMessage('CannotInstallCaption'),
|
|
||||||
CustomMessage('CannotInstallDesc'),
|
|
||||||
CustomMessage('CannotInstallMsg'), True, False);
|
|
||||||
PageCannotInstall.Add(CustomMessage('CannotInstallCont'));
|
|
||||||
PageCannotInstall.Add(CustomMessage('CannotInstallAbort'));
|
|
||||||
PageCannotInstall.Values[1] := True;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure CreateDownloadInfoPage();
|
|
||||||
var
|
|
||||||
bytes: Int64;
|
|
||||||
mib: Single;
|
|
||||||
size: String;
|
|
||||||
begin
|
|
||||||
if idpGetFilesSize(bytes) then
|
|
||||||
begin
|
|
||||||
mib := bytes / 1048576;
|
|
||||||
size := Format('%.1f', [ mib ]);
|
|
||||||
end
|
|
||||||
else
|
|
||||||
begin
|
|
||||||
size := '[?]'
|
|
||||||
end;
|
|
||||||
PageDownloadInfo := CreateOutputMsgPage(PageSingleOrMultiUser.Id,
|
|
||||||
CustomMessage('RequiredCaption'),
|
|
||||||
CustomMessage('RequiredDesc'),
|
|
||||||
Format(CustomMessage('RequiredMsg'), [idpFilesCount, size]));
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure CreateInstallInfoPage();
|
|
||||||
begin
|
|
||||||
PageInstallInfo := CreateOutputMsgPage(PageDownloadInfo.Id,
|
|
||||||
CustomMessage('InstallCaption'),
|
|
||||||
CustomMessage('InstallDesc'),
|
|
||||||
CustomMessage('InstallMsg'));
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
function InitializeSetup(): boolean;
|
|
||||||
var
|
|
||||||
minWordInstalled: boolean;
|
|
||||||
i: integer;
|
|
||||||
begin
|
|
||||||
// Determine if Word 2007 or newer is installed (absolute requirement
|
|
||||||
// for this VSTO add-in). Word 2007 ist version 12.0.
|
|
||||||
for i := 12 to maxWord do
|
|
||||||
begin
|
|
||||||
minWordInstalled := minWordInstalled or IsWordVersionInstalled(i);
|
|
||||||
end;
|
|
||||||
|
|
||||||
if not minWordInstalled then
|
|
||||||
begin
|
|
||||||
result := False;
|
|
||||||
Log('Informing user that Word 2007 or newer is required.');
|
|
||||||
MsgBox(CustomMessage('Word2007Required'), mbInformation, MB_OK);
|
|
||||||
end
|
|
||||||
else
|
|
||||||
begin
|
|
||||||
result := True;
|
|
||||||
end
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure InitializeWizard();
|
|
||||||
begin
|
|
||||||
// CreateDevelopmentInfoPage;
|
|
||||||
CreateSingleOrAllUserPage;
|
|
||||||
if not PrerequisitesAreMet then
|
|
||||||
begin
|
|
||||||
Log('Not all prerequisites are met...');
|
|
||||||
CreateCannotInstallPage;
|
|
||||||
if NeedToDownloadNet then
|
|
||||||
begin
|
|
||||||
Log('Mark {#DOTNETURL} for download.');
|
|
||||||
idpAddFileSize('{#DOTNETURL}', GetNetInstallerPath, 50449456);
|
|
||||||
end;
|
|
||||||
if NeedToDownloadVstor then
|
|
||||||
begin
|
|
||||||
Log('Mark {#VSTORURL} for download.');
|
|
||||||
idpAddFileSize('{#VSTORURL}', GetVstorInstallerPath, 40123576);
|
|
||||||
end;
|
|
||||||
CreateDownloadInfoPage;
|
|
||||||
CreateInstallInfoPage;
|
|
||||||
idpDownloadAfter(PageDownloadInfo.Id);
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function ExecuteNetSetup(): boolean;
|
|
||||||
var
|
|
||||||
exitCode: integer;
|
|
||||||
begin
|
|
||||||
result := true;
|
|
||||||
if not IsNetInstalled then
|
|
||||||
begin
|
|
||||||
if IsNetDownloaded then
|
|
||||||
begin
|
|
||||||
Log('Valid .NET runtime download found, installing.');
|
|
||||||
Exec(GetNetInstallerPath, '/norestart',
|
|
||||||
'', SW_SHOW, ewWaitUntilTerminated, exitCode);
|
|
||||||
BringToFrontAndRestore;
|
|
||||||
if not IsNetInstalled then
|
|
||||||
begin
|
|
||||||
MsgBox(CustomMessage('StillNotInstalled'), mbInformation, MB_OK);
|
|
||||||
result := False;
|
|
||||||
end;
|
|
||||||
end
|
|
||||||
else
|
|
||||||
begin
|
|
||||||
Log('No or invalid .NET runtime download found, will not install.');
|
|
||||||
MsgBox(CustomMessage('DownloadNotValidated'), mbInformation, MB_OK);
|
|
||||||
result := False;
|
|
||||||
end;
|
|
||||||
end; // not IsNetInstalled
|
|
||||||
end;
|
|
||||||
|
|
||||||
function ExecuteVstorSetup(): boolean;
|
|
||||||
var
|
|
||||||
exitCode: integer;
|
|
||||||
begin
|
|
||||||
result := true;
|
|
||||||
if NeedToInstallVstor then
|
|
||||||
begin
|
|
||||||
if IsVstorDownloaded then
|
|
||||||
begin
|
|
||||||
Log('Valid VSTO runtime download found, installing.');
|
|
||||||
Exec(GetVstorInstallerPath, '/norestart', '', SW_SHOW,
|
|
||||||
ewWaitUntilTerminated, exitCode);
|
|
||||||
BringToFrontAndRestore;
|
|
||||||
if not IsVstorInstalled then
|
|
||||||
begin
|
|
||||||
MsgBox(CustomMessage('StillNotInstalled'), mbInformation, MB_OK);
|
|
||||||
result := False;
|
|
||||||
end;
|
|
||||||
end
|
|
||||||
else
|
|
||||||
begin
|
|
||||||
Log('No or invalid VSTO runtime download found, will not install.');
|
|
||||||
MsgBox(CustomMessage('DownloadNotValidated'), mbInformation, MB_OK);
|
|
||||||
result := False;
|
|
||||||
end;
|
|
||||||
end; // not IsVstorInstalled
|
|
||||||
end;
|
|
||||||
|
|
||||||
function NextButtonClick(CurPageID: Integer): Boolean;
|
|
||||||
begin
|
|
||||||
result := True;
|
|
||||||
{
|
|
||||||
if not WizardSilent then
|
|
||||||
begin
|
|
||||||
if CurPageID = PageDevelopmentInfo.Id then
|
|
||||||
begin
|
|
||||||
if PageDevelopmentInfo.Values[0] = False then
|
|
||||||
begin
|
|
||||||
Log('Requesting user to acknowledge use of a developmental version.');
|
|
||||||
MsgBox(CustomMessage('DevVerMsgBox'), mbInformation, MB_OK);
|
|
||||||
result := False;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
}
|
|
||||||
|
|
||||||
if not PrerequisitesAreMet then
|
|
||||||
begin
|
|
||||||
// Abort the installation if any of the runtimes are missing, the user
|
|
||||||
// is not an administrator, and requested to abort the installation.
|
|
||||||
if CurPageID = PageCannotInstall.ID then
|
|
||||||
begin
|
|
||||||
if PageCannotInstall.Values[1] = true then
|
|
||||||
begin
|
|
||||||
WizardForm.Close;
|
|
||||||
result := False;
|
|
||||||
end
|
|
||||||
else
|
|
||||||
begin
|
|
||||||
Log('Non-admin user continues although not all required runtimes are installed.');
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
if CurPageID = PageInstallInfo.ID then
|
|
||||||
begin
|
|
||||||
// Return true if installation succeeds (or no installation required)
|
|
||||||
result := ExecuteNetSetup and ExecuteVstorSetup;
|
|
||||||
end;
|
|
||||||
end; // not PrerequisitesAreMet
|
|
||||||
end;
|
|
||||||
|
|
||||||
/// Skips the folder selection, single/multi user, and ready pages for
|
|
||||||
/// normal users without power privileges.
|
|
||||||
/// This function also takes care of dynamically determining what wizard
|
|
||||||
/// pages to install, depending on the current system setup and whether
|
|
||||||
/// the current user is an administrator.
|
|
||||||
function ShouldSkipPage(PageID: Integer): Boolean;
|
|
||||||
begin
|
|
||||||
result := False;
|
|
||||||
|
|
||||||
if not PrerequisitesAreMet then
|
|
||||||
begin
|
|
||||||
// The PageDownloadCannotInstall will only have been initialized if
|
|
||||||
// PrerequisitesAreMet returned false.
|
|
||||||
if PageID = PageCannotInstall.ID then
|
|
||||||
begin
|
|
||||||
// Skip the warning if the user is an admin.
|
|
||||||
result := IsAdminLoggedOn
|
|
||||||
if not result then
|
|
||||||
begin
|
|
||||||
Log('Warning user that required runtimes cannot be installed due to missing privileges');
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
if PageID = PageDownloadInfo.ID then
|
|
||||||
begin
|
|
||||||
// Skip page informing about downloads if no files need to be downloaded.
|
|
||||||
result := idpFilesCount = 0;
|
|
||||||
end;
|
|
||||||
|
|
||||||
if PageID = IDPForm.Page.ID then
|
|
||||||
begin
|
|
||||||
// Skip downloader plugin if there are no files to download.
|
|
||||||
result := idpFilesCount = 0;
|
|
||||||
if not result then
|
|
||||||
begin
|
|
||||||
Log('Beginning download of ' + IntToStr(idpFilesCount) + ' file(s).');
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
end; // not PrerequisitesAreMet
|
|
||||||
|
|
||||||
if PageID = PageSingleOrMultiUser.ID then
|
|
||||||
begin
|
|
||||||
if IsOnlyWord2007Installed then
|
|
||||||
begin
|
|
||||||
Log('Only Word 2007 appears to be installed on this system.');
|
|
||||||
if IsHotfixInstalled then
|
|
||||||
begin
|
|
||||||
Log('Hotfix KB976477 found; can install for all users.');
|
|
||||||
end
|
|
||||||
else
|
|
||||||
begin
|
|
||||||
Log('Hotfix KB976477 not found; cannot install for all users.');
|
|
||||||
end;
|
|
||||||
end
|
|
||||||
else
|
|
||||||
begin
|
|
||||||
Log('Word 2010 or newer found on this system.');
|
|
||||||
end;
|
|
||||||
if CanInstallSystemWide then
|
|
||||||
begin
|
|
||||||
Log('Offer installation for all users.');
|
|
||||||
result := False;
|
|
||||||
end
|
|
||||||
else
|
|
||||||
begin
|
|
||||||
Log('Offer single-user installation only.');
|
|
||||||
result := True;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
if (PageID = wpSelectDir) or (PageID = wpReady) then
|
|
||||||
begin
|
|
||||||
// Do not show the pages to select the target directory, and the ready
|
|
||||||
// page if the user is not an admin.
|
|
||||||
result := not IsAdminLoggedOn;
|
|
||||||
end
|
|
||||||
end;
|
|
||||||
|
|
||||||
/// Helper function that evaluates the custom PageSingleOrMultiUser page.
|
|
||||||
function IsMultiUserInstall(): Boolean;
|
|
||||||
begin
|
|
||||||
result := PageSingleOrMultiUser.Values[1];
|
|
||||||
end;
|
|
||||||
|
|
||||||
/// Suggest an initial target directory depending on whether
|
|
||||||
/// the installer is run with admin privileges.
|
|
||||||
function SuggestInstallDir(Param: string): string;
|
|
||||||
var
|
|
||||||
dir: string;
|
|
||||||
begin
|
|
||||||
if CanInstallSystemWide then
|
|
||||||
begin
|
|
||||||
dir := ExpandConstant('{pf}');
|
|
||||||
end
|
|
||||||
else
|
|
||||||
begin
|
|
||||||
dir := ExpandConstant('{userappdata}');
|
|
||||||
end;
|
|
||||||
result := AddBackslash(dir) + 'zaaReloaded';
|
|
||||||
end;
|
|
||||||
|
|
||||||
/// Converts backslashes to forward slashes.
|
|
||||||
function ConvertSlash(Value: string): string;
|
|
||||||
begin
|
|
||||||
StringChangeEx(Value, '\', '/', True);
|
|
||||||
Result := Value;
|
|
||||||
end;
|
|
||||||
@ -1,4 +1,4 @@
|
|||||||
2.2.1
|
2.2.2
|
||||||
http://zaa.nephrowiki.de/downloads/zaaReloaded-$VERSION.exe
|
http://zaa.nephrowiki.de/downloads/zaaReloaded-$VERSION.exe
|
||||||
5d961a309294b43c88b17905206f1162791e14e7dad8d367dc47c21205a60e3e publish/release/zaaReloaded-2.2.1.exe
|
06221d6b4b1882414daa439d5cc68a7a9b88b57c7a1b96b9184c6c8afc624eec deploy/releases/zaaReloaded-2.2.2.exe
|
||||||
|
|
||||||
|
|||||||
@ -1,2 +1,2 @@
|
|||||||
2.2.1
|
2.2.2
|
||||||
2.2.1.0
|
2.2.2.0
|
||||||
|
|||||||
@ -464,10 +464,11 @@
|
|||||||
<SignManifests>true</SignManifests>
|
<SignManifests>true</SignManifests>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<PropertyGroup>
|
<PropertyGroup>
|
||||||
<ManifestKeyFile>zaaReloaded2_TemporaryKey.pfx</ManifestKeyFile>
|
<ManifestKeyFile>
|
||||||
|
</ManifestKeyFile>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<PropertyGroup>
|
<PropertyGroup>
|
||||||
<ManifestCertificateThumbprint>0EDB0CD8E3605AC48387A527A80943403E568BD9</ManifestCertificateThumbprint>
|
<ManifestCertificateThumbprint>6322CFC6CFA69B4D2DEFAE4A901473C8B35B0DB9</ManifestCertificateThumbprint>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<PropertyGroup>
|
<PropertyGroup>
|
||||||
<SignAssembly>true</SignAssembly>
|
<SignAssembly>true</SignAssembly>
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user