Как разрешить Форме1 приём данных? - Общие вопросы Delphi

Rahim1993 · 18.01.2008, 18:47

В смысле, запустить мою прогу вместо Windows Media Player.Как это сделать?

Makarov · 18.01.2008, 18:58

Цитата:

В смысле, запустить мою прогу вместо Windows Media Player.Как это сделать?

Не совсем понял что вы хотите сказать?

Rahim1993 · 18.01.2008, 19:00

Цитата:

Сообщение от Makarov

Не совсем понял что вы хотите сказать?

Запускать mp3 файлы через мою прогу.

ERASERROR · 18.01.2008, 19:00

По событию 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

ДОБАВЬ ЗАПИСЬ В РЕЕСТР: HKEY-CLASSES-ROOT/.MP3/ туда запиши mp3file, дальше создай ключ MP3+'FILE_CYD', ПОТОМ открой ключ BMPFILE/DEFAULTICON, далее BMP/SHELL/OPEN/COMMAND туда запиши reg.writestring ('', application.exename+'"%1"')

mihali4 · 18.01.2008, 19:22

Цитата:

Сообщение от Rahim1993

В смысле, запустить мою прогу вместо Windows Media Player.Как это сделать?

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

Rahim1993 · 18.01.2008, 19:23

Цитата:

Сообщение от ERASERROR

По событию 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:49

Точки с запятой расставил? Если да то в том коде в переменную s записывается путь к файлу, если ты используешь tmediaplayer значит там же допиши mediaplayer1.filename:=s mediaplayer1.open

mutabor · 18.01.2008, 20:24

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

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

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

Во вторых: когда прога запустится она должна прочесть из параметра командной строки путь к файлу и воспроизвести этот файл.

Rahim1993 · 18.01.2008, 20:59

Цитата:

Сообщение от ERASERROR

ДОБАВЬ ЗАПИСЬ В РЕЕСТР: HKEY-CLASSES-ROOT/.MP3/ туда запиши mp3file, дальше создай ключ MP3+'FILE_CYD', ПОТОМ открой ключ BMPFILE/DEFAULTICON, далее BMP/SHELL/OPEN/COMMAND туда запиши reg.writestring ('', application.exename+'"%1"')

Я немного понял, но где открыть ключ и записать?

18.01.2008, 18:47	#1
Rahim1993 Пользователь Регистрация: 27.12.2007 Сообщений: 67	Как разрешить Форме1 приём данных? В смысле, запустить мою прогу вместо Windows Media Player.Как это сделать? S.R.H.(Rahim)

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 записывается путь к открываемому файлу

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"')

18.01.2008, 19:49	#8
ERASERROR Форумчанин Регистрация: 15.01.2008 Сообщений: 117	СООБЩЕНИЕ Точки с запятой расставил? Если да то в том коде в переменную s записывается путь к файлу, если ты используешь tmediaplayer значит там же допиши mediaplayer1.filename:=s mediaplayer1.open

18.01.2008, 20:24	#9
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) Проверь себя! Онлайн тестирование \| Мой блог

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Как запретить/разрешить ввод от клавиатуры любых символов (в том числе и юникодных)?	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