Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

1st
Май

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

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;