chylex/TweetDuck
1
0
Fork 0
mirror of https://github.com/chylex/TweetDuck.git synced 2025-05-02 02:34:08 +02:00
Code

Fix update installer changing uninstaller name and remove /MERGETASKS parameter

Browse Source
This commit is contained in:
chylex 2018-05-01 14:36:51 +02:00
parent 22d0a372d8
commit 8cb81d44ee
1 changed files with 3 additions and 2 deletions

5
bld/gen_upd.iss
View File

@ -13,7 +13,7 @@
[Setup] [Setup]
AppId={{{#MyAppID}} AppId={{{#MyAppID}}
AppName={#MyAppName} Update AppName={#MyAppName}
AppVersion={#MyAppVersion} AppVersion={#MyAppVersion}
AppVerName={#MyAppName} {#MyAppVersion} AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher} AppPublisher={#MyAppPublisher}
@ -161,6 +161,7 @@ end;
{ Prepare download plugin if there are any files to download, and set the installation path. } { Prepare download plugin if there are any files to download, and set the installation path. }
procedure InitializeWizard(); procedure InitializeWizard();
begin begin
WizardForm.Caption := WizardForm.Caption + ' Update';
WizardForm.DirEdit.Text := UpdatePath; WizardForm.DirEdit.Text := UpdatePath;
if idpFilesCount <> 0 then if idpFilesCount <> 0 then
@ -318,7 +319,7 @@ begin
WizardForm.ProgressGauge.Style := npbstMarquee; WizardForm.ProgressGauge.Style := npbstMarquee;
try try
if Exec(InstallFile, '/SP- /SILENT /MERGETASKS="!desktopicon" /UPDATEPATH="'+UpdatePath+'"', '', SW_SHOW, ewWaitUntilTerminated, ResultCode) then if Exec(InstallFile, '/SP- /SILENT /UPDATEPATH="'+UpdatePath+'"', '', SW_SHOW, ewWaitUntilTerminated, ResultCode) then
begin begin
if ResultCode <> 0 then if ResultCode <> 0 then
begin begin