Discussion :

[AlDel]

Bonjour,

Pouvez-vous m'indiquer comment créer par programmation un raccourci sur le bureau :
Je pensais prendre "ShellLinkCreateSystem" , mais je ne sais pas que mettre dans le parametre folder : dans les CSIDL_x je n'ai pas trouvé l'équivalent du bureau.

Merci de me dépanner.

[AlDel]

Pour ceux que ca interesse j'ai trouvé un parametre de répertoire qui semble convenir : CSIDL_COMMON_DESKTOPDIRECTORY
Mais la fonction ne marche toujours pas : je dois mal identifier le tShellLink;

[AlDel]

J'ai trouvé la solution,
je la fourni pour ceux que ca interesse :

Je suis passé par la bibliothèque JCL qui me fourni la fonction :
ShellLinkCreateSystem(const Link: TShellLink, const Folder: Integer, const FileName: string): HRESULT;

j'ai initialisé link ainsi :

Code :

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

1
2
3
4
5
6
 
    link.WorkingDirectory:=edit1.Text;
    link.Target:=edit1.Text+'\'+combobox1.Text;
    link.IconLocation:=link.Target;
    link.IconIndex:=0;
    link.ShowCmd:=sw_show;

puis la fonction :

Code :

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

1
2
3
 
   resultat:=shellLinkCreateSystem(link,CSIDL_COMMON_DESKTOPDIRECTORY,'Essai.lnk');
   shellLinkfree(link);

a+