Discussion :

[rorobase]

Bonjour,

Je débute totalement en langage Delphi et je bute sur un problème sur le logiciel Inno Setup.
En fait je souhaite que lorsque que je lance mon setup d'install crée grace à inno setup, je crée un raccourci sur le bureau.

Le raccourci qui sera crée sera le raccourci d'une base access.

Dans le champs cible de l'onglet raccourci il faut que j'obtienne ceci :
"C:\Program Files\Microsoft Office\Office12\MSACCESS.EXE" "E:\Access\Base materiels.mdb" /wrkgrp "E:\Access\Protection\system.mdw"
avec :
"C:\Program Files\Microsoft Office\Office12\MSACCESS.EXE" => figé
"E:\Access\Base materiels.mdb" /wrkgrp "E:\Access\Protection\system.mdw" => qui dépend du lecteur physique ou il sera installé

J'ai donc pensé à un code du type getlink afin de récuperer la destination d'installation puis de mettre le code CreateShellLink qui me permet de créer le raccourci.

Par contre je n'ai jamais pratiqué sur ce logiciel et un peu d'aide serai la bienvenue

[ouiouioui]

sans le script c'est dure d'aider, tes fichiers tu les installe dans app? Donc un truc du genre:

Code :

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

Name: {userdesktop}\DVdfgffg; Filename: "C:\Program Files\Microsoft Office\Office12\MSACCESS.EXE"; Parameters: """Base materiels.mdb"" /wrkgrp ""Protection\system.mdw""" WorkingDir: "{app}"; Tasks: desktopicon

[rorobase]

Merci pour ta réponse ouioui en fait j'ai trouvé la solution a mon problème.
Pour ceux à qui ca pourrait interresser voici le 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
 
[code]
//Procédure native d'InnoSetup
procedure CurStepChanged(CurStep: TSetupStep);
 
begin
  //Après l'étape d'installation d'inno setup
  if CurStep = ssPostInstall then
    begin
    //  ExtractTemporaryFile('Base Materiels.lnk');
      CreateShellLink(
ExpandConstant('{commondesktop}\Base Materiels.lnk'),
'Lancer le raccourci',
ExpandConstant('C:\Program Files\Microsoft Office\Office12\MSACCESS.EXE'),
ExpandConstant('"{app}\Base materiels.mdb" /wrkgrp "{app}\Protection\system.mdw"'),
ExpandConstant('C:\Program Files\Microsoft Office\Office12'),
ExpandConstant('C:\Program Files\Microsoft Office\OFFICE12\MSACCESS.EXE'),0, SW_SHOWNORMAL);
   end
end;

[ouiouioui]

cool, pense à mettre résolu