VBNet - Форум - Как привезать тип файла к моей программе????

Вопрос: Как привезать тип файла к моей программе???? Добавлено: 19.10.03 22:37

Автор вопроса: Ujif | Web-сайт: - | ICQ: -

Немогу привезать к программе определёній тип файла! Как сделать!!!!!!!!!!

Help!!!!!!!!!!

Ответить

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

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

cresta

Вопросов: 117
Ответов: 1538

Профиль | | #1

Добавлено: 20.10.03 00:54

Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Private Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long

' Return codes from Registration functions.

Const ERROR_SUCCESS = 0&

Const ERROR_BADDB = 1&

Const ERROR_BADKEY = 2&

Const ERROR_CANTOPEN = 3&

Const ERROR_CANTREAD = 4&

Const ERROR_CANTWRITE = 5&

Const ERROR_OUTOFMEMORY = 6&

Const ERROR_INVALID_PARAMETER = 7&

Const ERROR_ACCESS_DENIED = 8&

Private Const HKEY_CLASSES_ROOT = &H80000000

Private Const MAX_PATH = 260&

Private Const REG_SZ = 1

Private Sub Command1_Click()

Dim sKeyName As String

Dim sKeyValue As String

Dim ret&

Dim lphKey&

'Создание ключа "MyApp".

sKeyName = "MyApp"

sKeyValue = "My Application"

ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&)

ret& = RegSetValue&(lphKey&, "", REG_SZ, sKeyValue, 0&)

'Создание ключа, связанного с "MyApp".

sKeyName = ".BAR"

sKeyValue = "MyApp"

ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&)

ret& = RegSetValue&(lphKey&, "", REG_SZ, sKeyValue, 0&)

'Коммандная линия для приложения"MyApp".

sKeyName = "MyApp"

sKeyValue = "D:\Basic\MyProjects\SharPad\SharPad.exe %1"

ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&)

ret& = RegSetValue&(lphKey&, "shell\open\command", REG_SZ, sKeyValue, MAX_PATH)

End Sub

Вместо ".BAR" вставить расширение файла, который надо привязать к программе

Ответить

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

cresta

Вопросов: 117
Ответов: 1538

Профиль | | #2

Добавлено: 20.10.03 01:13

Дополнение: при клике на файл будет вызываться программа, а дальше в

командной строке передай необходимые данные для вызываемой программы.

(имя файла и т.д.) И ещё, возможно некоторые расширения не захотят быть

связанными таким способом(иногда бывает) попробуй в дополнение к вышеописанному

связать тип файла вручную(Открыть-С помощью-Выбрать программу) и в свойствах

файла указать принадлежность к своей программе.(Свойства-Приложение-Изменить)

Ответить

Страница: 1 |