Значок для своего расширения.

[KaDima28]

reg := tregistry.create;
// устанавливаем главный раздел
reg.rootkey := hkey_classes_root;
// создается ключ ".txt", если его нет
reg.openkey('.ctt',true);
// создается параметр со значением "!txt", если его нет
reg.writestring('', '!ctt');
// закрываем этот ключ


reg.openkey('!cttdefaulticon',true) ;
reg.writestring('', paramstr(0) + ', 1');
reg.closekey(); //Вот он закрывает не '!cttdefaulticon' а '.ctt'
reg.openkey('!cttshellopencommand', true);
// создается параметр со значением "имя файла "%1"" - адрес нашей проги
reg.writestring('', 'D:\Vesna-Soft\INFORMATIKA\ComputerTests.exe' );
// закрываем ключ
reg.closekey;
// освобождаем реестр, но настройки сохраняем
reg.free;

Функцией Процедурой пробовал. Не получилось

[doktor255]

Сообщение от KaDima28

Не по теме: единственный минус в этом форуме, это то что он выходит автоматом.

Не по теме: А Вы попробуйте заюзать волшебную галочку "Запомнить?" говорят помогает

[KaDima28]

Ладно давно меня здесь не было. Короче весь код я НАШЕЛ!!!
Сейчас он лежит на моих руках. Ох... Вам повезло =)

Вот код:

reg := tregistry.create;
// устанавливаем главный раздел
reg.rootkey := hkey_classes_root;
// создается ключ ".txt", если его нет
reg.openkey('.ctt',true);
// создается параметр со значением "!txt", если его нет
reg.writestring('', '!ctt');
// закрываем этот ключ
reg.openkey('!cttdefaulticon',true);
reg.writestring('', paramstr(0) + ', 1');
reg.closekey;
reg.openkey('!cttshellopencommand', true);

reg.writestring('', 'C:\CTT.ico'); //Вот, вместо пути, меняем на свой.
// закрываем ключ
reg.closekey;
// освобождаем реестр, но настройки сохраняем
reg.free;
SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);

ВСЕ, ВСЕ, ВСЕ ПОЗДРАВЛЯЮ ВСЕХ КОМУ ПОВЕЗЛО =)
ЗЫ: Спасибо всем за помощь!

[KaDima28]

Не по теме: А Вы попробуйте заюзать волшебную галочку "Запомнить?" говорят помогает

Ой спасибо, не заметил.

[XE5]

А что произойдёт, если удалить 'C:\CTT.ico'? А теперь представим что иконка лежит внутри приложения (не путать с MAINICON), а windows её вычитывает (она это умеет). Вопрос: какой метод красивее?