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

[Menmo]

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

[Luuzuk]

изменение ассоциаций файлов:
http://windata.ru/windows-7/optimiza...v-v-windows-7/

В вашу программу первым параметром передастся имя файла, который следует открыть. Подробнее о параметрах: http://www.delphisources.ru/pages/fa...amStr.php.html

[Sciv]

Правой кнопкой мыши по файлу - открыть с помощью... не?

[Кольша]

Здесь есть несколько примеров плееров, ассоциации файлов и пример wm_copydata для обмена данными между двумя программами

[Menmo]

Сообщение от Кольша

Здесь есть несколько примеров плееров, ассоциации файлов и пример wm_copydata для обмена данными между двумя программами

Спасибо, но у меня делфи ругается когда я в uses добовляю модуль Windows

[Stilet]

Как ругается?

[Menmo]

Всё понял, исправил, но опять вопрос, когда открываю файл вот такая штука http://img441.imageshack.us/img441/7162/player2p.png

[Кольша]

Мне кажется или вам надо показать код...т.к. из этого нечего не понятно

[Menmo]

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;

[Menmo]

Ктонибудь, помогите!