запуск приложения

← →
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 и т.п. и смотришь как и что в них прописано.... находишь закономерности, и в проге меняешь пути программ на свои.

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;

Кажется так

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

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