Le langage de programmation Delphi offre plein de possibilité afin de communiquer assez directement avec le système d'exploitation Windows. L'une de ses possibilités, est la création d'un raccourci sur le bureau pointant sur une application quelconque. L'exemple suivant permet de créer un raccourci du nom de «Lien Delphi» vers un Bloc Notes (notepad) :
- Program ShortCutDesktop;
-
- {$APPTYPE CONSOLE}
- Uses SysUtils,ShlObj, ActiveX, ComObj, Windows;
-
- Var
- IObject : IUnknown;
- ISLink : IShellLink;
- IPFile : IPersistFile;
- PIDL : PItemIDList;
- InFolder : Array[0..255] Of Char;
- TargetName : String;
- LinkName : WideString;
- BEGIN
- TargetName := 'C:\Windows\notepad.exe';
- IObject := CreateComObject(CLSID_ShellLink) ;
- ISLink := IObject As IShellLink;
- IPFile := IObject As IPersistFile;
- ISLink.SetPath(PChar(TargetName));
- ISLink.SetWorkingDirectory(PChar(ExtractFilePath(TargetName)));
- SHGetSpecialFolderLocation(0, CSIDL_DESKTOPDIRECTORY, PIDL);
- SHGetPathFromIDList(PIDL, InFolder);
- LinkName := InFolder + '\Lien Delphi.lnk';
- IPFile.Save(PWChar(LinkName), False);
- END.
on obtiendra le résultat suivant :
Dernière mise à jour : Dimanche, le 17 août 2014