root / Ludo / Install / LudoSetup.iss
Historique | Voir | Annoter | Télécharger (1,805 ko)
1 |
[ISPP] |
---|---|
2 |
#define Project "Ludo" |
3 |
#define Publisher "INRA" |
4 |
#define URL "https://inraporc.inra.fr/inraporc/" |
5 |
; Version |
6 |
#define Major |
7 |
#define Minor |
8 |
#define Release |
9 |
#define Build |
10 |
#expr ParseVersion(SourcePath + '\..\' + Project + '.exe',Major,Minor,Release,Build) |
11 |
|
12 |
[Setup] |
13 |
; Compiller |
14 |
PrivilegesRequired=none |
15 |
OutputBaseFilename={#Project}Setup |
16 |
OutputDir=. |
17 |
VersionInfoCompany={#Publisher} |
18 |
VersionInfoDescription=InraPorc population Setup |
19 |
VersionInfoVersion={#Major}.{#Minor}.{#Release}.{#Build} |
20 |
; Installer |
21 |
AppMutex={#Project} |
22 |
AppName={#Project} |
23 |
AppVerName={cm:NameAndVersion,{#Project},{#Major}.{#Minor}.{#Release}.{#Build}} |
24 |
AppVersion={#Major}.{#Minor}.{#Release}.{#Build} |
25 |
AppPublisher={#Publisher} |
26 |
AppPublisherURL={#URL} |
27 |
DefaultDirName={code:DefDirRoot}\InraPorc |
28 |
DefaultGroupName=InraPorc |
29 |
AllowNoIcons=true |
30 |
DisableDirPage=yes |
31 |
DisableProgramGroupPage=yes |
32 |
|
33 |
[Tasks] |
34 |
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons} |
35 |
Name: quicklaunchicon; Description: {cm:CreateQuickLaunchIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked |
36 |
|
37 |
[Files] |
38 |
Source: ..\{#Project}.exe; DestDir: {app}; Flags: ignoreversion |
39 |
|
40 |
[Icons] |
41 |
Name: {group}\InraPorc population; Filename: {app}\{#Project}.exe; WorkingDir: {app} |
42 |
Name: {userdesktop}\InraPorc population; Filename: {app}\{#Project}.exe; WorkingDir: {app}; Tasks: desktopicon |
43 |
Name: {userappdata}\Microsoft\Internet Explorer\Quick Launch\InraPorc population; Filename: {app}\{#Project}.exe; WorkingDir: {app}; Tasks: quicklaunchicon |
44 |
|
45 |
[Code] |
46 |
function IsRegularUser(): Boolean; |
47 |
begin |
48 |
Result := not (IsAdminLoggedOn or IsPowerUserLoggedOn); |
49 |
end; |
50 |
|
51 |
function DefDirRoot(Param: String): String; |
52 |
begin |
53 |
if IsRegularUser then |
54 |
Result := ExpandConstant('{localappdata}') |
55 |
else |
56 |
Result := ExpandConstant('{pf}') |
57 |
end; |