diff --git a/win32/tuxpaint.iss b/win32/tuxpaint.iss index fdd056b0f..452ebf02d 100644 --- a/win32/tuxpaint.iss +++ b/win32/tuxpaint.iss @@ -242,6 +242,18 @@ begin Result := Path; end; +Procedure ForceUninstallPreviousX86Install(); +var + Version: String; +begin + if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\WOW6432Node\TuxPaint', + 'Version', Version) then + begin + MsgBox('Please uninstall previous version.', mbInformation, MB_OK); + Abort; + end; +end; + procedure CreateTheWizardPages; var Page: TWizardPage; @@ -530,6 +542,7 @@ end; procedure InitializeWizard(); begin begin + ForceUninstallPreviousX86Install(); CreateTheWizardPages; end end;