Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2007.04.08;
Скачать: [xml.tar.bz2];

Вниз

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

 
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 вся ветка

Форум: "Основная";
Текущий архив: 2007.04.08;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.047 c
1-1171340684
green
2007-02-13 07:24
2007.04.08
Собственный шрифт для работы в word-е и Delphi


2-1174118100
Boker
2007-03-17 10:55
2007.04.08
TImage - невозможна загрузка ...??


15-1173794839
novill
2007-03-13 17:07
2007.04.08
Гостевую специально отключили?


6-1161583477
Makhanev Alexander
2006-10-23 10:04
2007.04.08
Блокирвоание url ов...


15-1173765754
Layner
2007-03-13 09:02
2007.04.08
ADSL модем + Хаб + 2 ПК в интеренет, возможно?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский