Bonjour à tous
J'ai créé une petite appli pour créer des raccourcis dans la barre de tache de windows.
L'appli crée bien le raccourci mais l'icône n'apparait pas dans la barre de tache, même après un redémarrage.
Edit_exe contient le chemin de l'application.
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 procedure TForm1.CreerRacourci(); var ShellLink : IShellLink; PathDestin: string; begin PathDestin:=GetEnvironmentVariable('USERPROFILE')+'\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\'; ShellLink := CreateComObject(CLSID_ShellLink) as IShellLink; ShellLink.SetPath(PAnsiChar(Edit_exe.text)); ShellLink.SetArguments(PAnsiChar(Edit_Params.text)); ShellLink.SetWorkingDirectory(PAnsiChar(Edit_Dossier_Travail.text)); ShellLink.SetDescription(PAnsiChar(Edit_Description.text)); ShellLink.SetIconLocation(PAnsiChar(Edit_exe.text), 0); (ShellLink as IpersistFile).Save(StringToOleStr(PathDestin+Edit_nom.text), true); end;
Edit_param optionnel.
Edit_dossier_travail contient le dossier de travail de l'application.
Edit_description contient la description du raccourci.
Edit_nom contient le nom du raccourci avec l'extension lnk.
L'icône par défaut est l'icône numéro 0 de l'application.
Partager