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

[Oleg-vp]

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

[JTG]

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