| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

запуск приложения [D7, WinXP]

blackdak ©   (2007-02-10 10:13:00) 

Написал медиплеер. Как сделать так, чтобы при щелчке на медиафайле запускался мой плеер и начинал воспроизведение этого файла?

---

TStas   (2007-02-10 21:59:00) [1]

Вообще, это и без непосредственного редактирования ресстра можно сделать. Сервис, свойства файлов, Типы файлов :)

---

Observer   (2007-02-10 18:34:00) [2]

procedure TForm1.Button2Click(Sender: TObject);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CLASSES_ROOT;
Reg.OpenKey('.MP3' , True);
Reg.WriteString('', 'MP3file');
Reg.CloseKey;

Reg.CreateKey('MP3'+'file_cyd');
Reg.OpenKey('MP3file\DefaultIcon', True);
Reg.WriteString('', Application.ExeName + ',0');
Reg.CloseKey;
Reg.OpenKey('MP3file\shell\open\command', True);
Reg.WriteString('', Application.ExeName + ' "%1"');
Reg.CloseKey;
Reg.Free;
end;

procedure TForm1.FormShow(Sender: TObject);
var
Str:String;
i:Integer;
begin
if (ParamCount > 0) then
 begin
  Str:=ParamStr(1);
  for i:=2 to ParamCount do
   begin
    Str:=Str+' '+ParamStr(i);
   end;
  MediaPlayer1.FileName(Str);
MediaPlayer1.Play;
 end;
end;

Кажется так

---

-DeBUGGeR-   (2007-02-10 15:37:00) [3]

вопрос немного не в тему:
а медиа плейер случайно не с помощью компонента TMediaPlayer написан ?

а по теме:
cmd -> regedit ..
там ищешь ключи .mp3 и т.п. и смотришь как и что в них прописано.... находишь закономерности, и в проге меняешь пути программ на свои.

---

blackdak   (2007-02-10 10:18:00) [4]

А как это сделать? нет ли конкретного примера?

---

Нож   (2007-02-10 10:17:00) [5]

Прописать в реест типы файлов с ключами shell и shellex :-)

---

Наверх