| Вопрос: Открыть с помощью ... | Добавлено: 10.07.04 22:58 |
Автор вопроса:  Eddie
|
|
Здраствуйте ...
Допустим есть Файл: 1.mp3 Вопрос: как Открыть Этот Файл с Помощью Моей Программы (Двойной Клик на 1.mp3) и чтоб Он Произвелся с помощью Моей Программы ? Зы: Простите за Тофтологию :) |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  cresta Вопросов: 117 Ответов: 1538 |
Профиль | | #1 | Добавлено: 11.07.04 00:32 |
|
Я делал такую вещь для этого:
Dim sKeyName As String Dim sKeyValue As String Dim ret& Dim lphKey& Dim appName As String 'определение имени программы appName = App.EXEName + ".exe" 'Создание ключа "Alias". sKeyName = "Alias" sKeyValue = "Alias" & ".File" ret& = RegCreateKey&  HKEY_CLASSES_ROOT, sKeyName, lphKey&
ret& = RegSetValue& lphKey&, "", REG_SZ, sKeyValue, 0&
'Создание ключа, связанного с твоим "Alias". ret& = RegCreateKey& HKEY_CLASSES_ROOT, ".avi", lphKey&
ret& = RegSetValue& lphKey&, "", REG_SZ, "Alias", 0&
'Создание командной строки для твоего "Псевдонима" sKeyName = "Alias" sKeyValue = App.Path & "\" & appName & " %1" ret& = RegCreateKey& HKEY_CLASSES_ROOT, sKeyName, lphKey&
ret& = RegSetValue& lphKey&, "shell\open\command", REG_SZ, sKeyValue, MAX_PATH)
Замени на псевдоним на свой, и не забудь, что обычно для вступления этих изменений реестра в силу требуется перезагрузка компа. Правда, некоторые расширения неохотно меняют "хозяина". Приходится их вручную подталкивать  Почему - не знаю.
|
||
|
Номер ответа: 2 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #2 | Добавлено: 11.07.04 01:47 |
|
Если поискать на форуме, то можно найти более упорядоченный код
Как поиска и небыло... все равно никто не пользуется
http://vbnet.ru/forum/show.aspx?id=45281 http://vbnet.ru/forum/show.aspx?id=39090 http://vbnet.ru/forum/show.aspx?id=16724 http://yansoft.rdcom.ru/vb/info/reg3.htm |
||
Страница: 1 |