Créer le raccourci de l'application sur le bureau
Soyez le premier à donner votre avis sur cette source.
Snippet vu 37 359 fois - Téléchargée 8 fois
Contenu du snippet
uses ComObj, ActiveX, ShlObj; function CreateShortCutOnDeskTop(const FileName, scLabel: string): Boolean; var AnObj : IUnknown; ShLink : IShellLink; PFile : IPersistFile; LinkName : WideString; SFolder : pItemIDList; DeskTop : array[0..MAX_PATH] of Char; Target : string; begin Result := False; if not FileExists(FileName) then Exit; SHGetSpecialFolderLocation(Application.Handle, CSIDL_DESKTOP, SFolder); SHGetPathFromIDList(SFolder, DeskTop); Target := Concat(StrPas(DeskTop), '\'); AnObj := CreateComObject(CLSID_ShellLink); ShLink := AnObj as IShellLink; PFile := AnObj as IPersistFile; ShLink.SetPath(PChar(FileName)); ShLink.SetWorkingDirectory(PChar(ExtractFilePath(FileName))); LinkName := ChangeFileExt(scLabel, '.lnk'); Result := (PFile.Save(PWChar(Target + LinkName), False) = S_OK); end;
Compatibilité : Delphi 5
Disponible dans d'autres langages :
A voir également
- Créer le raccourci de l'application sur le bureau
- Creer une application android - Forum VB.NET
- Créer une application java - Conseils pratiques -Java
- Créer interface application - Conseils pratiques -Graphisme
- Erreur du serveur dans l'application '/'. ✓ - Forum ASP.NET
- Comment creer une application de geolocalisation ✓ - Forum Java
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.