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();
var
Version: String;
ResultCode: Integer;
begin
if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\WOW6432Node\TuxPaint',
'Version', Version) then
if FileExists('C:\Program Files (x86)\TuxPaint\unins000.exe') then
begin
MsgBox('Please uninstall previous version.', mbInformation, MB_OK);
Abort;
if MsgBox('Old version will be uninstalled automatically.', mbInformation, MB_OKCANCEL) = IDOK then
begin
Exec('C:\Program Files (x86)\TuxPaint\unins000.exe', '/SILENT', '', SW_SHOW, ewWaitUntilTerminated, ResultCode);
end
else begin
Abort;
end;
end;
end;