150 lines
5.3 KiB
Plaintext
150 lines
5.3 KiB
Plaintext
; Script generated by the Inno Setup Script Wizard.
|
|
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
|
|
|
|
; Versioning
|
|
; we do some #ifdef conditionals because automated compilation passes these as arguments
|
|
|
|
#ifndef MyAppVersion
|
|
#define MyAppVersion "1.3.0"
|
|
#endif
|
|
#ifndef MyAppExpansion
|
|
#define MyAppExpansion "Crius 1.0"
|
|
#endif
|
|
|
|
; Other config
|
|
|
|
#define MyAppName "pyfa"
|
|
#define MyAppPublisher "pyfa"
|
|
#define MyAppURL "https://forums.eveonline.com/default.aspx?g=posts&t=247609&p=1"
|
|
#define MyAppExeName "pyfa.exe"
|
|
|
|
#ifndef MyOutputFile
|
|
#define MyOutputFile LowerCase(StringChange(MyAppName+'-'+MyAppVersion+'-'+MyAppExpansion+'-win', " ", "-"))
|
|
#endif
|
|
#ifndef MyAppDir
|
|
#define MyAppDir "pyfa"
|
|
#endif
|
|
#ifndef MyOutputDir
|
|
#define MyOutputDir "dist"
|
|
#endif
|
|
|
|
[Setup]
|
|
|
|
; NOTE: The value of AppId uniquely identifies this application.
|
|
; Do not use the same AppId value in installers for other applications.
|
|
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
|
|
AppId={{3DA39096-C08D-49CD-90E0-1D177F32C8AA}
|
|
AppName={#MyAppName}
|
|
AppVersion={#MyAppVersion} ({#MyAppExpansion})
|
|
AppPublisher={#MyAppPublisher}
|
|
AppPublisherURL={#MyAppURL}
|
|
AppSupportURL={#MyAppURL}
|
|
AppUpdatesURL={#MyAppURL}
|
|
DefaultDirName={pf}\{#MyAppName}
|
|
DefaultGroupName={#MyAppName}
|
|
AllowNoIcons=yes
|
|
LicenseFile={#MyAppDir}\gpl.txt
|
|
OutputDir={#MyOutputDir}
|
|
OutputBaseFilename={#MyOutputFile}
|
|
SetupIconFile={#MyAppDir}\pyfa.ico
|
|
Compression=lzma
|
|
SolidCompression=yes
|
|
CloseApplications=yes
|
|
AppReadmeFile=https://github.com/DarkFenX/Pyfa/blob/v{#MyAppVersion}/readme.txt
|
|
|
|
[Languages]
|
|
Name: "english"; MessagesFile: "compiler:Default.isl"
|
|
|
|
[Tasks]
|
|
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
|
|
Name: "quicklaunchicon"; Description: "{cm:CreateQuickLaunchIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked; OnlyBelowVersion: 0,6.1
|
|
|
|
[Files]
|
|
Source: "{#MyAppDir}\pyfa.exe"; DestDir: "{app}"; Flags: ignoreversion
|
|
Source: "{#MyAppDir}\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
|
|
; NOTE: Don't use "Flags: ignoreversion" on any shared system files
|
|
|
|
[Icons]
|
|
Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
|
|
Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}"
|
|
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon
|
|
Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: quicklaunchicon
|
|
|
|
[Run]
|
|
Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent
|
|
|
|
[InstallDelete]
|
|
Type: files; Name: "{app}\sqlalchemy.cprocessors.pyd"
|
|
Type: files; Name: "{app}\sqlalchemy.cresultproxy.pyd"
|
|
|
|
[Code]
|
|
|
|
function IsAppRunning(const FileName : string): Boolean;
|
|
var
|
|
FSWbemLocator: Variant;
|
|
FWMIService : Variant;
|
|
FWbemObjectSet: Variant;
|
|
begin
|
|
Result := false;
|
|
FSWbemLocator := CreateOleObject('WBEMScripting.SWBEMLocator');
|
|
FWMIService := FSWbemLocator.ConnectServer('', 'root\CIMV2', '', '');
|
|
FWbemObjectSet := FWMIService.ExecQuery(Format('SELECT Name FROM Win32_Process Where Name="%s"',[FileName]));
|
|
Result := (FWbemObjectSet.Count > 0);
|
|
FWbemObjectSet := Unassigned;
|
|
FWMIService := Unassigned;
|
|
FSWbemLocator := Unassigned;
|
|
end;
|
|
|
|
function PrepareToInstall(var NeedsRestart: Boolean): String;
|
|
begin
|
|
if(IsAppRunning( 'pyfa.exe' )) then
|
|
begin
|
|
Result := 'Please close pyfa before continuing. When closed, please go back to the previous step and continue.';
|
|
end
|
|
else
|
|
begin
|
|
Result := '';
|
|
end
|
|
end;
|
|
|
|
function GetUninstallString: string;
|
|
var
|
|
sUnInstPath: string;
|
|
sUnInstallString: String;
|
|
begin
|
|
Result := '';
|
|
sUnInstPath := ExpandConstant('Software\Microsoft\Windows\CurrentVersion\Uninstall\{{3DA39096-C08D-49CD-90E0-1D177F32C8AA}_is1'); //Your App GUID/ID
|
|
sUnInstallString := '';
|
|
if not RegQueryStringValue(HKLM, sUnInstPath, 'UninstallString', sUnInstallString) then
|
|
RegQueryStringValue(HKCU, sUnInstPath, 'UninstallString', sUnInstallString);
|
|
Result := sUnInstallString;
|
|
end;
|
|
|
|
function IsUpgrade: Boolean;
|
|
begin
|
|
Result := (GetUninstallString() <> '');
|
|
end;
|
|
|
|
function InitializeSetup: Boolean;
|
|
var
|
|
V: Integer;
|
|
iResultCode: Integer;
|
|
sUnInstallString: string;
|
|
begin
|
|
Result := True; // in case when no previous version is found
|
|
if RegValueExists(HKEY_LOCAL_MACHINE,'Software\Microsoft\Windows\CurrentVersion\Uninstall\{3DA39096-C08D-49CD-90E0-1D177F32C8AA}_is1', 'UninstallString') then //Your App GUID/ID
|
|
begin
|
|
V := MsgBox(ExpandConstant('An old version of pyfa was detected. Due to recent changes in the application structure, you must uninstall the previous version first. Do you want to uninstall it?'), mbInformation, MB_YESNO); //Custom Message if App installed
|
|
if V = IDYES then
|
|
begin
|
|
sUnInstallString := GetUninstallString();
|
|
sUnInstallString := RemoveQuotes(sUnInstallString);
|
|
Exec(ExpandConstant(sUnInstallString), '', '', SW_SHOW, ewWaitUntilTerminated, iResultCode);
|
|
Result := True; //if you want to proceed after uninstall
|
|
//Exit; //if you want to quit after uninstall
|
|
end
|
|
else
|
|
Result := False; //when older version present and not uninstalled
|
|
end;
|
|
end;
|