Как связать расширение файла с приложением? - Система - Интересные решения для программистов - Примеры кода

Система → Как связать расширение файла с приложением? → Visual Basic

Данный пример показывает, как можно связать тип файла (в данном случае *.dat) с приложением.

Option Explicit
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
Private Const ERROR_SUCCESS      As Long = 0
Private Const ERROR_BADDB       As Long = 1
Private Const ERROR_BADKEY       As Long = 2
Private Const ERROR_CANTOPEN      As Long = 3
Private Const ERROR_CANTREAD      As Long = 4
Private Const ERROR_CANTWRITE     As Long = 5
Private Const ERROR_OUTOFMEMORY    As Long = 6
Private Const ERROR_INVALID_PARAMETER As Long = 7
Private Const ERROR_ACCESS_DENIED   As Long = 8
Private Const HKEY_CLASSES_ROOT    As Long = &H80000000
Private Const MAX_PATH         As Long = 260
Private Const REG_SZ          As Long = 1

Private Sub Form_Load()

Dim sKeyName As String
 Dim sKeyValue As String
 Dim ret As Long
 Dim lphKey As Long

sKeyName = "MyApp"
 sKeyValue = "Название приложения"
 
 ret = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey)
 ret = RegSetValue&(lphKey, "", REG_SZ, sKeyValue, 0&)
 
 sKeyName = ".DAT" 'расширение файла
 sKeyValue = "MyApp"
 
 ret = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey)
 ret = RegSetValue&(lphKey, "", REG_SZ, sKeyValue, 0&)

'«говорим», что файлы типа *.DAT должно открывать наше приложение
 sKeyName = "MyApp"
 sKeyValue = App.Path & "\" & App.EXEName & ".exe %1"
 
 ret = RegCreateKey(HKEY_CLASSES_ROOT, sKeyName, lphKey)
 ret = RegSetValue(lphKey, "shell\open\command", REG_SZ, sKeyValue, MAX_PATH)

End Sub

.net, apllication, extension, vb, visual basic

KOS_MOS

unknown

19.10.2008

Меню

Подписка на RSS:

Подпишись на RSS-ленту

Поиск

Облако тегов

	Система → Как связать расширение файла с приложением? → Visual Basic Данный пример показывает, как можно связать тип файла (в данном случае .dat) с приложением. Option Explicit 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 Private Const ERROR_SUCCESS As Long = 0 Private Const ERROR_BADDB As Long = 1 Private Const ERROR_BADKEY As Long = 2 Private Const ERROR_CANTOPEN As Long = 3 Private Const ERROR_CANTREAD As Long = 4 Private Const ERROR_CANTWRITE As Long = 5 Private Const ERROR_OUTOFMEMORY As Long = 6 Private Const ERROR_INVALID_PARAMETER As Long = 7 Private Const ERROR_ACCESS_DENIED As Long = 8 Private Const HKEY_CLASSES_ROOT As Long = &H80000000 Private Const MAX_PATH As Long = 260 Private Const REG_SZ As Long = 1 Private Sub Form_Load() Dim sKeyName As String Dim sKeyValue As String Dim ret As Long Dim lphKey As Long sKeyName = "MyApp" sKeyValue = "Название приложения" ret = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey) ret = RegSetValue&(lphKey, "", REG_SZ, sKeyValue, 0&) sKeyName = ".DAT" 'расширение файла sKeyValue = "MyApp" ret = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey) ret = RegSetValue&(lphKey, "", REG_SZ, sKeyValue, 0&) '«говорим», что файлы типа .DAT должно открывать наше приложение sKeyName = "MyApp" sKeyValue = App.Path & "\" & App.EXEName & ".exe %1" ret = RegCreateKey(HKEY_CLASSES_ROOT, sKeyName, lphKey) ret = RegSetValue(lphKey, "shell\open\command", REG_SZ, sKeyValue, MAX_PATH) End Sub .net, apllication, extension, vb, visual basic KOS_MOS unknown 19.10.2008 Ваше имя Ваш E-mail (если хотите отслеживать комментарии) Дoкажи, что ты не робот Текст комментария	Меню CodeIgniter Алгоритмы Базы данных Дата и Время Интернет Интерфейс Мультимедиа ОС и Железо Работа с текстом Разное Технологии Файлы Подписка на RSS: Подпишись на RSS-ленту Поиск Облако тегов .net array asp bash browser charset check class clean convert count create css curl database date delete directory download element email equivalent extension file find form format function get height html http ie image javascript jquery load mysql number page perl php random scriplet send shell size sql string text time url utf8 variable vb visual basic width window xml xslt