Как установить свою иконку для файлов программы

Posted by Chas under Delphi

Я создал программу для тестирования (по информатике) и создания (изменения) тестов. Вот расширение: .сtt … Открывает он его как ини-файл .
Всё работает замечательно, но хотелось бы что-бы это расширение было с красивым значком. В интернете выдает как изменить папку, но я это всё знаю. Как поставить свой значок на расширение, ПРОГРАММНО?!!!

XE5

uses Registry, ShlObj;

...

var Reg: TRegistry;

...

procedure Associate;

var s:string;

begin

  Reg:=TRegistry.Create; // создаем

  Reg.RootKey := HKEY_CLASSES_ROOT; // указываем корневую ветку

  Reg.OpenKey('.dev\OpenWithProgids\', true);

  Reg.WriteString('TestApplication.dev', '');
  Reg.OpenKey('\TestApplication.dev\DefaultIcon\', true);

  s:=Application.ExeName+',0';

  Reg.WriteString('', s);
  Reg.OpenKey('\TestApplication.dev\Shell\Open\', true);

  Reg.WriteString('', 'Открыть в TestApplication');
  Reg.OpenKey('command\', true);

  s:='"'+Application.ExeName+'" "%1"'; // %1 номер иконки в ресурсах

  Reg.WriteString('', s);
  Reg.Free;
  SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);

end;

первая иконка, это иконка самого exe, забиваем в ресурсы иконку ассоциации, меняем индекс.

тема на форуме

Похожие статьи

• Путь в реестре
• Скопировать ключи реестра
• Удалить настройки из реестра
• Только чтение ключей реестра
• Прописать в реестр автозагрузку программы
• Экспорт/импорт реестра (ветка Photoshop)
• Как програмно выполнить экспорт ветки реестра
• Сохранение столбца в секции ini файла
• Как сделать чтобы браузер открывал моё приложение по определённой ссылке?
• Ассоциация файлов с программой