prs/prs.server/PRSServer.iss

; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

#pragma option -v+
#pragma verboselevel 9

#define MyAppName "PRS Server"
#define MyAppVersion "7.65a"
#define MyAppPublisher "PRS Digital"
#define MyAppURL "https://www.prs-software.com.au"
#define MyAppExeName "PRSServer.exe"

[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={{832E3B50-6076-4978-B758-E570576565CF}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DisableProgramGroupPage=yes
OutputDir=C:\Development\prs\prs.server\
SourceDir=C:\Development\prs\prs.server\
OutputBaseFilename=PRSServerSetup
Compression=lzma
SolidCompression=yes
SetupLogging=yes
CloseApplications=force
; ArchitecturesInstallIn64BitMode=x64

[Languages]
Name: "english"; MessagesFile: "compiler:Default.isl"

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}";

[InstallDelete]
Type: files; Name: {userappdata}\PRSServer\version.txt

[Files]
Source: "bin\Debug\net6.0-windows\*.*"; Excludes: "ServerSettings.settings, version.txt"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; AfterInstall: UpdateVersionNumber

[Dirs]
Name: "{userappdata}\PRSServer\"; 

[Icons]
Name: "{userprograms}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{userdesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon

[Run]
Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent

[Code]

var 
  versionupdated : Boolean;

procedure UpdateVersionNumber();
var
  version : AnsiString;
  filename : String;
  filename_update : String;
begin
  if (versionupdated = False) then
  begin
    version := '{#MyAppVersion}'; 
    filename := ExpandConstant('{app}\version.txt');
    SaveStringToFile(filename,version,false); 
    filename_update := ExpandConstant('{app}\update\version.txt');
    SaveStringToFile(filename_update,version,false);
    versionupdated := true;
  end;
end;