A property winConfig.removeOldLibs

Author: fvarrui

src/main/java/io/github/fvarrui/javapackager/model/WindowsConfig.java

@@ -45,6 +45,7 @@ public class WindowsConfig implements Serializable {
 	private SetupMode setupMode = SetupMode.installForAllUsers;
 	private WindowsSigning signing;
 	private Registry registry = new Registry();
+	private boolean removeOldLibs = false;
 
 	public File getIcoFile() {
 		return icoFile;
@@ -269,15 +270,23 @@ public boolean isDisableRunAfterInstall() {
 	public void setDisableRunAfterInstall(boolean disableRunAfterInstall) {
 		this.disableRunAfterInstall = disableRunAfterInstall;
 	}
-	
+
 	public void setDisableWelcomePage(boolean disableWelcomePage) {
 		this.disableWelcomePage = disableWelcomePage;
 	}
-	
+
 	public boolean isDisableWelcomePage() {
 		return disableWelcomePage;
 	}
 
+	public boolean isRemoveOldLibs() {
+		return removeOldLibs;
+	}
+
+	public void setRemoveOldLibs(boolean removeOldLibs) {
+		this.removeOldLibs = removeOldLibs;
+	}
+
 	@Override
 	public String toString() {
 		return "WindowsConfig [icoFile=" + icoFile + ", headerType=" + headerType + ", companyName=" + companyName
@@ -290,7 +299,8 @@ public String toString() {
 				+ ", disableWelcomePage=" + disableWelcomePage + ", createDesktopIconTask=" + createDesktopIconTask
 				+ ", generateSetup=" + generateSetup + ", generateMsi=" + generateMsi + ", generateMsm=" + generateMsm
 				+ ", msiUpgradeCode=" + msiUpgradeCode + ", wrapJar=" + wrapJar + ", setupLanguages=" + setupLanguages
-				+ ", setupMode=" + setupMode + ", signing=" + signing + ", registry=" + registry + "]";
+				+ ", setupMode=" + setupMode + ", signing=" + signing + ", registry=" + registry + ", removeOldLibs="
+				+ removeOldLibs + "]";
 	}
 
 	/**

src/main/resources/windows/iss.vtl

@@ -92,3 +92,42 @@ Name: "{autodesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; IconFilen
 #if (!$info.winConfig.disableRunAfterInstall)
 Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent runascurrentuser
 #end
+
+[Code]
+
+function GetInstallLocation(): String;
+var
+    unInstPath: String;
+    installLocation: String;
+begin
+    unInstPath := ExpandConstant('Software\Microsoft\Windows\CurrentVersion\Uninstall\{#emit SetupSetting("AppId")}_is1');
+    installLocation := '';
+    if not RegQueryStringValue(HKLM, unInstPath, 'InstallLocation', installLocation) then
+        RegQueryStringValue(HKCU, unInstPath, 'InstallLocation', installLocation);
+    Result := RemoveQuotes(installLocation);
+end;
+
+#if ($info.winConfig.removeOldLibs)
+procedure RemoveOldLibs();
+var
+    installLocation: String;
+    libsLocation: String;
+begin
+    installLocation := GetInstallLocation();
+    if installLocation <> '' then 
+    begin
+        libsLocation := installLocation + 'libs';
+        DelTree(libsLocation, True, True, True);
+    end;
+end;
+#end
+
+procedure CurStepChanged(CurStep: TSetupStep);
+begin
+    if CurStep = ssInstall then
+    begin
+#if ($info.winConfig.removeOldLibs)
+        RemoveOldLibs();
+#end
+    end;
+end;