mirror of
https://github.com/chylex/TweetDuck.git
synced 2024-11-13 23:42:46 +01:00
341 lines
11 KiB
Plaintext
341 lines
11 KiB
Plaintext
; Script generated by the Inno Script Studio Wizard.
|
|
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
|
|
|
|
#define MyAppName "TweetDuck"
|
|
#define MyAppPublisher "chylex"
|
|
#define MyAppURL "https://tweetduck.chylex.com"
|
|
#define MyAppExeName "TweetDuck.exe"
|
|
|
|
#define MyAppID "8C25A716-7E11-4AAD-9992-8B5D0C78AE06"
|
|
#define MyAppVersion GetFileVersion("..\bin\x86\Release\TweetDuck.exe")
|
|
#define CefVersion GetFileVersion("..\bin\x86\Release\libcef.dll")
|
|
|
|
[Setup]
|
|
AppId={{{#MyAppID}}
|
|
AppName={#MyAppName} Update
|
|
AppVersion={#MyAppVersion}
|
|
AppVerName={#MyAppName} {#MyAppVersion}
|
|
AppPublisher={#MyAppPublisher}
|
|
AppPublisherURL={#MyAppURL}
|
|
AppSupportURL={#MyAppURL}
|
|
AppUpdatesURL={#MyAppURL}
|
|
DefaultDirName={pf}\{#MyAppName}
|
|
DefaultGroupName={#MyAppName}
|
|
OutputBaseFilename={#MyAppName}.Update
|
|
VersionInfoVersion={#MyAppVersion}
|
|
SetupIconFile=.\Resources\icon.ico
|
|
Uninstallable=TDIsUninstallable
|
|
UninstallDisplayName={#MyAppName}
|
|
UninstallDisplayIcon={app}\{#MyAppExeName}
|
|
PrivilegesRequired=lowest
|
|
Compression=lzma/normal
|
|
SolidCompression=True
|
|
InternalCompressLevel=normal
|
|
MinVersion=0,6.1
|
|
|
|
#include <idp.iss>
|
|
|
|
[Languages]
|
|
Name: "english"; MessagesFile: "compiler:Default.isl"
|
|
|
|
[Files]
|
|
Source: "..\bin\x86\Release\{#MyAppExeName}"; DestDir: "{app}"; Flags: ignoreversion
|
|
Source: "..\bin\x86\Release\TweetDuck.*"; DestDir: "{app}"; Flags: ignoreversion
|
|
Source: "..\bin\x86\Release\TweetLib.*"; DestDir: "{app}"; Flags: ignoreversion
|
|
Source: "..\bin\x86\Release\scripts\*.*"; DestDir: "{app}\scripts"; Flags: ignoreversion recursesubdirs createallsubdirs
|
|
Source: "..\bin\x86\Release\plugins\*.*"; DestDir: "{app}\plugins"; Flags: ignoreversion recursesubdirs createallsubdirs
|
|
|
|
[Icons]
|
|
Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Check: TDIsUninstallable
|
|
|
|
[Run]
|
|
Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Parameters: "{code:TDGetRunArgs}"; Flags: nowait postinstall shellexec
|
|
|
|
[UninstallDelete]
|
|
Type: files; Name: "{app}\*.*"
|
|
Type: filesandordirs; Name: "{app}\locales"
|
|
Type: filesandordirs; Name: "{app}\scripts"
|
|
Type: filesandordirs; Name: "{localappdata}\{#MyAppName}\Cache"
|
|
Type: filesandordirs; Name: "{localappdata}\{#MyAppName}\GPUCache"
|
|
|
|
[InstallDelete]
|
|
Type: files; Name: "{app}\msvcp120.dll"
|
|
Type: files; Name: "{app}\msvcr120.dll"
|
|
Type: files; Name: "{app}\TweetLib.Audio.dll"
|
|
Type: filesandordirs; Name: "{app}\scripts"
|
|
Type: filesandordirs; Name: "{app}\plugins\official"
|
|
Type: files; Name: "{app}\locales\am.pak"
|
|
Type: files; Name: "{app}\locales\ar.pak"
|
|
Type: files; Name: "{app}\locales\bg.pak"
|
|
Type: files; Name: "{app}\locales\bn.pak"
|
|
Type: files; Name: "{app}\locales\ca.pak"
|
|
Type: files; Name: "{app}\locales\cs.pak"
|
|
Type: files; Name: "{app}\locales\da.pak"
|
|
Type: files; Name: "{app}\locales\de.pak"
|
|
Type: files; Name: "{app}\locales\el.pak"
|
|
Type: files; Name: "{app}\locales\en-GB.pak"
|
|
Type: files; Name: "{app}\locales\es-419.pak"
|
|
Type: files; Name: "{app}\locales\es.pak"
|
|
Type: files; Name: "{app}\locales\et.pak"
|
|
Type: files; Name: "{app}\locales\fa.pak"
|
|
Type: files; Name: "{app}\locales\fi.pak"
|
|
Type: files; Name: "{app}\locales\fil.pak"
|
|
Type: files; Name: "{app}\locales\fr.pak"
|
|
Type: files; Name: "{app}\locales\gu.pak"
|
|
Type: files; Name: "{app}\locales\he.pak"
|
|
Type: files; Name: "{app}\locales\hi.pak"
|
|
Type: files; Name: "{app}\locales\hr.pak"
|
|
Type: files; Name: "{app}\locales\hu.pak"
|
|
Type: files; Name: "{app}\locales\id.pak"
|
|
Type: files; Name: "{app}\locales\it.pak"
|
|
Type: files; Name: "{app}\locales\ja.pak"
|
|
Type: files; Name: "{app}\locales\kn.pak"
|
|
Type: files; Name: "{app}\locales\ko.pak"
|
|
Type: files; Name: "{app}\locales\lt.pak"
|
|
Type: files; Name: "{app}\locales\lv.pak"
|
|
Type: files; Name: "{app}\locales\ml.pak"
|
|
Type: files; Name: "{app}\locales\mr.pak"
|
|
Type: files; Name: "{app}\locales\ms.pak"
|
|
Type: files; Name: "{app}\locales\nb.pak"
|
|
Type: files; Name: "{app}\locales\nl.pak"
|
|
Type: files; Name: "{app}\locales\pl.pak"
|
|
Type: files; Name: "{app}\locales\pt-BR.pak"
|
|
Type: files; Name: "{app}\locales\pt-PT.pak"
|
|
Type: files; Name: "{app}\locales\ro.pak"
|
|
Type: files; Name: "{app}\locales\ru.pak"
|
|
Type: files; Name: "{app}\locales\sk.pak"
|
|
Type: files; Name: "{app}\locales\sl.pak"
|
|
Type: files; Name: "{app}\locales\sr.pak"
|
|
Type: files; Name: "{app}\locales\sv.pak"
|
|
Type: files; Name: "{app}\locales\sw.pak"
|
|
Type: files; Name: "{app}\locales\ta.pak"
|
|
Type: files; Name: "{app}\locales\te.pak"
|
|
Type: files; Name: "{app}\locales\th.pak"
|
|
Type: files; Name: "{app}\locales\tr.pak"
|
|
Type: files; Name: "{app}\locales\uk.pak"
|
|
Type: files; Name: "{app}\locales\vi.pak"
|
|
Type: files; Name: "{app}\locales\zh-CN.pak"
|
|
Type: files; Name: "{app}\locales\zh-TW.pak"
|
|
|
|
[Code]
|
|
function TDIsUninstallable: Boolean; forward;
|
|
function TDGetRunArgs(Param: String): String; forward;
|
|
function TDFindUpdatePath: String; forward;
|
|
function TDGetNetFrameworkVersion: Cardinal; forward;
|
|
function TDGetAppVersionClean: String; forward;
|
|
function TDGetFullDownloadFileName: String; forward;
|
|
function TDIsMatchingCEFVersion: Boolean; forward;
|
|
procedure TDExecuteFullDownload; forward;
|
|
|
|
var IsPortable: Boolean;
|
|
var UpdatePath: String;
|
|
|
|
{ Check .NET Framework version on startup, ask user if they want to proceed if older than 4.5.2. Prepare full download package if required. }
|
|
function InitializeSetup: Boolean;
|
|
begin
|
|
IsPortable := ExpandConstant('{param:PORTABLE}') = '1'
|
|
UpdatePath := TDFindUpdatePath()
|
|
|
|
if UpdatePath = '' then
|
|
begin
|
|
MsgBox('{#MyAppName} installation could not be found on your system.', mbCriticalError, MB_OK);
|
|
Result := False;
|
|
Exit;
|
|
end;
|
|
|
|
if not TDIsMatchingCEFVersion() then
|
|
begin
|
|
idpAddFile('https://github.com/{#MyAppPublisher}/{#MyAppName}/releases/download/'+TDGetAppVersionClean()+'/'+TDGetFullDownloadFileName(), ExpandConstant('{tmp}\{#MyAppName}.Full.exe'));
|
|
end;
|
|
|
|
if TDGetNetFrameworkVersion() >= 379893 then
|
|
begin
|
|
Result := True;
|
|
Exit;
|
|
end;
|
|
|
|
if (MsgBox('{#MyAppName} requires .NET Framework 4.5.2 or newer,'+#13+#10+'please download it from {#MyAppURL}'+#13+#10+#13+#10'Do you want to proceed with the setup anyway?', mbCriticalError, MB_YESNO or MB_DEFBUTTON2) = IDNO) then
|
|
begin
|
|
Result := False;
|
|
Exit;
|
|
end;
|
|
|
|
Result := True;
|
|
end;
|
|
|
|
{ Prepare download plugin if there are any files to download, and set the installation path. }
|
|
procedure InitializeWizard();
|
|
begin
|
|
WizardForm.DirEdit.Text := UpdatePath;
|
|
|
|
if idpFilesCount <> 0 then
|
|
begin
|
|
idpDownloadAfter(wpReady);
|
|
end;
|
|
end;
|
|
|
|
{ Ask user if they want to delete 'AppData\TweetDuck' and 'plugins' folders after uninstallation. }
|
|
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
|
|
var ProfileDataFolder: String;
|
|
var PluginDataFolder: String;
|
|
|
|
begin
|
|
if CurUninstallStep = usPostUninstall then
|
|
begin
|
|
ProfileDataFolder := ExpandConstant('{localappdata}\{#MyAppName}');
|
|
PluginDataFolder := ExpandConstant('{app}\plugins');
|
|
|
|
if (DirExists(ProfileDataFolder) or DirExists(PluginDataFolder)) and (MsgBox('Do you also want to delete your {#MyAppName} profile and plugins?', mbConfirmation, MB_YESNO or MB_DEFBUTTON2) = IDYES) then
|
|
begin
|
|
DelTree(ProfileDataFolder, True, True, True);
|
|
DelTree(PluginDataFolder, True, True, True);
|
|
DelTree(ExpandConstant('{app}'), True, False, False);
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
{ Remove uninstallation data and application to force them to be replaced with updated ones. }
|
|
procedure CurStepChanged(CurStep: TSetupStep);
|
|
begin
|
|
if CurStep = ssInstall then
|
|
begin
|
|
TDExecuteFullDownload();
|
|
|
|
if TDIsUninstallable() then
|
|
begin
|
|
DeleteFile(ExpandConstant('{app}\unins000.dat'));
|
|
DeleteFile(ExpandConstant('{app}\unins000.exe'));
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
{ Returns true if the installer should create uninstallation entries (i.e. not running in portable mode). }
|
|
function TDIsUninstallable: Boolean;
|
|
begin
|
|
Result := not IsPortable
|
|
end;
|
|
|
|
{ Returns a string used for arguments when running the app after update. }
|
|
function TDGetRunArgs(Param: String): String;
|
|
var Args: String;
|
|
begin
|
|
Args := ExpandConstant('{param:RUNARGS}')
|
|
StringChangeEx(Args, '::', '"', True)
|
|
Result := Args
|
|
end;
|
|
|
|
{ Returns a validated installation path (including trailing backslash) using the /UPDATEPATH parameter or installation info in registry. Returns empty string on failure. }
|
|
function TDFindUpdatePath: String;
|
|
var Path: String;
|
|
var RegistryKey: String;
|
|
|
|
begin
|
|
Path := ExpandConstant('{param:UPDATEPATH}')
|
|
|
|
if (Path = '') and not IsPortable then
|
|
begin
|
|
RegistryKey := 'Software\Microsoft\Windows\CurrentVersion\Uninstall\{{#MyAppID}}_is1'
|
|
|
|
if not (RegQueryStringValue(HKEY_CURRENT_USER, RegistryKey, 'InstallLocation', Path) or RegQueryStringValue(HKEY_LOCAL_MACHINE, RegistryKey, 'InstallLocation', Path)) then
|
|
begin
|
|
Result := ''
|
|
Exit
|
|
end;
|
|
end;
|
|
|
|
if not FileExists(Path+'{#MyAppExeName}') then
|
|
begin
|
|
Result := ''
|
|
Exit
|
|
end;
|
|
|
|
Result := Path
|
|
end;
|
|
|
|
{ Return DWORD value containing the build version of .NET Framework. }
|
|
function TDGetNetFrameworkVersion: Cardinal;
|
|
var FrameworkVersion: Cardinal;
|
|
|
|
begin
|
|
if RegQueryDWordValue(HKEY_LOCAL_MACHINE, 'Software\Microsoft\NET Framework Setup\NDP\v4\Full', 'Release', FrameworkVersion) then
|
|
begin
|
|
Result := FrameworkVersion;
|
|
Exit;
|
|
end;
|
|
|
|
Result := 0;
|
|
end;
|
|
|
|
{ Return the name of the full installer file to download from GitHub. }
|
|
function TDGetFullDownloadFileName: String;
|
|
begin
|
|
if IsPortable then Result := '{#MyAppName}.Portable.exe' else Result := '{#MyAppName}.exe';
|
|
end;
|
|
|
|
{ Return whether the version of the installed libcef.dll library matches internal one. }
|
|
function TDIsMatchingCEFVersion: Boolean;
|
|
var CEFVersion: String;
|
|
|
|
begin
|
|
Result := (GetVersionNumbersString(UpdatePath+'libcef.dll', CEFVersion) and (CompareStr(CEFVersion, '{#CefVersion}') = 0))
|
|
end;
|
|
|
|
{ Return a cleaned up form of the app version string (removes all .0 suffixes). }
|
|
function TDGetAppVersionClean: String;
|
|
var Substr: String;
|
|
var CleanVersion: String;
|
|
|
|
begin
|
|
CleanVersion := '{#MyAppVersion}'
|
|
|
|
while True do
|
|
begin
|
|
Substr := Copy(CleanVersion, Length(CleanVersion)-1, 2);
|
|
|
|
if (CompareStr(Substr, '.0') <> 0) then
|
|
begin
|
|
break;
|
|
end;
|
|
|
|
CleanVersion := Copy(CleanVersion, 1, Length(CleanVersion)-2);
|
|
end;
|
|
|
|
Result := CleanVersion;
|
|
end;
|
|
|
|
{ Run the full package installer if downloaded. }
|
|
procedure TDExecuteFullDownload;
|
|
var InstallFile: String;
|
|
var ResultCode: Integer;
|
|
|
|
begin
|
|
InstallFile := ExpandConstant('{tmp}\{#MyAppName}.Full.exe')
|
|
|
|
if FileExists(InstallFile) then
|
|
begin
|
|
WizardForm.ProgressGauge.Style := npbstMarquee;
|
|
|
|
try
|
|
if Exec(InstallFile, '/SP- /SILENT /MERGETASKS="!desktopicon" /UPDATEPATH="'+UpdatePath+'"', '', SW_SHOW, ewWaitUntilTerminated, ResultCode) then
|
|
begin
|
|
if ResultCode <> 0 then
|
|
begin
|
|
DeleteFile(InstallFile);
|
|
Abort();
|
|
Exit;
|
|
end;
|
|
end else
|
|
begin
|
|
MsgBox('Could not run the full installer, please visit {#MyAppURL} and download the latest version manually. Error: '+SysErrorMessage(ResultCode), mbCriticalError, MB_OK);
|
|
|
|
DeleteFile(InstallFile);
|
|
Abort();
|
|
Exit;
|
|
end;
|
|
finally
|
|
WizardForm.ProgressGauge.Style := npbstNormal;
|
|
DeleteFile(InstallFile);
|
|
end;
|
|
end;
|
|
end;
|