Скачать: CL | DM;

запуск приложения   Найти похожие ветки 

← →
blackdak ©   (2007-02-10 10:13) [0]

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

---

← →
Нож ©   (2007-02-10 10:17) [1]

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

---

← →
blackdak ©   (2007-02-10 10:18) [2]

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

---

← →
-DeBUGGeR- ©   (2007-02-10 15:37) [3]

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

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

---

← →
Observer ©   (2007-02-10 18:34) [4]

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;

Кажется так

---

← →
TStas ©   (2007-02-10 21:59) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.028 c