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

made in programmersforum 4

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

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

8th
Ноя

Ассоциация файлов

Posted by micher under Delphi

Как сделать ассоциацию файлов формата mp3 с моей программой? И что-бы программа открывала эти файлы и воспроизводила (программа Плеер).ц

Menmo



...

uses Registry;

...

procedure TForm1.Button1Click(Sender: TObject);

const

ext:string='SG';//расширение файла

var

reg: TRegistry;

iconp,icon,app:string;

begin

app:=Application.ExeName;//Путь к программе которая будет открывать

iconp:=app;//Путь к файлу exe/dll в котором храниться иконка

icon:='0';//Номер иконки по счету

reg:=TRegistry.Create;//Создания reg

with reg do

begin

RootKey:=HKEY_CLASSES_ROOT;

OpenKey('.'+ext,True);

WriteString('',ext+'file');

CloseKey;

CreateKey(ext+'file');

OpenKey(ext+'file\DefaultIcon',True );

WriteString('',iconp+','+icon);

CloseKey;

OpenKey(ext+'file\shell\open\comman d',True);

WriteString('',app+' "%1"');

CloseKey;

Free;

end;

SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil); // Обновление иконок по всюду т.е. сообщаем винде что, что-то изменилось

end;