VBNet - Форум - Асоциация файлов с программой...

Вопрос: Асоциация файлов с программой... Добавлено: 18.03.03 17:28

Автор вопроса: Millenium | Web-сайт: www.aliyev.us | ICQ: 629966

Как можно сделать чтоб файл с нужным расширением открывался через мою пргграмму?
Как зарегестрировать расширение файла на мою программу?
При двойном клике или при Открыт...
Например кликаеш на *.ТХТ фалй и сначала загружается блакнот... а потом дело жетейское...
ПОМОГИТЕ!!! СРОЧНО ДО 20-ого нужно сделать...

Ответить

Ответы Всего ответов: 2

Номер ответа: 1
Автор ответа:

serWAR

ICQ: 304739736

Вопросов: 21
Ответов: 38

Web-сайт: serwar.narod.ru
Профиль | | #1

Добавлено: 19.03.03 15:44

' Самый короткий путь обращения к реестру какой я знаю
Dim Reg

Private Sub Command1_Click() 'Запись в реестр
' Первый параметр указывает на расширение твоего файла, например .MYF
' Второй параметр указывает на подраздел в этомже ключе, который ты
' ассоцеировал со своей прогой, например MYFILE
Reg.RegWrite "HKCR\.myf\", "MyFile"
' Какое значение там, такое и здесь
Reg.RegWrite "HKCR\MyFile\", "Описание файла"
' Иконка ассоцеируемая с данным типом файлов
Reg.RegWrite "HKCR\MyFile\DefaultIcon\", "%SystemRoot%\explorer.exe, 1"
' Команды на открытие
Reg.RegWrite "HKCR\MyFile\shell\Open\", "" ' Если задать эту строку, _
' то она будет отображена в контекстном меню этого файла
' А это команда на открытие, %1 - значение которое содержит путь к вабранному файлу
Reg.RegWrite "HKCR\MyFile\shell\Open\command\", "Путь к проге %1"
' Чтобы узнать какая команда передана программе(Например путь к файлу)
' служит переменная Command(Смотри Form_Load)

End Sub

Private Sub Form_Load()
Set Reg = CreateObject("WScript.Shell")
Me.Caption = Command
End Sub

' *****
' Удаление из реестра
' Reg.RegDelete "Путь"
' *****

' *****
' Чтение из реестра
' a = Reg.regread("Путь")
' *****

Ответить

Номер ответа: 2
Автор ответа:

Millenium

ICQ: 629966

Вопросов: 118
Ответов: 903

Web-сайт: www.aliyev.us
Профиль | | #2

Добавлено: 23.03.03 18:46

Спасибо... Скоро вышлю те одну ссылку! Там в Spetial Thanks будет и твое имя и мыло

ОК!!! Пока!!!

Ответить

Страница: 1 |