Программирование Delphi

В разделе реестра HKEY_CLASSES_ROOT\CLSID создадим раздел с именем {01010101-2020-3030-1111-af10af10af10}. Вместо этих цифр могут быть любые другие, а также буквы от a до f, главное, чтобы не совпадало с уже существующими разделами.

В этом разделе в строковом параметре по умолчанию записываем Outlook Express, затем создаем новый строковый параметр infotip, в его значение записываем описание программы, в нашем случае "Электронная почта".

В этом же разделе создаем два новых раздела DefaultIcon и Shell.

В значение по умолчанию DefaultIcon прописываем C:\Program Files\Outlook Express\msimn.exe,0 (или тот каталог, куда у вас установлена программа).

В разделе Shell создаем раздел Open, в этом новом разделе создаем еще раздел, с именем Command. В значение по умолчанию прописываем путь к программе C:\Program Files\Outlook Express\msimn.exe.

Создаем пустой файл без расширения. Я делаю это так. Щелкаю правой кнопкой по Рабочему столу, и в появляющемся меню выбираю Создать ярлык. Появляется диалоговое окно Создание ярлыка и на Рабочем столе появится файл с названием Новый ярлык.

Если его скопировать, то получится как раз пустой файл без расширения.

Называем полученный файл Outlook Express.{01010101-2020-3030-1111-af10af10af10}. Перезагружаем компьютер, все ярлык готов.

В принципе можно делать ярлык и для папки, для этого в разделе command указываем C:\Windows\Explorer.exe x:\name folder\name subfolder\. Но в отличие от простого ярлыка, на новый ярлык нельзя перетащить файл для копирования.

Если нет желания делать все в ручную, то можно запустить файл oe.reg:

regedit4
[hkey_classes_root\clsid\{01010101-2020-3030-1111-af10af10af10}]
@="outlook express"
"infotip"="Электронная почта"
[hkey_classes_root\clsid\{01010101-2020-3030-1111-af10af10af10}\defaulticon]
@="c:\\program files\\outlook express\\msimn.exe,0"
[hkey_classes_root\clsid\{01010101-2020-3030-1111-af10af10af10}\shell]
[hkey_classes_root\clsid\{01010101-2020-3030-1111-af10af10af10}\shell\open]
[hkey_classes_root\clsid\{01010101-2020-3030-1111-af10af10af10}\shell\open\command]
@="c:\\program files\\outlook express\\msimn.exe"

Теперь вы можете создавать свои нестандартные ярлыки для любых файлов и каталогов.