a5d83d9e2a
source: https://github.com/jrsoftware/issrc/blob/main/Files/Languages/Unofficial/Swedish.isl
226 Zeilen
10 KiB
Plaintext
226 Zeilen
10 KiB
Plaintext
; Inno Setup Script for Traintastic
|
|
|
|
#define VersionInfoBinary "..\..\server\build\traintastic-server.exe"
|
|
|
|
#define Name "Traintastic"
|
|
#define Version GetFileVersion(VersionInfoBinary)
|
|
#define VersionFull GetStringFileInfo(VersionInfoBinary, FILE_VERSION)
|
|
#define Copyright GetFileCopyright(VersionInfoBinary)
|
|
#define Publisher "Reinder Feenstra"
|
|
#define URL "https://traintastic.org"
|
|
#define ServerExeName "traintastic-server.exe"
|
|
#define ClientExeName "traintastic-client.exe"
|
|
|
|
#define CompanySubKey "SOFTWARE\traintastic.org"
|
|
#define AppSubKey CompanySubKey + "\Traintastic"
|
|
|
|
[Setup]
|
|
AppId={{7E509202-257F-4859-B8FA-D87D636342BB}
|
|
AppName={#Name}
|
|
AppVersion={#Version}
|
|
AppVerName={#Name} v{#VersionFull}
|
|
AppCopyright={#Copyright}
|
|
AppPublisher={#Publisher}
|
|
AppPublisherURL={#URL}
|
|
AppSupportURL={#URL}
|
|
AppUpdatesURL={#URL}
|
|
VersionInfoVersion={#Version}
|
|
VersionInfoProductTextVersion={#VersionFull}
|
|
DefaultDirName={autopf}\{#Name}
|
|
DisableDirPage=yes
|
|
DisableProgramGroupPage=yes
|
|
LicenseFile=..\..\LICENSE
|
|
OutputDir=output
|
|
OutputBaseFilename=traintastic-setup-v{#VersionFull}
|
|
SolidCompression=yes
|
|
WizardStyle=modern
|
|
ArchitecturesInstallIn64BitMode=x64
|
|
ArchitecturesAllowed=x64
|
|
MinVersion=10.0
|
|
|
|
[Languages]
|
|
Name: en; MessagesFile: "compiler:Default.isl,en-us.isl"
|
|
Name: nl; MessagesFile: "compiler:Languages\Dutch.isl,nl-nl.isl"
|
|
Name: de; MessagesFile: "compiler:Languages\German.isl,de-de.isl"
|
|
Name: it; MessagesFile: "compiler:Languages\Italian.isl,it-it.isl"
|
|
Name: sv; MessagesFile: "Languages\Swedish.isl,sv-se.isl"
|
|
|
|
[Tasks]
|
|
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
|
|
Name: "firewall_traintastic"; Description: "{cm:FirewallAllowTraintasticClient}"; GroupDescription: "{cm:WindowsFirewall}"; Check: InstallServer
|
|
Name: "firewall_wlanmaus"; Description: "{cm:FirewallAllowWLANmausZ21}"; GroupDescription: "{cm:WindowsFirewall}"; Check: InstallServer
|
|
|
|
[Files]
|
|
; Server
|
|
Source: "..\..\server\build\{#ServerExeName}"; DestDir: "{app}\server"; Flags: ignoreversion; Check: InstallServer
|
|
Source: "..\..\server\thirdparty\lua5.3\bin\win64\lua53.dll"; DestDir: "{app}\server"; Flags: ignoreversion; Check: InstallServer
|
|
Source: "..\..\server\thirdparty\libarchive\bin\archive.dll"; DestDir: "{app}\server"; Flags: ignoreversion; Check: InstallServer
|
|
Source: "..\..\server\thirdparty\zlib\bin\zlib1.dll"; DestDir: "{app}\server"; Flags: ignoreversion; Check: InstallServer
|
|
; Client
|
|
Source: "..\..\client\build\Release\{#ClientExeName}"; DestDir: "{app}\client"; Flags: ignoreversion; Check: InstallClient
|
|
Source: "..\..\client\build\Release\*.dll"; DestDir: "{app}\client"; Flags: ignoreversion; Check: InstallClient
|
|
Source: "..\..\client\build\Release\bearer\*.dll"; DestDir: "{app}\client\bearer"; Flags: ignoreversion; Check: InstallClient
|
|
Source: "..\..\client\build\Release\iconengines\*.dll"; DestDir: "{app}\client\iconengines"; Flags: ignoreversion; Check: InstallClient
|
|
Source: "..\..\client\build\Release\imageformats\*.dll"; DestDir: "{app}\client\imageformats"; Flags: ignoreversion; Check: InstallClient
|
|
Source: "..\..\client\build\Release\platforms\*.dll"; DestDir: "{app}\client\platforms"; Flags: ignoreversion; Check: InstallClient
|
|
Source: "..\..\client\build\Release\styles\*.dll"; DestDir: "{app}\client\styles"; Flags: ignoreversion; Check: InstallClient
|
|
; Shared
|
|
Source: "..\..\shared\translations\*.lang"; DestDir: "{commonappdata}\traintastic\translations"; Flags: ignoreversion;
|
|
; Manual
|
|
Source: "..\..\manual\build\*"; DestDir: "{commonappdata}\traintastic\manual"; Flags: ignoreversion recursesubdirs
|
|
Source: "..\..\manual\build.luadoc\*"; DestDir: "{commonappdata}\traintastic\manual-lua"; Flags: ignoreversion recursesubdirs
|
|
; LNCV XML
|
|
Source: "..\..\shared\data\lncv\xml\*.xml"; DestDir: "{commonappdata}\traintastic\lncv"; Flags: ignoreversion; Check: InstallClient
|
|
Source: "..\..\shared\data\lncv\xml\lncvmodule.xsd"; DestDir: "{commonappdata}\traintastic\lncv"; Flags: ignoreversion; Check: InstallClient
|
|
; VC++ redistributable runtime. Extracted by VC2019RedistNeedsInstall(), if needed.
|
|
Source: "..\..\client\build\Release\vc_redist.x64.exe"; DestDir: {tmp}; Flags: dontcopy
|
|
|
|
[Run]
|
|
Filename: "{tmp}\vc_redist.x64.exe"; StatusMsg: "Installing VC++ redistributables..."; Parameters: "/quiet /norestart"; Check: VC2019RedistNeedsInstall; Flags: waituntilterminated
|
|
Filename: "{sys}\netsh.exe"; Parameters: "advfirewall firewall add rule name=""Traintastic server (TCP)"" dir=in program=""{app}\server\{#ServerExeName}"" protocol=TCP localport=5740 action=allow"; StatusMsg: "{cm:AddFirewallRuleTraintasticClient} (TCP)"; Flags: runhidden; Check: InstallServer; Tasks: firewall_traintastic
|
|
Filename: "{sys}\netsh.exe"; Parameters: "advfirewall firewall add rule name=""Traintastic server (UDP)"" dir=in program=""{app}\server\{#ServerExeName}"" protocol=UDP localport=5740 action=allow"; StatusMsg: "{cm:AddFirewallRuleTraintasticClient} (UDP)"; Flags: runhidden; Check: InstallServer; Tasks: firewall_traintastic
|
|
Filename: "{sys}\netsh.exe"; Parameters: "advfirewall firewall add rule name=""Traintastic server (WLANmaus/Z21)"" dir=in program=""{app}\server\{#ServerExeName}"" protocol=UDP localport=21105 action=allow"; StatusMsg: "{cm:AddFirewallRuleWLANmausZ21}"; Flags: runhidden; Check: InstallServer; Tasks: firewall_wlanmaus
|
|
|
|
[InstallDelete]
|
|
; Delete old translation files (TODO: remove in 0.4)
|
|
Type: files; Name: "{commonappdata}\traintastic\translations\en-us.txt"
|
|
Type: files; Name: "{commonappdata}\traintastic\translations\nl-nl.txt"
|
|
Type: files; Name: "{commonappdata}\traintastic\translations\de-de.txt"
|
|
Type: files; Name: "{commonappdata}\traintastic\translations\it-it.txt"
|
|
|
|
[UninstallRun]
|
|
Filename: {sys}\netsh.exe; Parameters: "advfirewall firewall delete rule name=""Traintastic server (TCP)"""; Flags: runhidden; Check: InstallServer; Tasks: firewall_traintastic
|
|
Filename: {sys}\netsh.exe; Parameters: "advfirewall firewall delete rule name=""Traintastic server (UDP)"""; Flags: runhidden; Check: InstallServer; Tasks: firewall_traintastic
|
|
Filename: {sys}\netsh.exe; Parameters: "advfirewall firewall delete rule name=""Traintastic server (WLANmaus/Z21)"""; Flags: runhidden; Check: InstallServer; Tasks: firewall_wlanmaus
|
|
|
|
[Icons]
|
|
; Server
|
|
Name: "{autoprograms}\{#Name}\{#Name} server"; Filename: "{app}\server\{#ServerExeName}"; Parameters: "--tray"; Check: InstallServer
|
|
Name: "{autodesktop}\{#Name} server"; Filename: "{app}\server\{#ServerExeName}"; Parameters: "--tray"; Tasks: desktopicon; Check: InstallServer
|
|
; Client
|
|
Name: "{autoprograms}\{#Name}\{#Name} client"; Filename: "{app}\client\{#ClientExeName}"; Check: InstallClient
|
|
Name: "{autodesktop}\{#Name} client"; Filename: "{app}\client\{#ClientExeName}"; Tasks: desktopicon; Check: InstallClient
|
|
|
|
[Registry]
|
|
Root: HKLM; Subkey: "{#CompanySubKey}"; Flags: uninsdeletekeyifempty
|
|
Root: HKLM; Subkey: "{#AppSubKey}"; Flags: uninsdeletekey
|
|
|
|
[Code]
|
|
const
|
|
ComponentsValueName = 'Components';
|
|
var
|
|
ComponentsPage : TWizardPage;
|
|
ClientAndServerRadioButton : TRadioButton;
|
|
ClientOnlyRadioButton : TRadioButton;
|
|
|
|
function InstallClient : Boolean;
|
|
begin
|
|
Result := ClientAndServerRadioButton.Checked or ClientOnlyRadioButton.Checked;
|
|
end;
|
|
|
|
function InstallServer : Boolean;
|
|
begin
|
|
Result := ClientAndServerRadioButton.Checked;
|
|
end;
|
|
|
|
procedure RegWriteTraintasticComponents(Value: String);
|
|
begin
|
|
RegWriteStringValue(HKEY_LOCAL_MACHINE, '{#AppSubKey}', ComponentsValueName, Value);
|
|
end;
|
|
|
|
function RegReadTraintasticComponents: String;
|
|
begin
|
|
if not RegQueryStringValue(HKEY_LOCAL_MACHINE, '{#AppSubKey}', ComponentsValueName, Result) then
|
|
Result := '';
|
|
end;
|
|
|
|
procedure ComponentsPageUpdateNextButtonEnabled;
|
|
begin
|
|
Wizardform.NextButton.Enabled := ClientAndServerRadioButton.Checked or ClientOnlyRadioButton.Checked;
|
|
end;
|
|
|
|
procedure ComponentRadioButtonClick(Sender: TObject);
|
|
begin
|
|
ComponentsPageUpdateNextButtonEnabled;
|
|
end;
|
|
|
|
procedure CurPageChanged(CurPageID: Integer);
|
|
begin
|
|
if CurPageID = ComponentsPage.ID then
|
|
ComponentsPageUpdateNextButtonEnabled;
|
|
end;
|
|
|
|
function NextButtonClick(CurPageID: Integer): Boolean;
|
|
begin
|
|
if CurPageID = ComponentsPage.ID then begin
|
|
if ClientAndServerRadioButton.Checked then
|
|
RegWriteTraintasticComponents('ClientAndServer')
|
|
else if ClientOnlyRadioButton.Checked then
|
|
RegWriteTraintasticComponents('ClientOnly');
|
|
end;
|
|
Result := True;
|
|
end;
|
|
|
|
procedure InitializeWizard;
|
|
var
|
|
Lbl: TLabel;
|
|
Components: String;
|
|
begin
|
|
Components := RegReadTraintasticComponents;
|
|
|
|
ComponentsPage := CreateCustomPage(wpSelectComponents, SetupMessage(msgWizardSelectComponents), SetupMessage(msgSelectComponentsDesc));
|
|
|
|
ClientAndServerRadioButton := TNewRadioButton.Create(ComponentsPage);
|
|
ClientAndServerRadioButton.Caption := ExpandConstant('{cm:ClientAndServer}');
|
|
ClientAndServerRadioButton.Checked := (Components = 'ClientAndServer');
|
|
ClientAndServerRadioButton.Font.Style := [fsBold];
|
|
ClientAndServerRadioButton.Height := ScaleY(23);
|
|
ClientAndServerRadioButton.Parent := ComponentsPage.Surface;
|
|
ClientAndServerRadioButton.OnClick := @ComponentRadioButtonClick;
|
|
|
|
Lbl := TLabel.Create(ComponentsPage);
|
|
Lbl.Caption := ExpandConstant('{cm:ClientAndServerDesc}');
|
|
Lbl.Top := ClientAndServerRadioButton.Top + ClientAndServerRadioButton.Height;
|
|
Lbl.Left := ScaleX(17);
|
|
Lbl.Height := ScaleY(23);
|
|
Lbl.Parent := ComponentsPage.Surface;
|
|
|
|
ClientOnlyRadioButton := TNewRadioButton.Create(ComponentsPage);
|
|
ClientOnlyRadioButton.Caption := ExpandConstant('{cm:ClientOnly}');
|
|
ClientOnlyRadioButton.Checked := (Components = 'ClientOnly');
|
|
ClientOnlyRadioButton.Font.Style := [fsBold];
|
|
ClientOnlyRadioButton.Top := Lbl.Top + Lbl.Height + ScaleY(10);
|
|
ClientOnlyRadioButton.Height := ScaleY(23);
|
|
ClientOnlyRadioButton.Parent := ComponentsPage.Surface;
|
|
ClientOnlyRadioButton.OnClick := @ComponentRadioButtonClick;
|
|
|
|
Lbl := TLabel.Create(ComponentsPage);
|
|
Lbl.Caption := ExpandConstant('{cm:ClientOnlyDesc}');
|
|
Lbl.Top := ClientOnlyRadioButton.Top + ClientOnlyRadioButton.Height;
|
|
Lbl.Left := ScaleX(17);
|
|
Lbl.Height := ScaleY(23);
|
|
Lbl.Parent := ComponentsPage.Surface;
|
|
end;
|
|
|
|
function VC2019RedistNeedsInstall: Boolean;
|
|
var
|
|
Version: String;
|
|
begin
|
|
if RegQueryStringValue(HKEY_LOCAL_MACHINE,
|
|
'SOFTWARE\Microsoft\VisualStudio\14.0\VC\Runtimes\x64', 'Version', Version) then
|
|
begin
|
|
// Is the installed version at least 14.24 ?
|
|
Log('VC Redist Version check : found ' + Version);
|
|
Result := (CompareStr(Version, 'v14.24.28127.04')<0);
|
|
end
|
|
else
|
|
begin
|
|
// Not even an old version installed
|
|
Result := True;
|
|
end;
|
|
if (Result) then
|
|
begin
|
|
ExtractTemporaryFile('vc_redist.x64.exe');
|
|
end;
|
|
end;
|