Карта сайтаСсылкиКонтакты

Как создать ярлык URL для доступа в интернет

PDF Печать
Статьи

В отличие от обычных ярлыков .LNK (Ярлык к документу или приложению) ярлык интернет указывает на URL (путь к веб-документу). Вот, что нужно, чтобы создать интернет ярлык, используя Delphi.

Самый простой способ просмотреть ярлык интернета - открыть его в Блокноте. Содержимое самого простого ярлыка примерно следующий:


[InternetShortcut]
 URL=http://delphiru.ru

Как Вы можете увидеть, содержимое ярлыка интернет схоже с файлом .INI. URL представляет собой адрес страницы, которую нужно загрузить. Полное определение - протокол://сервер/страница.

Новый ярлык интернет страницы

Вы можете легко создать ярлык, если у Вас есть URL страницы, с которой Вы хотите соединиться. Когда сделаете на нем двойной щелчок, откроется браузер и сайт (или Веб-документ), связанный с ярлыком.

Вот простая функция Delphi, чтобы создать .URL файл. Процедура CreateInternetShortcut создает файл ярлыка URL с указанным именем файла (Параметр FileName) для данного URL(LocationURL), перезаписывая любой существующий ярлык с тем же именем.


uses IniFiles;
 { ... }
 procedure CreateInternetShortcut(const FileName, LocationURL : string) ;
 begin
   with TIniFile.Create(FileName) do
   try
     WriteString(
        'InternetShortcut',
        'URL',
        LocationURL) ;
   finally
     Free;
   end;
 end; (*CreateInterentShortcut*)

Вот простое использование:


procedure TForm1.Button1Click(Sender: TObject);
begin
    // Создаем файл .URL по имени "Программирование Delphi"
    // В корневой директории диска C
    // указывающий на http://delphiru.ru

    CreateInterentShortcut('c:\Программирование Delphi.URL ', 'http://delphiru.ru') ;
end;

Определение иконки для ярлыка

Для того, чтобы все это выглядело опрятно, Вы можете изменить связанный с ярлыком значок. По умолчанию, ярлык интернета имеет иконку браузера по умолчанию. Для изменения иконки, Вы должны добавить два дополнительных поля в .URL файл:


[InternetShortcut]
 URL=http://delphiru.ru
 IconIndex=0
 IconFile=C:\MyFolder\MyProgram.exe

Поля IconIndex и IconFile позволяют Вам определить иконку для файла .URL. IconFile указывает на EXE-файл Вашего приложения (IconIndex - индекс значка в ресурсе EXE).

Интернет-ярлык для открытия приложения или документа

.URL файл не позволяет Вам использовать для чего-то еще, так как это делает стандартный ярлык приложения. Но это можно сделать, определив его так: файл:/// вместо протокол://. Когда Вы щелкните по такому ярлыку, откроется приложение.


[InternetShortcut]
 URL = file:///C:\MyApps\MyProgram1.exe
 IconIndex = 0
 IconFile = C:\MyFolder\MyResProgram.exe

Вот процедура, которая помещает ярлык интернета на Рабочий Стол, который указывает на Ваше *текущее* приложение. Вы можете использовать этот код, чтобы создать ярлыка для Вашей программы.


uses IniFiles, ShlObj;
 { ... }
 function GetDesktopPath: string;
 // Получить расположение папки Рабочего Стола
 var
   DesktopPidl: PItemIDList;
   DesktopPath: array [0..MAX_PATH] of Char;
 begin
   SHGetSpecialFolderLocation(0, CSIDL_DESKTOP, DesktopPidl) ;
   SHGetPathFromIDList(DesktopPidl, DesktopPath) ;
   Result := IncludeTrailingPathDelimiter(DesktopPath) ;
 end; (*GetDesktopPath*)
 
 procedure CreateSelfShortcut;
 const
   FileProtocol = 'file:///';
 var
   ShortcutTitle : string;
 begin
   ShortcutTitle := Application.Title + '.URL';
 
   with TIniFile.Create(GetDesktopPath + ShortcutTitle) do
   try
     WriteString(
        'InternetShortcut',
        'URL',
        FileProtocol + Application.ExeName) ;
     WriteString(
        'InternetShortcut',
        'IconIndex',
        '0') ;
     WriteString(
        'InternetShortcut',
        'IconFile',
        Application.ExeName) ;
   finally
     Free;
   end;
 end; (*CreateSelfShortcut*)

Заметьте: Вы просто вызываете CreateSelfShortcut, чтобы создать ярлыка на Ваше приложение на Рабочем Столе.

Где использовать .URL

Довольно распространенное использование - это при установке приложения, когда создается интернет ярлык в меню Пуск, который позволяет пользователям посетить Ваш сайт для получения обновлений, справочных материалов и т.д.


 

Комментарии   

 
0 #1 Mahambet 07.06.2013 22:57
Спасибо за статью... :-)
Цитировать
 
 
+1 #2 YULIA 09.03.2014 19:50
:sigh: :-x 8) :roll: НЕ МОГУ УСТАНОВИТЬ ЯРЛЫК ПРЯМОГО ПОДКЛЮЧЕНИЯ К ИНТЕРНЕТУ!!!КОЕ -КТО МНЕ ЕГО ПРОСТО УДАЛИЛ СО СВОЕГО ПОЛЬЗОВАТЕЛЯ-ТЕ ПЕРЬ МУЧАЮСЬ И ПОДКЛЮЧАЮ!!!!!! !!!!!
Цитировать
 
 
0 #3 Serge 09.03.2014 23:08
Цитирую YULIA:
:sigh: :-x 8) :roll: НЕ МОГУ УСТАНОВИТЬ ЯРЛЫК ПРЯМОГО ПОДКЛЮЧЕНИЯ К ИНТЕРНЕТУ!!!КОЕ-КТО МНЕ ЕГО ПРОСТО УДАЛИЛ СО СВОЕГО ПОЛЬЗОВАТЕЛЯ-ТЕПЕРЬ МУЧАЮСЬ И ПОДКЛЮЧАЮ!!!!!!!!!!!

Пуск -> Панель Управления -> Центр управления сетями и общим доступом -> Настройка нового подключения или сети -> Подключение к интернету
Цитировать
 
 
0 #4 Valentin 18.04.2016 18:43
:lol:
Цитировать
 
 
0 #5 Yalchic 05.12.2016 20:29
можно ли сделать так, что бы наводя мышкой на файл URL, появлялось маленькое окно с информацией?
Цитировать
 
 
0 #6 manicure 28.03.2017 20:01
Your style is really unique compared to other folks I have read stuff
from. Thank you for posting when you've got the opportunity, Guess I'll just bookmark this page.
Цитировать
 
 
0 #7 manicure 13.04.2017 06:51
Appreciating the commitment you put into your site and in depth information you offer.

It's great to come across a blog every once in a while that isn't the
same old rehashed information. Excellent read! I've saved your site and I'm
including your RSS feeds to my Google account.
Цитировать
 
 
0 #8 Y 6 20.04.2017 02:54
The only factor you must rely on in such a case is what
are the important phrases associated to what you are searching
for. Sort this into the desktop search programs at your disposal like the Google desktop search and you're achieved.
That is the simplest method for how you can retrieve deleted history.
Цитировать
 
 
0 #9 Wiktor cwiek 17.05.2017 18:38
Fantastic items from you, man. I've be aware your
stuff previous to and you're just extremely great.
I really like what you have received right here,
really like what you are saying and the way in which
wherein you say it. You make it enjoyable and you continue to care
for to stay it smart. I cant wait to read much more
from you. This is actually a wonderful web site.
Цитировать
 
 
0 #10 Hipolit Robakowski 27.05.2017 08:09
Hi there, this weekend is pleasant designed for me,
as this time i am reading this wonderful informative
paragraph here at my residence.
Цитировать
 

Добавить комментарий


Защитный код
Обновить