Discussion :

[Pierre95]

Bonjour,

J'ai conçu une installation qui demande le chemin de 3 programmes grâce à des
InputDirpages.
Lors d'un clic sur Parcourir", les disques de la machine contenant le setup sont bien visibles, mais pas le voisinage réseau.

Pourriez-vous m'expliquer comment accéder à celui-ci avec ce bouton "Parcourir".

Merci de votre aide.

Cordialement
Pierre

[Lung]

Je dirais avec une fonction de ce genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
  uses  Shlobj;
 
function SpecialFolder(Folder: Integer): String;
var
 SFolder : pItemIDList; 
 SpecialPath : Array[0..MAX_PATH] Of Char; 
begin
 SHGetSpecialFolderLocation(Form.Handle, Folder, SFolder);
 SHGetPathFromIDList(SFolder, SpecialPath); 
 Result := StrPas(SpecialPath); 
end;

Et avec ce paramètre : CSIDL_NETHOOD

[Pierre95]

Merci de cette réponse,

Novice, j'aimerais savoir où inclure cette fonction:
Voici un extrait de mon 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
 
procedure CreateTheWizardPages;                                  
begin
  if msgBox(ExpandConstant('{cm:DoYouHaveFs9Installed}'),mbConfirmation, mb_YesNo)=idYes then
  begin 
    Page9:= CreateInputDirPage(wpSelectDir,
            ExpandConstant('{cm:FS9installFolder}'),ExpandConstant('{cm:TypeFlightSimulatorinstallationfoldercompletepath}'),'',False,'');
    Page9.Add(ExpandConstant('{cm:FS9installFolder}'));
    Page9.Add(ExpandConstant('{cm:FS9FpFolder}'));
 
    Page9.Values[0]:= 'C:\Program Files (x86)\Microsoft Games\Flight Simulator 9 ';
    Page9.Values[1]:= ExpandConstant('{userdocs}')+ '\';
    FS9:= True;
  end
  else 
  begin
    FS9:= False;
  end;

Comment donner à l'utilisateur le choix d'un chemin local ou réseau?
car il semble qu'InnoSetup n'accepte pas la clause "Uses".
Merci de votre aide

Cordialement
Pierre

[Pierre95]

Je penses avoir trouvé:

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
Const 
  CSIDL_NETHOOD = $0013;
.......
procedure CreateTheWizardPages;                                  
begin
  Path := GetShellFolderByCSIDL(CSIDL_NETHOOD , True);
 
  if msgBox(ExpandConstant('{cm:DoYouHaveFs9Installed}'),mbConfirmation, mb_YesNo)=idYes then
  begin 
    Page9:= CreateInputDirPage(wpSelectDir,
            ExpandConstant('{cm:FS9installFolder}'),ExpandConstant('{cm:TypeFlightSimulatorinstallationfoldercompletepath}'),'',False,'');
    Page9.Add(ExpandConstant('{cm:FS9installFolder}'));
    Page9.Add(ExpandConstant('{cm:FS9FpFolder}'));
    Page9.Add('FS9 network');
 
    Page9.Values[0]:= 'C:\Program Files (x86)\Microsoft Games\Flight Simulator 9 ';
    Page9.Values[1]:= ExpandConstant('{userdocs}')+ '\';
    Page9.Values[2]:= Path; 
    FS9:= True;
  end
  else 
  begin
    FS9:= False;
  end;

Je vais faire tester ceci par mon utilisateur et reviens vers vous..

Merci

Cordialement
Pierre

[Pierre95]

Bonjour,

He bien non, ce code ne montre pas le réseau de mon utilisateur.
Seulement un dossier vide "raccourci réseau".

Comment pouvoir voir cette fenêtre?
CSIDL_NETWORK = $0012 ne fonctionne pas.

Merci de votre aide

Cordialement
Pierre

[Pierre95]

Bonjour,

Puis-je me permettre de relancer ma question:

Comment obtenir l'écran attaché au précédent message avec Inno setup?

Merci de votre aide.

Cordialement
Pierre

[Papy214]

est-ce qu'il s'agit bien de la dernière version de Inno setup ?

[Pierre95]

Bonjour,

Merci de cette réponse.

J'ai la version 5.3.3a

Cordialement
Pierre

[Papy214]

Bon, il semble que ça n'influe en rien. J'ai testé avec la dernière version et je n'arrive pas non plus à avoir le choix réseau dans la page. Même en mettant AllowNetworkDir, ça ne change rien. Cet outil étant quand même bien foutu, il doit bien y avoir une astuce pour y arriver mais là, je sèche.

[Pierre95]

Bonjour à nouveau,

Merci de cette réponse qui, même si elle n'apporte pas la solution à mon problème, a le mérite d'avoir été gentiment offerte.

Merci encore

Bien cordialement
Pierre

[Papy214]

est-ce que les lecteurs réseaux apparaissent ? En mappant un lecteur sur Z: par exemple ..

[Pierre95]

Bonjour,

En fait je n'ai pas moi même de réseau, un utilisateur ne vois pas le sien.
Mon objectif est de voir apparaître dans la fenêtre de inno setup, la même chose qu'en Delphi en utilisant CSIDL_NETWORK = $0012 et d'obtenir la même que sur l'image de mon précédent post.

Merci de votre aide

Cordialement
Pierre