Lancer le navigateur par défaut sur une URL



Vous voulez diriger un lien vers votre site dans la boite à propos de votre application, mais vous trouvez qu'un texte n'est pas très attrayant. Alors vous pouvez maintenant définir un TLabel qui, lorsqu'on clique dessus, chargera le navigateur internet par défaut sur le site spécifié:
Ajoutez l'unité ShellAPI à votre clause uses.

Unité ShellAPI

uses
  ShellAPI;



Placez un TLabel sur votre fiche. Dans l'évennement OnClick, entrez le code suivant:

OnClick

ShellExecute(0,
           nil,
           'http://www.darkskull.net',
           nil,
           nil,
           SW_SHOWNORMAL);



Pour que l'oeil de l'utilisateur soit attiré par le label, vous pouvez assigner une couleur différente pour la police, et la souligner (cliquez deux fois sur la propriété Font, et modifiez la couleur, et cochez la case souligné). Vous pouvez également assigner un pointeur différent, comme par exemple CrHandPoint.

Vous pouvez également lancer votre messagerie par défaut en remplacant l'adresse par:


Pour les emails

ShellExecute(0,
           nil,
           'mailto:test@test.com',
           nil,
           nil,
           SW_SHOWNORMAL);






3 requête(s) SQL executée(s) en 0.001 Secs - Temps total de génération de la page : 0.006 Secs