Problème de raccourci Windows
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.
Code:
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_exe contient le chemin de l'application.
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.