Добавление компонентов в "мой компьютер"

Видел как некоторые программы добавляю в папку "Мой компьютер" свои элементы , чаще всего типо ссылок на реально существующие папки , зарытые в программе. Подскажите пожалуйста как можно организовать на Delphi следующее: 1) создание папки в "мой компьютер" 2) создание своего раздела жестого диска (что наверно намного сложнее) 3) Сетевого диска , который бы опять же ссылался на какую-нить папку того же компа
1 ответ

2, 3:
C:\Documents and Settings\RMGUser>subst/? Сопоставление имени диска указанному пути.SUBST [диск1: [диск2:]путь] SUBST диск1: /Dдиск1: Виртуальный диск, который сопоставляется указанному пути. [диск:]путь Физические диск и путь, которым сопоставляется виртуальный диск. /D Удаление ранее созданного виртуального диска.Введите SUBST без параметров для вывода текущего списка виртуальных дисков.
есть ещё какая-то функция для этого, забыл название -- Во, нашел, DefineDosDevice/QueryDosDevice. Собственно программа Subst их и используетА по поводу первого вопроса - есть утилита Folder2MyPC, так вот трейс её действий (касперский с параноидальным уровнем защиты рулит )
Ключ: HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{BB4BC540-CA57-4C0F-9397-9AB6B658B5AD}
Значение: 
Новые данные(Строка Unicode, заканчивающаяся нулем):
Моя хрень

Ключ: HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{BB4BC540-CA57-4C0F-9397-9AB6B658B5AD}
Значение: InfoTip
Новые данные(Строка Unicode, заканчивающаяся нулем):
Хрень

Ключ: HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{BB4BC540-CA57-4C0F-9397-9AB6B658B5AD}\InProcServer32
Значение: 
Новые данные(Строка Unicode, заканчивающаяся нулем):
shdocvw.dll

Ключ: HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{BB4BC540-CA57-4C0F-9397-9AB6B658B5AD}\InProcServer32
Значение: ThreadingModel
Новые данные(Строка Unicode, заканчивающаяся нулем):
Apartment

Ключ: HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{BB4BC540-CA57-4C0F-9397-9AB6B658B5AD}\Instance
Значение: CLSID
Новые данные(Строка Unicode, заканчивающаяся нулем):
{0afaced1-e828-11d1-9187-b532f1e9575d}

Ключ: HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{BB4BC540-CA57-4C0F-9397-9AB6B658B5AD}\Instance\InitPropertyBag
Значение: Target
Новые данные(Строка Unicode, заканчивающаяся нулем):
D:\JTG

Ключ: HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{BB4BC540-CA57-4C0F-9397-9AB6B658B5AD}\Instance\InitPropertyBag
Значение: Attributes
Новые данные(Free form binary):
0f 00 00 00

Ключ: HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{BB4BC540-CA57-4C0F-9397-9AB6B658B5AD}\ShellFolder
Значение: WantsFORPARSING
Новые данные(Строка Unicode, заканчивающаяся нулем):

Ключ: HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{BB4BC540-CA57-4C0F-9397-9AB6B658B5AD}\ShellFolder
Значение: Attributes
Новые данные(Free form binary):
32 00 00 f0
Короче опять расширения оболочки, курить Великий Мануал, что-то из этой оперы http://msdn2.microsoft.com/en-US/lib...ellobjs_topic2