Avis

Créer un fichier de raccourci Internet (.URL) à l'aide de Delphi

Créer un fichier de raccourci Internet (.URL) à l'aide de Delphi

Contrairement aux raccourcis .LNK classiques (qui pointent vers un document ou une application), les raccourcis Internet pointent vers une URL (document Web). Voici comment créer un fichier .URL ou un raccourci Internet à l’aide de Delphi.

L'objet Internet Shortcut est utilisé pour créer des raccourcis vers des sites Internet ou des documents Web. Les raccourcis Internet diffèrent des raccourcis classiques (qui contiennent des données dans un fichier binaire) qui pointent vers un document ou une application. Ces fichiers texte avec une extension .URL ont leur contenu au format de fichier INI.

La manière la plus simple de regarder dans un fichier .URL consiste à l'ouvrir dans le Bloc-notes. Le contenu (dans sa forme la plus simple) d'un raccourci Internet pourrait ressembler à ceci:

InternetShortcut
URL = // delphi.about.com

Comme vous pouvez le constater, les fichiers .URL ont un format de fichier INI. L'URL représente l'emplacement de l'adresse de la page à charger. Il doit spécifier une URL de qualification complète avec le format protocole: // serveur / page

Fonction Delphi simple pour créer un fichier .URL

Vous pouvez facilement créer un raccourci Internet par programme si vous avez l'URL de la page à laquelle vous souhaitez créer un lien. Lorsque vous double-cliquez dessus, le navigateur par défaut est lancé et affiche le site (ou un document Web) associé au raccourci.

Voici une simple fonction Delphi pour créer un fichier .URL. La procédure CreateInterentShortcut crée un fichier de raccourci d'URL avec le nom de fichier fourni (paramètre FileName) pour l'URL donnée (LocationURL), en remplaçant tout raccourci Internet existant portant le même nom.

les usages IniFiles;

procédure CreateInternetShortcut (const NomFichier, LocationURL: chaîne) ;commencer
  avec TIniFile.Create (NomFichier) faire
  essayer
WriteString (
'InternetShortcut',
'URL',
LocationURL);
  enfin
    Libre;
  

fin;fin; (* CreateInterentShortcut *)

Voici un exemple d'utilisation:

// crée un fichier .URL nommé "À propos de la programmation Delphi" // dans le dossier racine du lecteur C // laissez-le pointer sur //delphi.about.com
CreateInterentShortcut ('c: À propos de Delphi Programming.URL', '//delphi.about.com');

Quelques notes:

  • Vous pouvez enregistrer une page Web au format MHT (archive Web), puis créer un raccourci .URL pour pouvoir accéder à une version hors connexion d'un document Web.
  • Vous devez fournir un nom de fichier complet, ainsi que l'extension .URL, pour le paramètre FileName.
  • Si vous avez déjà un raccourci Internet qui vous "intéresse", vous pouvez facilement extraire l'URL d'un fichier de raccourci Internet (.url).

Spécification de l'icône .URL

L'une des caractéristiques les plus utiles du format de fichier .URL est que vous pouvez modifier l'icône associée au raccourci. Par défaut, le fichier .URL porte l'icône du navigateur par défaut. Si vous souhaitez modifier l'icône, il vous suffit d'ajouter deux champs supplémentaires au fichier .URL, comme dans:

InternetShortcut
URL = // delphi.about.com
IconIndex = 0
IconFile = C: MyFolder MyDelphiProgram.exe

Les champs IconIndex et IconFile vous permettent de spécifier l’icône du raccourci .URL. IconFile pourrait pointer vers le fichier exe de votre application (IconIndex est l'index de l'icône en tant que ressource dans l'exe).

Raccourci Internet pour ouvrir un document standard ou une application

En tant que raccourci Internet, un format de fichier .URL ne vous permet pas de l'utiliser pour autre chose, telle qu'un raccourci d'application standard.

Notez que le champ URL doit être spécifié dans le format protocol: // serveur / page. Par exemple, vous pouvez créer une icône de raccourci Internet sur le bureau qui pointe vers le fichier exe de votre programme. Il vous suffit de spécifier le "fichier: ///" pour le protocole. Lorsque vous double-cliquez sur un tel fichier .URL, votre application sera exécutée. Voici un exemple d'un tel "raccourci Internet":

InternetShortcut
URL = fichier: /// c: MyApps MySuperDelphiProgram.exe
IconIndex = 0
IconFile = C: MyFolder MyDelphiProgram.exe

Voici une procédure qui place un raccourci Internet sur le bureau. Le raccourci pointe vers l'application * actuelle *. Vous pouvez utiliser ce code pour créer un raccourci vers votre programme:

les usages IniFiles, ShlObj;

une fonction GetDesktopPath: chaîne;// récupère l'emplacement du dossier du bureauvar
DesktopPidl: PItemIDList;
DesktopPath: tableau 0… MAX_PATH de Carboniser;commencer
SHGetSpecialFolderLocation (0, CSIDL_DESKTOP, DesktopPidl);
SHGetPathFromIDList (DesktopPidl, DesktopPath);
Résultat: = IncludeTrailingPathDelimiter (DesktopPath);
fin; (* GetDesktopPath *)
procédure CreateSelfShortcut;const
FileProtocol = 'fichier: ///';
var
ShortcutTitle: chaîne;commencer
ShortcutTitle: = Application.Title + '.URL';
  avec TIniFile.Create (GetDesktopPath + ShortcutTitle) faire
  essayer
WriteString (
'InternetShortcut',
'URL',
FileProtocol + Application.ExeName);
WriteString (
'InternetShortcut',
'IconIndex',
       '0') ;
WriteString (
'InternetShortcut',
'IconFile',
Application.ExeName);
  enfin
Libre;
  fin;fin; (* CreateSelfShortcut *)

Remarque: appelez simplement "CreateSelfShortcut" pour créer un raccourci vers votre programme sur le bureau.

Quand utiliser .URL

Ces fichiers .URL pratiques seront utiles pour pratiquement tous les projets. Lorsque vous créez une configuration pour vos applications, incluez un raccourci .URL dans le menu Démarrer - laissez les utilisateurs disposer du moyen le plus pratique de visiter votre site Web pour obtenir des mises à jour, des exemples ou des fichiers d'aide.