VBNet - Форум - Открытие файлов

Вопрос: Открытие файлов Добавлено: 10.09.07 19:14

Автор вопроса: yahenz

Всем привет!
Пусть моя прога создает файл с расширением ord. Я хочу чтобы по двойному нажатию на файлы с таким расширением запускалась моя прога. И еще когда программа будет запускаться, как она поймет что нужно открыть файл по котороу нажимали? Мне говорили что нужно зарегистрировать расширение в системе, что то вроде этого, вообщем как все это сделать? спс.
Ответить

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

Номер ответа: 1 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979	Web-сайт: sharpc.livejournal.com Профиль \| \| #1	Добавлено: 10.09.07 19:58
	HKEY_CLASSES_ROOT\.ord Имя файла передается в командной строке Ответить

Номер ответа: 2 Автор ответа: Stuart Вопросов: 5 Ответов: 152	Профиль \| \| #2	Добавлено: 10.09.07 23:56
	В общем, так!! Не буду тратить время на объяснение, а сразу скажу, что и как делать. Для начала, создай модуль и помести следующий код(в нем есть что то лишнее, но я думаю что именно ты разберешься сам): =============================================================== Public Const REG_SZ As Long = 1 Public Const REG_DWORD As Long = 4 Public Const HKEY_LOCAL_MACHINE = &H80000002 Public Const HKEY_CLASSES_ROOT = &H80000000 Public Const HKEY_CURRENT_USER = &H80000001 Public Const HKEY_USERS = &H80000003 Public Const ERROR_NONE = 0 Public Const ERROR_BADDB = 1 Public Const ERROR_BADKEY = 2 Public Const ERROR_CANTOPEN = 3 Public Const ERROR_CANTREAD = 4 Public Const ERROR_CANTWRITE = 5 Public Const ERROR_OUTOFMEMORY = 6 Public Const ERROR_INVALID_PARAMETER = 7 Public Const ERROR_ACCESS_DENIED = 8 Public Const ERROR_INVALID_PARAMETERS = 87 Public Const ERROR_NO_MORE_ITEMS = 259 Public Const KEY_ALL_ACCESS = &H3F Public Const REG_OPTION_NON_VOLATILE = 0 Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, ByVal lpSecurityAttributes As Long, phkResult As Long, lpdwDisposition As Long) As Long Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long Declare Function RegQueryValueExString Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String, lpcbData As Long) As Long Declare Function RegQueryValueExLong Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Long, lpcbData As Long) As Long Declare Function RegQueryValueExNULL Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As Long, lpcbData As Long) As Long Declare Function RegSetValueExString Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpValue As String, ByVal cbData As Long) As Long Declare Function RegSetValueExLong Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpValue As Long, ByVal cbData As Long) As Long Declare Function RegDeleteKey& Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) Declare Function RegDeleteValue& Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) 'Создание нового ключа Public Function CreateNewKey(lPredefinedKey As Long, sNewKeyName As String) Dim hNewKey As Long Dim lRetVal As Long lRetVal = RegCreateKeyEx(lPredefinedKey, sNewKeyName, 0&, vbNullString, REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, 0&, hNewKey, lRetVal) RegCloseKey (hNewKey) End Function 'Запись данных в ключ Public Function SetKeyValue(lPredefinedKey As Long, sKeyName As String, sValueName As String, vValueSetting As Variant, lValueType As Long) Dim lRetVal As Long Dim hKey As Long lRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName, 0, KEY_ALL_ACCESS, hKey) lRetVal = SetValueEx(hKey, sValueName, lValueType, vValueSetting) RegCloseKey (hKey) End Function Public Function SetValueEx(ByVal hKey As Long, sValueName As String, lType As Long, vValue As Variant) As Long Dim lValue As Long Dim sValue As String Select Case lType Case REG_SZ sValue = vValue SetValueEx = RegSetValueExString(hKey, sValueName, 0&, lType, sValue, Len(sValue)) Case REG_DWORD lValue = vValue SetValueEx = RegSetValueExLong(hKey, sValueName, 0&, lType, lValue, 4) End Select End Function 'Возвращает значения записанные в ключе(т.е. чтение) Public Function QueryValue(lPredefinedKey As Long, sKeyName As String, sValueName As String) Dim lRetVal As Long Dim hKey As Long Dim vValue As Variant lRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName, 0, KEY_ALL_ACCESS, hKey) lRetVal = QueryValueEx(hKey, sValueName, vValue) QueryValue = vValue RegCloseKey (hKey) End Function Function QueryValueEx(ByVal lhKey As Long, ByVal szValueName As String, vValue As Variant) As Long Dim cch As Long Dim lrc As Long Dim lType As Long Dim lValue As Long Dim sValue As String On Error GoTo QueryValueExError 'Определение размера и типа считываемых данных lrc = RegQueryValueExNULL(lhKey, szValueName, 0&, lType, 0&, cch) If lrc <> ERROR_NONE Then MsgBox "Данных (ключа) не существует!", vbExclamation, Form1.Caption Select Case lType 'Для символьных Case REG_SZ: sValue = String(cch, 0) lrc = RegQueryValueExString(lhKey, szValueName, 0&, lType, sValue, cch) If lrc = ERROR_NONE Then vValue = Left$(sValue, cch) Else vValue = Empty End If 'Для числовых Case REG_DWORD: lrc = RegQueryValueExLong(lhKey, szValueName, 0&, lType, lValue, cch) If lrc = ERROR_NONE Then vValue = lValue 'Для остальных не поддержанных типов данных Case Else lrc = -1 End Select QueryValueExExit: QueryValueEx = lrc Exit Function QueryValueExError: Resume QueryValueExExit End Function 'Удаление значений ключа Public Function DeleteValue(lPredefinedKey As Long, sKeyName As String, sValueName As String) Dim lRetVal As Long Dim hKey As Long lRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName, 0, KEY_ALL_ACCESS, hKey) lRetVal = RegDeleteValue(hKey, sValueName) RegCloseKey (hKey) End Function 'Удаление ключа Public Function DeleteKey(lPredefinedKey As Long, sKeyName As String) Dim lRetVal As Long lRetVal = RegDeleteKey(lPredefinedKey, sKeyName) End Function Теперь для того чтобы привязать файлы «.ord» к твоей проги, вот код, можеш поместить его в загрузку формы: CreateNewKey HKEY_CLASSES_ROOT, ".ord\shell\open\command" ‘создаем нужные разделы в реестре SetKeyValue HKEY_CLASSES_ROOT, ".ord\shell\open\command", "", "C:\Проект12.exe", REG_SZ ‘"C:\Проект12.exe" - прописываем путь к нашей программы Вот и всё!!! Ответить

Номер ответа: 3 Автор ответа: Mr.Smile ICQ: 427682013 Вопросов: 14 Ответов: 464	Профиль \| \| #3	Добавлено: 11.09.07 00:28
	www.VBNet.Ru 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 = ":\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 Ответить

Номер ответа: 4 Автор ответа: Mr.Smile ICQ: 427682013 Вопросов: 14 Ответов: 464	Профиль \| \| #4	Добавлено: 11.09.07 00:30
	Комментарий автора примера (забыл вставить): Данный пример покажет, как можно связать файлы с расширением .BAR с вашим приложением. В моем случае - это приложение для редактирования текстовых файлов. Ответить

Номер ответа: 5 Автор ответа: Mr.Smile ICQ: 427682013 Вопросов: 14 Ответов: 464	Профиль \| \| #5	Добавлено: 11.09.07 00:31
	Ой! Это подфорум .NET! Заблудился! Сорри. Ответить

Номер ответа: 6 Автор ответа: »VladikComper« ICQ: 419668582 Вопросов: 23 Ответов: 147	Web-сайт: vladikcomper.narod.ru Профиль \| \| #6	Добавлено: 11.09.07 19:42
	DDE... DDE и еще раз DDE!!! Все так часто задают этот вопрос (даже устал обяснять) В проге: Form1.LinkMode = 1, Form1.LinkTopic = "MyProga" В Windows: Панель задач > Свойства папки > Типы файлов > Новый. Создаешь новую команду, скажем "отрыть" и вписываешь: Приложение - "адрес проги" %1, ставишь флажок "Использовать DDE": Сообщение DDE - %1, Приложение - MyProga... ОК, ОК, Применить! В проге: Private Sub Form_LinkExecute(CmdStr As String, Cancel As Integer) ' cmd - имя файла, который User запустил двойным щелчком!!! Ответить

Номер ответа: 7 Автор ответа: »VladikComper« ICQ: 419668582 Вопросов: 23 Ответов: 147	Web-сайт: vladikcomper.narod.ru Профиль \| \| #7	Добавлено: 11.09.07 19:43
	Ой - это же .NET!!! Но все равно третий абзац подойдет!!! Ответить

Номер ответа: 8 Автор ответа: ZeroX ICQ: 220401330 Вопросов: 47 Ответов: 406	Профиль \| \| #8	Добавлено: 11.09.07 20:32
	Imports System Imports System.Security Imports Microsoft.Win32 Public Class FileAssociation Friend Structure FileType Public Extension As String Public PropertyName As String Public FullName As String Public IconPath As String Public IconIndex As Short Public Command As String End Structure Private Info As New FileType() Public Property Extension() As String Get Return Info.Extension End Get Set(ByVal Value As String) Info.Extension = Value End Set End Property Public Property PropertyName() As String Get Return Info.PropertyName End Get Set(ByVal Value As String) Info.PropertyName = Value End Set End Property Public Property FullName() As String Get Return Info.FullName End Get Set(ByVal Value As String) Info.FullName = Value End Set End Property Public Property IconPath() As String Get Return Info.IconPath End Get Set(ByVal Value As String) Info.IconPath = Value End Set End Property Public Property IconIndex() As Short Get Return Info.IconIndex End Get Set(ByVal Value As Short) Info.IconIndex = Value End Set End Property Public Property Command() As String Get Return Info.Command End Get Set(ByVal Value As String) Info.Command = Value End Set End Property Public Sub CreateAssociation() Dim RAX As RegistryKey RAX = Registry.ClassesRoot.CreateSubKey(Extension) RAX.SetValue("", PropertyName) RAX.Close() RAX = Registry.ClassesRoot.CreateSubKey(PropertyName) RAX.SetValue("", FullName) RAX.Close() If IconPath <> "" Then RAX = Registry.ClassesRoot.CreateSubKey(PropertyName & "\" & "efaultIcon" RAX.SetValue("", IconPath & "," & IconIndex.ToString()) RAX.Close() End If RAX = Registry.ClassesRoot.CreateSubKey(PropertyName & "\" & "Shell" & "\" & "open" & "\" & "Command" RAX.SetValue("", Command) RAX.Close() End Sub Public Sub RemoveAssociation() Registry.ClassesRoot.DeleteSubKeyTree(Extension) Registry.ClassesRoot.DeleteSubKeyTree(PropertyName) End Sub End Class Ответить

Номер ответа: 9 Автор ответа: BUMM ® Вопросов: 8 Ответов: 482	Профиль \| \| #9	Добавлено: 11.09.07 22:40
	Для файлов с расширением .hello My.Computer.Registry.ClassesRoot.CreateSubKey(".Hello".SetValue("", "Hello", Microsoft.Win32.RegistryValueKind.String) My.Computer.Registry.ClassesRoot.CreateSubKey("Hello\shell\open\command".SetValue("", Application.ExecutablePath & _ " ""%l"" ", Microsoft.Win32.RegistryValueKind.String) Ответить

Номер ответа: 10 Автор ответа: yahenz Вопросов: 8 Ответов: 5	Профиль \| \| #10	Добавлено: 12.09.07 22:01
	Всем спасибо, попробую все примеры. Ответить

Страница: 1 |