Запуск программы по двойному клику на файл!

[SoftKoc]

!Здравствуйте!

У меня есть MP3 файл, мне нужно сделать чтобы при двойном клике на него вместо " Media Player Classic " он воспроизводился с помощью плеера который написал я!

Подскажите пожалуйста как это реализовать!

Заранее очень благодарен!

[HellMercenariess]

С помощью програмки для просмотра\редактирования системного реестра, просмотри первую ветку, там должны быть привязки программ
к расширению.
Ищи - OpenWithList для интересующих типов.

[SoftKoc]

А может кто код выложит?

[HellMercenariess]

Сообщение от SoftKoc

А может кто код выложит?

Да, еще забыл сказать, сначала надо привязать тип файлов в реестре,
а потом переделать свою прогу, добавив изъятие файла или параметра.
Делаеться это при запуске программы, в обработчике OnCreate:

if  (ParamCount>0) then  
if FileExists(ParamStr(1)) then
Mediaplayer1.fileName:=ParamStr(1);
MediaPlayer1.Open;
MediaPlayer1.play;

Но это отдельная тема, уже есть на форуме несколько раз.
С одним файлом легко, а вот если много файлов за раз добавить в список, там действительно нужно готовое решение(с блокировкой повторного запуска программы и кучей обработчиков).

[raxp]

вот вам привязка по расширению:

//регистрация-
procedure RegisterFileType(ext:String;fileName:String;ico:boolean);
var rg:TRegistry;
begin
 Delete(ext,1,1);
 //
 rg:=TRegistry.Create;
 rg.RootKey:=$80000000;//HKEY_CLASSES_ROOT;
 rg.OpenKey('.'+ext,True);
 rg.WriteString('',ext+'file');
 rg.CloseKey;

 //ассоциация с иконкой-
 if ico then begin
  rg.CreateKey(ext+'file');
  rg.OpenKey(ext+'file\DefaultIcon',True);
  rg.WriteString('',FileName+',0');
  rg.CloseKey;end;
 //
 rg.OpenKey(ext+'file\shell\open\command',True);
 rg.WriteString('',FileName+' "%1"');
 rg.CloseKey;
 rg.OpenKey(ext+'file\shell\play\command',True);
 rg.WriteString('',FileName+' "%L"');
 rg.CloseKey;
 //
 rg.Free
end;

использование...

RegisterFileType('.rmp',Application.ExeName,false);

[SoftKoc]

Сообщение от raxp

вот вам привязка по расширению:

//регистрация-
procedure RegisterFileType(ext:String;fileName:String;ico:boolean);
var rg:TRegistry;
begin
 Delete(ext,1,1);
 //
 rg:=TRegistry.Create;
 rg.RootKey:=$80000000;//HKEY_CLASSES_ROOT;
 rg.OpenKey('.'+ext,True);
 rg.WriteString('',ext+'file');
 rg.CloseKey;

 //ассоциация с иконкой-
 if ico then begin
  rg.CreateKey(ext+'file');
  rg.OpenKey(ext+'file\DefaultIcon',True);
  rg.WriteString('',FileName+',0');
  rg.CloseKey;end;
 //
 rg.OpenKey(ext+'file\shell\open\command',True);
 rg.WriteString('',FileName+' "%1"');
 rg.CloseKey;
 rg.OpenKey(ext+'file\shell\play\command',True);
 rg.WriteString('',FileName+' "%L"');
 rg.CloseKey;
 //
 rg.Free
end;

использование...

RegisterFileType('.rmp',Application.ExeName,false);

Это в своей проге писать? Или делать отельную для регистрации в Register?

[raxp]

Это в своей проге писать? Или делать отельную для регистрации в Register?

это как вы пожелаете... но обычно регистрация расширений есть внутри каждого уважающего себя плеера... light alloy, mplayer classic, winamp и т.п.

[SoftKoc]

Только насколько я понимаю это делается только в том случае если по умолчанию стоит другая программа!?

[raxp]

это делается по-желанию пользователя... зайдите например в настройки LA, типы файлов или winamp - конфигурация-настройки-связи и вы это увидите наглядно.

[SoftKoc]

Смотрел, тут все понятно!
Если у вас есть пример программки такой, можно посмотреть!
Именно с этим кодом!