Bonjour,
J'ai une icone de raccourci existante sur mon bureau avec une icone.
je souhaite modifier l'image de ce raccourci avec Delphi.
apres une recherche sur google et sur ngscan je n'ai trouvé qu'une procedure de creation d'icone sur le bureau.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 procedure TForm1.CreFicLien(FicSource, FicRaccourci, Description, DossierDeTravail, NomIconeAssociee: string; NumIcone: integer); var ShellLink : IShellLink; begin ShellLink:=CreateComObject(CLSID_ShellLink) as IShellLink; ShellLink.SetDescription(PAnsiChar(Description)); ShellLink.SetPath(PAnsiChar(FicSource)); ShellLink.SetWorkingDirectory(PAnsiChar(DossierDeTravail)); ShellLink.SetShowCmd(SW_SHOWMAXIMIZED); if (NomIconeAssociee<>'') then ShellLink.SetIconLocation(PAnsiChar(NomIconeAssociee), NumIcone); (ShellLink as IpersistFile).Save(StringToOleStr(FicRaccourci), true); end;
ça aurai été bien si je n'avais pas de parametres pour ce raccourci
exemple: dans la zone cible du raccourci "C:\MonAppli\MonAppli.exe" "param1"
en sachant que les parametres peuvent changer d'un client à l'autre.
Donc j'aurai voulu savoir s'il existait un moyen de ne faire qu'une modification sans recreer l'icone?
Merci
Partager