Discussion :

[Gogo52120]

Bonjour à tous,
je cherche à savoir s'il y a ou non une installation d'office en clic to run sur le poste car le MSACCESS.exe peut se trouver à un endroit différent selon son installation

J'ai beau avoir ou non cette clé, à chaque fois cela passe par if not.
Voici ce que j'ai dans la section CODE.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
if IscomponentSelected('Main/Bureau') Or IsComponentSelected('Main/Full') then 
 
begin 
 
    // si clé office runtime 2016 c2r alors
 
    if RegKeyExists(HKLM, 'SOFTWARE\Microsoft\Office\ClickToRun') then
    begin 
 
    CreateShellLink(ExpandConstant('{userdesktop}\monraccourci.lnk'),
    'Lancer le raccourci',
    ExpandConstant('{pf}\Microsoft Office\root\Office16\MSACCESS.EXE'),
    ExpandConstant('"{app}\monapp"'),
    ExpandConstant('{app}'),
    ExpandConstant('{app}\icon.ico'),0, SW_SHOWNORMAL); 
 
    end;
 
    // office runtime std
    if not RegKeyExists(HKLM, 'SOFTWARE\Microsoft\Office\ClickToRun') then then
    begin
 
    CreateShellLink(ExpandConstant('{userdesktop}\monraccourci.lnk'),
    'Lancer le raccourci',
    ExpandConstant('{pf}\Microsoft Office\Office16\MSACCESS.EXE'),
    ExpandConstant('"{app}\monapp"'),
    ExpandConstant('{app}'),
    ExpandConstant('{app}\icon.ico'),0, SW_SHOWNORMAL); 
 
    end;  
end;

J'ai même essayé de faire une fonction avec une variable en booléenne (nommée pouette) celle-ci est toujours à false --'

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
function GetPathAccess(Param: String): String;
var 
 pouette: boolean;
begin
    // es-ce qu'il est en c2r
  pouette := RegKeyExists(HKLM, 'SOFTWARE\Microsoft\Office\ClickToRun');
    // Si Oui donner le chemin du acces en c2r:
    if pouette = true then
    begin
    Result := ('\Microsoft Office\root\Office16\MSACCESS.EXE');  //  cette partie n'est pas correcte   
    end else
    // sinon donner le chemin du acces en non c2r
    begin
    if pouette = false then
    Result := ('{pf}\Microsoft Office\Office16\MSACCESS.EXE');  //  cette partie n'est pas correcte
    end;
 
end;

Comment puis-je m'y prendre ?

p.s. Je ne suis pas un grand dev., j'adapte un setup qui installait une app. en ade qui tournais sous runtime 2002 pour installer un runtime en c2r 2016 (sauf certains postes qui ont déjà une install en runtime 2016 non c2r) car cette app. va bientôt tourner en 2016 (ce n'est pas moi qui m'en occupe)

[Andnotor]

Inno Setup est 32 bits par défaut. Les appels à HKLM\SOFTWARE sont automatiquement redirigés par le système sous HKLM\SOFTWARE\WOW6432Node sur une plateforme 64 bits.

Donc soit tu cibles spécifiquement la ruche 64 bits par HKLM64, soit tu rends le script dépendant de la plateforme en ajoutant ArchitecturesInstallIn64BitMode=x64 à la section [Setup].

[Gogo52120]

Ah effectivement, je recherche de la clé 32 bits donc faut lui dire HKLM64 ... logique

J'ai regarder du coter de Ordinateur\HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Office et effectivement pas de ClickToRun donc il ne risquais pas de trouver quelque chose.

Je vais faire quelques tests mais mon installateur semble bien détecter la clé à présent.

Merci de l'aide.