Créer un raccourci vers un site (fichiers .url)



Créer un raccourci vers un site internet est très simple: il suffit de créer un fichier .url contenant le nom du site. Les fichiers URL ont une structure très simple: leur structure est très proche des fichiers .ini. Ils ne contiennent qu'une seule section [InternetShortcut], et une seule entrée URL=<adresse de votre site>.

Voici une procédure qui permet de créer un fichier .URL dans le répertoire voulu:

Fonction AddURL

uses
  FileCtrl, IniFiles;

procedure AddURL(Folder, Url, Title: string);
var
  I: TIniFile;
begin
  if Folder[Length(Folder)] <> '\' then Folder := Folder + '\';
  if not DirectoryExists(Folder) then ForceDirectories(Folder);
  I := TIniFile.Create(Folder + title + '.url');
  try
    I.WriteString('InternetShortCut', 'URL', url);
  finally
    I.Free;
  end;
end;



Voici maintenant une procédure qui permet de placer une URL dans les favoris, en utilisant la procédure ci-dessus:

Ajouter une URL aux favoris

uses
  Registry

procedure AddURLtoFavorites(Url, Title: string);
var
  Registre: TRegistry;
  path: string;
begin
  Registre := TRegistry.Create;
  try
    Registre.RootKey := HKEY_USERS;
    Registre.OpenKey('\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', true);
    if Registre.ValueExists('Favorites') then path := Registre.ReadString('Favorites')
    else path := '';
  finally
    Registre.Free;
  end;
  if path = '' then exit;
  AddUrl(path, Url, Title);
end;




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