|
Вопрос # 5 476/ вопрос решён / |
|
Здравствуйте, уважаемые эксперты!
Создал простенький проигрываетль но назрел вопрос с ассоциацией, исправить это вручную через винду мне не сложно но хотелось бы чтобы файлы которые открываются через мой плеер имели мою же иконку, нагуглить ничего не удалось так как выдаёт только получение иконки или програмную ассоциацию которая мне как раз и не нужна, так как же мне разрешить эту проблему?
К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)
 |
Вопрос задал: ierihon1 (статус: 1-ый класс)
Вопрос отправлен: 3 июля 2011, 22:52
Состояние вопроса: решён, ответов: 1.
|
Ответ #1. Отвечает эксперт: min@y™
Дарю тебе целый модуль. Выкинь оттуда всё, кроме функций для работы с реестром.
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 4 июля 2011, 09:34
Оценка за ответ: 5
Комментарий к оценке: Спасибо)
|
Мини-форум вопроса
Всего сообщений: 5; последнее сообщение — 4 июля 2011, 13:08; участников в обсуждении: 2.
|
|
ierihon1 (статус: 1-ый класс), 4 июля 2011, 10:10 [#1]:
min@y™: это я так понимаю вот эта функция ?
function RegFileExt(AExtension, AExtDescription, AFileDescription,
AOpenWith, AParamString: String; AIconIndex: Integer): Boolean;
|
|
|
min@y™ (статус: Доктор наук), 4 июля 2011, 10:30 [#2]:
Цитата (ierihon1):
это я так понимаю вот эта функция ?
Ога.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
ierihon1 (статус: 1-ый класс), 4 июля 2011, 10:31 [#3]:
Тогда у меня такой вопрос - с какими параметрами вызывать эту функцию?
Просто я знаю что в IconIndex нужно поставить 0 чтобы была картинка самого приложения, и в AExtension записывается расширееие файлов, а вот с остальным..
|
|
|
min@y™ (статус: Доктор наук), 4 июля 2011, 12:42 [#4]:
Примерчик:
const
// Расширения, иконки, реестр
ProjectFileExt = '.seproj';
ProjectDefaultExt = 'seproj';
ProjectExtDesc = 'seproject';
ProjectFileDesc = 'Проект Source Editor';
ProjectIconIndex = 1;
ProjectFileFilter = 'Файлы проектов (*' + ProjectFileExt + ')|*' + ProjectFileExt;
ToolbarsKey = 'Software\SourceEditor\Toolbars';
// Регистрация расширения
if not FileExtIsRegistered(ProjectFileExt)
then RegFileExt(ProjectFileExt,
ProjectExtDesc,
ProjectFileDesc,
ProgramExeFile,
'%1',
ProjectIconIndex);
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
ierihon1 (статус: 1-ый класс), 4 июля 2011, 13:08 [#5]:
Спасибо)
|
4 июля 2011, 13:08: Статус вопроса изменён на решённый (изменил автор вопроса — ierihon1)
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
