Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 18.01.2008, 18:47   #1
Rahim1993
Пользователь
 
Аватар для Rahim1993
 
Регистрация: 27.12.2007
Сообщений: 67
По умолчанию Как разрешить Форме1 приём данных?

В смысле, запустить мою прогу вместо Windows Media Player.Как это сделать?
S.R.H.(Rahim)
Rahim1993 вне форума
Старый 18.01.2008, 18:58   #2
Makarov
Форумчанин
 
Аватар для Makarov
 
Регистрация: 03.01.2008
Сообщений: 102
По умолчанию

Цитата:
В смысле, запустить мою прогу вместо Windows Media Player.Как это сделать?
Не совсем понял что вы хотите сказать?
Теория без практики мертва и бесплодна, практика без теории невозможна и пагубна.
Makarov вне форума
Старый 18.01.2008, 19:00   #3
Rahim1993
Пользователь
 
Аватар для Rahim1993
 
Регистрация: 27.12.2007
Сообщений: 67
По умолчанию

Цитата:
Сообщение от Makarov Посмотреть сообщение
Не совсем понял что вы хотите сказать?
Запускать mp3 файлы через мою прогу.
S.R.H.(Rahim)
Rahim1993 вне форума
Старый 18.01.2008, 19:00   #4
ERASERROR
Форумчанин
 
Регистрация: 15.01.2008
Сообщений: 117
По умолчанию ОТВЕТ

По событию ONSHOW : var: i:integer s:string begin if paramcount>0 then for i:=2 to paramcount do s:=s+' '+paramstr(i) в переменную s записывается путь к открываемому файлу
ERASERROR вне форума
Старый 18.01.2008, 19:16   #5
ERASERROR
Форумчанин
 
Регистрация: 15.01.2008
Сообщений: 117
По умолчанию ИЗВИНЯЮСЬ, НЕ СРАЗУ ПОНЯЛ ВОПРОС

ДОБАВЬ ЗАПИСЬ В РЕЕСТР: HKEY-CLASSES-ROOT/.MP3/ туда запиши mp3file, дальше создай ключ MP3+'FILE_CYD', ПОТОМ открой ключ BMPFILE/DEFAULTICON, далее BMP/SHELL/OPEN/COMMAND туда запиши reg.writestring ('', application.exename+'"%1"')
ERASERROR вне форума
Старый 18.01.2008, 19:22   #6
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Цитата:
Сообщение от Rahim1993 Посмотреть сообщение
В смысле, запустить мою прогу вместо Windows Media Player.Как это сделать?
На любом mp3-файле кликаем правой мышкой, выбираем "Открыть с помощью/Обзор", выбираем файл вашей программы, жмем "ОК".
Теперь при даблклике по mp3-файлу будет запускаться ваша программа вместо Windows Media Player.

Последний раз редактировалось mihali4; 18.01.2008 в 19:35.
mihali4 вне форума
Старый 18.01.2008, 19:23   #7
Rahim1993
Пользователь
 
Аватар для Rahim1993
 
Регистрация: 27.12.2007
Сообщений: 67
По умолчанию

Цитата:
Сообщение от ERASERROR Посмотреть сообщение
По событию ONSHOW : var: i:integer s:string begin if paramcount>0 then for i:=2 to paramcount do s:=s+' '+paramstr(i) в переменную s записывается путь к открываемому файлу
Что-то не получается.?
S.R.H.(Rahim)
Rahim1993 вне форума
Старый 18.01.2008, 19:49   #8
ERASERROR
Форумчанин
 
Регистрация: 15.01.2008
Сообщений: 117
Подмигивание СООБЩЕНИЕ

Точки с запятой расставил? Если да то в том коде в переменную s записывается путь к файлу, если ты используешь tmediaplayer значит там же допиши mediaplayer1.filename:=s mediaplayer1.open
ERASERROR вне форума
Старый 18.01.2008, 20:24   #9
mutabor
Телепат с дипломом
Старожил
 
Аватар для mutabor
 
Регистрация: 10.06.2007
Сообщений: 4,929
По умолчанию

2 Rahim В принципе по частям все уже объяснили. Осталось соединить все вместе, и подумать еще раз, что сделано не так.

Итак, что нужно:

Во первых: нужно указать системе какую программу запускать для mp3. Первый способ описал mihali4, второй способ - прописать в реестре свою прогу для расширения mp3, указан выше, можно и значок для файлов свой.

Во вторых: когда прога запустится она должна прочесть из параметра командной строки путь к файлу и воспроизвести этот файл.
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог
mutabor вне форума
Старый 18.01.2008, 20:59   #10
Rahim1993
Пользователь
 
Аватар для Rahim1993
 
Регистрация: 27.12.2007
Сообщений: 67
По умолчанию

Цитата:
Сообщение от ERASERROR Посмотреть сообщение
ДОБАВЬ ЗАПИСЬ В РЕЕСТР: HKEY-CLASSES-ROOT/.MP3/ туда запиши mp3file, дальше создай ключ MP3+'FILE_CYD', ПОТОМ открой ключ BMPFILE/DEFAULTICON, далее BMP/SHELL/OPEN/COMMAND туда запиши reg.writestring ('', application.exename+'"%1"')
Я немного понял, но где открыть ключ и записать?
S.R.H.(Rahim)
Rahim1993 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как запретить/разрешить ввод от клавиатуры любых символов (в том числе и юникодных)? SkAndrew Общие вопросы Delphi 8 15.08.2008 15:30
Приём данных с com порта kyc0k Помощь студентам 3 28.03.2008 15:04
Приём изображений Terran Работа с сетью в Delphi 2 15.12.2007 15:03
Разрешить ввод только определеных клавиш serres Общие вопросы Delphi 3 10.12.2007 20:08