1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
[Setup]
AppName=Traccar
AppVersion=1.1
DefaultDirName={pf}\Traccar
AlwaysRestart=yes
[Dirs]
Name: "{app}\bin"
Name: "{app}\conf"
Name: "{app}\data"
Name: "{app}\lib"
Name: "{app}\logs"
[Files]
Source: "wrapper\bin\wrapper.exe"; DestDir: "{app}\bin"
Source: "wrapper\src\bin\App.bat.in"; DestDir: "{app}\bin"; DestName: "Traccar.bat"
Source: "wrapper\src\bin\InstallApp-NT.bat.in"; DestDir: "{app}\bin"; DestName: "InstallTraccar-NT.bat"
Source: "wrapper\src\bin\UninstallApp-NT.bat.in"; DestDir: "{app}\bin"; DestName: "UninstallTraccar-NT.bat"
Source: "wrapper\lib\wrapper.dll"; DestDir: "{app}\lib";
Source: "wrapper\lib\wrapper.jar"; DestDir: "{app}\lib";
Source: "wrapper\src\conf\wrapper.conf.in"; DestDir: "{app}\conf"; DestName: "wrapper.conf"; AfterInstall: ConfigureWrapper
Source: "tracker-server.jar"; DestDir: "{app}"
Source: "lib\*"; DestDir: "{app}\lib"
Source: "windows.cfg"; DestDir: "{app}\conf"; AfterInstall: ConfigureApplication
[Run]
Filename: "{app}\bin\InstallTraccar-NT.bat"
[UninstallRun]
Filename: "{app}\bin\UninstallTraccar-NT.bat"
[Code]
function InitializeSetup(): Boolean;
begin
if RegKeyExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\JavaSoft\Java Runtime Environment') then
begin
Result := true;
end
else
begin
Result := false;
MsgBox('This application requires Java Runtime Environment version 1.6 or later. Please download and install the JRE and run this setup again.', mbCriticalError, MB_OK);
end;
end;
procedure ConfigureWrapper();
var
S: String;
begin
LoadStringFromFile(ExpandConstant(CurrentFileName), S);
Insert('wrapper.java.classpath.2=../tracker-server.jar' + #13#10, S, Pos('wrapper.java.classpath.1', S));
Insert(ExpandConstant('wrapper.app.parameter.2="{app}\conf\windows.cfg"') + #13#10, S, Pos('wrapper.app.parameter.1', S));
StringChangeEx(S, '<YourMainClass>', 'Main', true);
StringChangeEx(S, '@app.name@', 'Traccar', true);
StringChangeEx(S, '@app.long.name@', 'Traccar', true);
StringChangeEx(S, '@app.description@', 'Traccar', true);
SaveStringToFile(ExpandConstant(CurrentFileName), S, false);
end;
procedure ConfigureApplication();
var
S: String;
begin
LoadStringFromFile(ExpandConstant(CurrentFileName), S);
StringChangeEx(S, '[DATABASE]', ExpandConstant('{app}\data\database'), true);
StringChangeEx(S, '[LOG]', ExpandConstant('{app}\logs\tracker-server.log'), true);
SaveStringToFile(ExpandConstant(CurrentFileName), S, false);
end;
|
