| Вопрос: Re: Открыть с Помощью ... | Добавлено: 03.08.04 11:01 |
Автор вопроса:  Eddie
|
|
Я Уже задавал Этот вопрос, но меня не так поняли: Открыть с Помощью не Прописаться в Реестре, это уже сделано было.
А Открыть Фил какой нить и Воспроизвести, как в Winamp'e Кликаю два раза на 1.mp3 и Открывается Винамп и этот Фил в Нем Должен воспроизвестись ... Заранее Спасибо Большое ... |
| Ответы | Всего ответов: 10 |
|
Номер ответа: 1 Автор ответа:  sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #1 | Добавлено: 03.08.04 11:29 |
|
это называется ассоциация файла, если я не ошибаюсь и верно понял суть вопроса!
И это так же обсуждалось, ищи на форуме "Associate", я кидал код! |
||
|
Номер ответа: 2 Автор ответа: Eddie Вопросов: 11 Ответов: 120 |
Профиль | | #2 | Добавлено: 04.08.04 19:53 |
|
Это там где Ты писал:
Эх долго я обходил этот топик стороной... ну да смотреть больно 
если дато мне нужно не то Например есть моя прога там есть List1 два раза кликаю на 1.mp3 и запускается моя прога и Этот Файл в моем List1, co Своим Путем  и этот фил Должен воспроизвестись ...
|
||
|
Номер ответа: 3 Автор ответа: EddieВопросов: 11 Ответов: 120 |
Профиль | | #3 | Добавлено: 04.08.04 19:55 |
|
и Прога моя Перед Кликом Выгружена ... Лежит где нибудть там
|
||
|
Номер ответа: 4 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #4 | Добавлено: 05.08.04 00:18 |
| ну, так оно и есть, говорю же ассоциация с файлом... | ||
|
Номер ответа: 5 Автор ответа: EddieВопросов: 11 Ответов: 120 |
Профиль | | #5 | Добавлено: 05.08.04 07:32 |
|
Хорошо я Твой и Еще Кодик скачал, Сеня с Работы Прийду попробую Все, если все получиться Выложу Сюда, Чтоб Люди больше не парились ... d
|
||
|
Номер ответа: 6 Автор ответа:  Ra$calICQ: 8068014 Вопросов: 18 Ответов: 817 |
Web-сайт: Профиль | | #6 | Добавлено: 05.08.04 10:27 |
Private Sub AsProgram(FileType As String)
 im retval As Long
im Result As Long
im SA As SECURITY_ATTRIBUTES
im sPath As String
'// Ñîçäàåì êëþ÷ äëÿ ïðîãðàììû retval = RegCreateKeyEx(HKEY_CLASSES_ROOT, App.Title, 0, vbNullString, 0, KEY_ALL_ACCESS, SA, Result, &H1) '// Ïðèñâàèâàåì çíà÷åíèþ ïî óìîë÷àíèþ íàçâàíèå ïðîãðàììû RegSetValueEx Result, "", 0, REG_SZ, ByVal App.Title, Len(App.Title) '// Ñîçäà¸ì êëþ÷, ñâÿçàííûé ñ ðàñøèðåíèåì ôàéëà retval = RegCreateKeyEx(HKEY_CLASSES_ROOT, FileType, 0, vbNullString, 0, KEY_ALL_ACCESS, SA, Result, &H1) '// Ïðèñâàèâàåì çíà÷åíèþ ïî óìîë÷àíèþ íàçâàíèå ïðîãðàììû RegSetValueEx Result, "", 0, REG_SZ, ByVal App.Title, Len(App.Title) '// Ïîñëåäíèå øàã - àññîöèàöèÿ òèïà ñ ïðèëîæåíèåì '//Îïðåäåëÿåì êîìàíäíóþ ñòðîêó äëÿ ïðèëîæåíèÿ If Right(App.Path, 1) = "\" Then sPath = App.Path & App.EXEName & ".exe %1" Else sPath = App.Path & "\" & App.EXEName & ".exe %1" End If retval = RegCreateKeyEx(HKEY_CLASSES_ROOT, App.Title & "\shell\open\command", 0, vbNullString, 0, KEY_ALL_ACCESS, SA, Result, &H1) RegSetValueEx Result, "", 0, REG_SZ, ByVal sPath, Len(sPath) End Sub 'Register Private Sub Command2_Click() AsProgram ".ssm" End Sub 'Unregister Private Sub Command3_Click() RegDeleteKey HKEY_CLASSES_ROOT, ".ssm" End Sub |
||
|
Номер ответа: 7 Автор ответа: EddieВопросов: 11 Ответов: 120 |
Профиль | | #7 | Добавлено: 05.08.04 21:24 |
|
Ra$cal, Спасибо, но это не то что мне надо, в Ресстре Уже все записанно надо вот это :
Re: Например есть моя прога там есть List1 два раза кликаю на 1.mp3 и запускается моя прога и Этот Файл в моем List1, co Своим Путем и этот фил Должен воспроизвестись ...
End Re Двойной клик -> Должна загрузиться Прога и Фил Должен быть в Листе и "Играть" |
||
|
Номер ответа: 8 Автор ответа: Ra$calICQ: 8068014 Вопросов: 18 Ответов: 817 |
Web-сайт: Профиль | | #8 | Добавлено: 06.08.04 10:51 |
|
Это тооже не проблема: Private Sub Form_Load() If Command <> "" Then list1.AddItem Command Proigrat Command End Sub Вроде так. Если чё не работает - напиши |
||
|
Номер ответа: 9 Автор ответа: EddieВопросов: 11 Ответов: 120 |
Профиль | | #9 | Добавлено: 07.08.04 18:08 |
|
Ra$cal, Дай мне свою Фотку, я каждое утро буду вставать и на Нее молиться РАБОТАААТТЕЕЕТТТТ, Спасибо Те Огромное Дружище !!!
|
||
|
Номер ответа: 10 Автор ответа: Ra$calICQ: 8068014 Вопросов: 18 Ответов: 817 |
Web-сайт: Профиль | | #10 | Добавлено: 07.08.04 19:25 |
|
Всегда пожалуйста
|
||
Страница: 1 |