notgne2/tuxpaint-pencil-sharpener
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Windows installer to invoke uninstaller if old x86 type installation detected.

Browse source
This commit is contained in:
dolphin6k 2021-10-21 23:48:29 +09:00
parent a0dfe6b1df
commit 14edc6f46b
1 changed files with 9 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

14
win32/tuxpaint.iss
View file

@ -244,13 +244,17 @@ end;
Procedure ForceUninstallPreviousX86Install(); Procedure ForceUninstallPreviousX86Install();
var var
Version: String; ResultCode: Integer;
begin begin
if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\WOW6432Node\TuxPaint', if FileExists('C:\Program Files (x86)\TuxPaint\unins000.exe') then
'Version', Version) then
begin begin
MsgBox('Please uninstall previous version.', mbInformation, MB_OK); if MsgBox('Old version will be uninstalled automatically.', mbInformation, MB_OKCANCEL) = IDOK then
Abort; begin
Exec('C:\Program Files (x86)\TuxPaint\unins000.exe', '/SILENT', '', SW_SHOW, ewWaitUntilTerminated, ResultCode);
end
else begin
Abort;
end;
end; end;
end; end;