精华区文章阅读

发信人: zxfsnow (江南的雪), 信区: VB
标  题: 怎样为文件建立关联
发信站: 哈工大紫丁香 (2000年06月18日12:01:18 星期天), 转信

发信人: zkboy (小小鸟), 信区: VisualBasic
标  题: Re: 怎样为文件建立关联？
发信站: BBS 水木清华站 (Thu Jun 15 20:10:23 2000)

给你个例子借鉴一下
模块：
Declare Function RegCreateKey& Lib "advapi32.DLL" Alias "RegCreateKeyA" (By
Val hKey&, ByVal lpszSubKey$, lphKey&)
Declare Function RegSetValue& Lib "advapi32.DLL" Alias "RegSetValueA" (ByVal
hKey&, ByVal lpszSubKey$, ByVal fdwType&, ByVal lpszValue$, ByVal dwLength&
)
       Public Const ERROR_SUCCESS = 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&
       Global Const HKEY_CLASSES_ROOT = &H80000000
       Public Const MAX_PATH = 256&
       Public Const REG_SZ = 1
窗体：
Dim sKeyName As String       'Holds Key Name in registry.
Dim sKeyValue As String      'Holds Key Value in registry.
Private Const ERROR_SUCCESS = 0&
Private Const ERROR_BADDB = 1&
Private Const ERROR_BADKEY = 2&
Private Const ERROR_CANTOPEN = 3&
Private Const ERROR_CANTREAD = 4&
Private Const ERROR_CANTWRITE = 5&
Private Const ERROR_OUTOFMEMORY = 6&
Private Const ERROR_INVALID_PARAMETER = 7&
Private Const ERROR_ACCESS_DENIED = 8&
Private Const HKEY_CLASSES_ROOT = &H80000000
Private Const MAX_PATH = 256&
Private Const REG_SZ = 1
Private Sub Command1_Click()
       Dim sKeyName1 As String, sKeyValue1 As String, i As Integer, temp As
String
       Dim ret&                     'Holds error status if any from API call
s.
       Dim lphKey&                  'Holds created key handle from RegCreate
Key.
      sKeyName1 = "MyApp" & sKeyName
       sKeyValue1 = UCase(Mid(sKeyName, 2))
       sKeyValue1 = sKeyValue1 & " 文件"
       ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName1, lphKey&)
       ret& = RegSetValue&(lphKey&, "", REG_SZ, sKeyValue1, 0&)
'This creates a Root entry called .BAR associated with "MyApp".
       ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&)
       ret& = RegSetValue&(lphKey&, "", REG_SZ, sKeyName1, 0&)
'This sets the command line for "MyApp".
       sKeyValue = sKeyValue & " %1"
       ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName1, lphKey&)
       ret& = RegSetValue&(lphKey&, "shell\open\command", REG_SZ, sKeyValue,
MAX_PATH)
       End
End Sub
Private Sub Form_Load()
    Form1.Caption = "Association"
    sKeyName = InputBox("Please input the type of file to be associated,如.l
og (必要时需要全路径)", "Extention Name", ".*")
    sKeyValue = InputBox("Please input the program to associate:", "Program
Name", "*.exe")
End Sub
�
欢迎访问我的ftp ftp：//202.112.139.6
--

以科计为本,以产业报国!
  超越自我,飞跃无限!


※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.235.249]

VB 版 (精华区)