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

Do not show message box to confirm uninstallation of old install when /VERYSILENT switch specified.

Browse source
This commit is contained in:
dolphin6k 2022-01-11 15:47:59 +09:00
parent c67dfbc562
commit 4a70b008c1
1 changed files with 22 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

25
win32/tuxpaint.iss
View file

@ -255,6 +255,19 @@ begin
Result := Path;
end;
function CmdLineParamExists(const Value: string): Boolean;
var
I: Integer;
begin
Result := False;
for I := 1 to ParamCount do
if CompareText(ParamStr(I), Value) = 0 then
begin
Result := True;
Exit;
end;
end;
Procedure ForceUninstallPreviousX86Install();
var
ResultCode: Integer;
@ -263,12 +276,18 @@ begin
begin
if FileExists('C:\Program Files (x86)\TuxPaint\unins000.exe') then
begin
if MsgBox('Old version will be uninstalled automatically.', mbInformation, MB_OKCANCEL) = IDOK then
if CmdLineParamExists('/VERYSILENT') = False then
begin
Exec('C:\Program Files (x86)\TuxPaint\unins000.exe', '/SILENT', '', SW_SHOW, ewWaitUntilTerminated, ResultCode);
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
else begin
Abort;
Exec('C:\Program Files (x86)\TuxPaint\unins000.exe', '/VERYSILENT', '', SW_SHOW, ewWaitUntilTerminated, ResultCode);
end;
end;
end;