|
|
|
| | | | | | | | |  |
| 
| Code source : unité LRJ_WinInternetShortcut | |
| |
| | |
|
Description : cette unité contient l'objet LRJ_TInternetShortcut qui permet de créer de
nouveaux raccourcis Internet et extraire ou modifier les informations de raccourcis Internet
existants.
L'unité est livrée avec une application de démonstration (
voir description plus loin
) qui utilise les fonctionnalités de
l'objet contenu dans l'unité. Les codes de l'application
sont livrés avec l'unité pour illustrer comment utiliser l'objet de
cette unité. L'application de démonstration utilise les unités
LRJ_GridsPlus,
LRJ_WinBrowseDialog et
LRJ_ShellUtils
non livrées avec l'application.
L'unité LRJ_WinInternetShortcut utilise les fonctionnalités des interfaces suivantes :
|
|
IPersistFile
IPropertySetStorage
IPropertyStorage
IUniformResourceLocator
|
Déclarations publiques de l'unité
I
Télécharger l'application de démonstration
I
Exemples d'utilisations
Utilise les unités : Windows, ActiveX, ShlObj, SysUtils et
LRJ_ShellUtils.
Version : 1.2 du 03.05.2009
Auteur : Laurent Hède
Copyright : LorenJo
Nombre de lignes : 566
Réalisée sous : Delphi 6
Systèmes compatibles : NT4, 2000, XP, Vista, serveurs
Prix : 126.00 € H.T.
Déclarations publiques de l'unité :
unit LRJ_WinInternetShortcut;
interface
uses
Windows,
ActiveX,
ShlObj,
SysUtils,
LRJ_ShellUtils;
..............
//-----------OBJECT--------------------------
LRJ_TInternetShortcut = class(TObject)
..............
procedure Clear;
function LoadFromFile(const AFullFileName: string; const AFlag : integer = STGM_READWRITE): boolean;
// FileName sans extension
function SaveToFavorites(const AFileName: string; const IfClearCurrentFileName: boolean = true): boolean;
// FileName sans extension
function SaveToFile(const ADirectory, AFileName: string; const IfClearCurrentFileName: boolean = true): boolean; overload;
// FullFileName = filename complet, avec chemin et extension (.url)
function SaveToFile(const AFullFileName: string; const IfClearCurrentFileName: boolean = true): boolean; overload;
function SaveToFile: boolean; overload; // Sauve avec le nom de LoadFromFile, IfClearCurrentFileName = true
//Interfaces
property UniformResourceLocator: LRJ_IUniformResourceLocator read GetUniformResourceLocator;
property PropertySetStorage: IPropertySetStorage read GetPropertySetStorage;
// Après modif, faire SaveToFile pour enregistrer les nouvelles infos
property URL: string read GetURL write SetURL;
property IconIndex: integer read GetIconIndex write SetIconIndex;
property IconFile: string read GetIconFile write SetIconFile;
property Name: string read GetName write SetName;
property Description: string read GetDescription write SetDescription;
property Author: string read GetAuthor write SetAuthor;
property WhatsNew: string read GetWhatsNew write SetWhatsNew;
property Comment: string read GetComment write SetComment;
property WorkingDirectory: string read GetWorkingDirectory write SetWorkingDirectory;
property ShowCommand: integer read GetShowCommand write SetShowCommand;
property HotKey: word read GetHotKey write SetHotKey;
// Les propriétés du site (FMTID_InternetSite) ne sont actuellement pas implantés sur cet objet
end; //-----------FIN--------------------------
|
Application de démonstration
L'onglet "Lecture permet de lire les informations contenus dans un raccourci Internet (.url).
Le raccourci est sélectionné en cliquant sur le bouton "Parcourir...." situé en haut de la
fenêtre.
L'onglet "Ecriture" permet de modifier les informations contenues dans le raccourci Internet.
Il faut sélectionner la propriété à modifier, saisir la nouvelle valeur et cliquer sur
"Enregistrer une nouvelle valeur pour la propriété" pour enregistrer la nouvelle valeur
dans l'objet LRJ_TInternetShortcut. Pour enregistrer la ou les nouvelles valeurs de propriétés
dans le raccourci Internet, il faut cliquer sur "Enregistrer tous les changements dans le
fichier".
L'onglet "Création" permet de créer de nouveaux raccourcis. Il faut choisir un répertoire,
saisir un nom sans extension (prendra l'extension .url) et saisir une URL dans les champs
appropriés puis cliquer sur "Enregistrer le raccourci".
Exemples d'utilisations
Enregistrer un nouveau lien vers le site LorenJo sur le bureau
var
zRac: LRJ_TInternetShortcut;
begin
zRac := LRJ_TInternetShortcut.Create;
zRac.URL := 'http://www.lorenjo.com';
zRac.IconFile := 'http://www.lorenjo.com/favicon.ico';
zRac.IconIndex := 1;
zRac.SaveToFile('Chemin du bureau', 'Lorenjo');
zRac.Free;
end;
|
Vous n'avez pas trouvé d'exemple répondant à votre problématique ?
Cliquez sur ce lien.
|
|
|
 | |  |
|
|
