SaveString<\/a>(HKEY_CLASSES_ROOT, “*\\shell\\” & sMenuShow & “\\command”, “”, sProgram & Space$(1) & “%1″) ‘”” \u4ee3\u8868\u5b50\u9879 command \u7684\u5b57\u7b26\u4e32\u503c(\u9ed8\u8ba4)
End Sub<\/p>\n\n\n\nPublic Sub DisRightMenu(ByVal sMenuShow As String) ‘\u89e3\u9664\u5728\u7cfb\u7edf\u53f3\u952e\u83dc\u5355\u6253\u5f00\u6587\u4ef6
SHDeleteKey HKEY_CLASSES_ROOT, sMenuShow ‘\u5220\u9664\u542b\u6709\u5b50\u9879\u7684\u9879
End Sub<\/p>\n\n\n\n
Public Function GetAssociatedProgram(ByVal sExtension As String) As String ‘\u6839\u636e\u6269\u5c55\u540d\u67e5\u627e\u9ed8\u8ba4\u6253\u5f00\u7a0b\u5e8f
GetAssociatedProgram = “”
‘If LCase(sExtension) = “dwg” Then
‘GetAssociatedProgram = Trim(GetString(HKEY_CLASSES_ROOT, “AutoCAD\\Shell\\Open\\command”, vbNullString))
‘If GetAssociatedProgram = “” Then GetAssociatedProgram = Trim(GetString(HKEY_LOCAL_MACHINE, “SOFTWARE\\Classes\\autocad\\shell\\open\\command”, vbNullString)) ‘Belt and braces
‘Exit Function
‘End If
‘ Reading the host program of DWG from the registry.
Dim temp_title As String
Dim temp_path As String
Dim fnum As Integer
Dim result As String
Dim pos As Integer
‘ Get a temporary file name with this extension.
GetTempFile IIf(LCase(sExtension) = “dwg”, “dxf”, sExtension), temp_path, temp_title
‘ Findexecutable cannot find the host program of DWG. The host programs of DXF and DWT can be found, and they are the same host program as DWG.
‘ Make the file.
fnum = FreeFile
Open temp_path & temp_title For Output As fnum
Close fnum
‘ Get the associated executable.
result = Space$(1024)
FindExecutable temp_title, temp_path, result
pos = InStr(result, Chr$(0))
GetAssociatedProgram = Left$(result, pos – 1)
‘ Delete the temporary file.
Kill temp_path & temp_title
End Function<\/p>\n\n\n\n
Private Sub GetTempFile(ByVal sExtension As String, ByRef temp_path As String, ByRef temp_title As String)’ Return a temporary file name.
Dim I As Integer
If Left$(sExtension, 1) <> “.” Then sExtension = “.” & sExtension
temp_path = Environ(“TEMP”)
If Right$(temp_path, 1) <> “\\” Then temp_path = temp_path & “\\”
I = 0
Do
temp_title = “tmp” & Format$(I) & sExtension
If Len(Dir$(temp_path & temp_title)) = 0 Then Exit Do
I = I + 1
Loop
End Sub<\/p>\n\n\n\n
‘\u6548\u679c
Public Sub Main()
On Error Resume Next
Dim OptFile As String ‘\u6240\u9009\u6587\u4ef6\u7684\u540d\u79f0
If Len(Command) = 0 Then ‘\u70b9\u51fb\u8f6f\u4ef6\u672c\u8eab\u542f\u52a8 Command = “”
‘GO ON
Else
If LCase(Left(Command, 6)) = “\/open” & Space$(1) Then ‘\u6d4f\u89c8\u5668\u53cc\u51fb\u542f\u52a8 Command = “\/open D:\\Test.iso”
OptFile = Right(Command, Len(Command) – 6)
Else ‘\u7cfb\u7edf\u53f3\u952e\u83dc\u5355\u542f\u52a8 Command = “D:\\Test.iso”
OptFile = Command
End If
End If
‘GO ON
On Error GoTo 0
End Sub<\/p>\n\n\n\n
‘\u8c03\u7528
Sub SetFile()
Dim sProgram As String
sProgram = “C:\\Windows\\notepad.exe”
Dim sShow As String
sShow = “Open With notepad”
Call Associate(“.iso”, “ISO File”, “”, “%1”, sProgram) ‘\u6ce8\u518c\u540e\u7f00\u4e3a iso \u7684\u6587\u4ef6,\u5e76\u786e\u5b9a\u5176\u9ed8\u8ba4\u6253\u5f00\u7a0b\u5e8f\u4e3a sProgram
Call SetRightMenu(sShow, sProgram) ‘\u5728\u7cfb\u7edf\u53f3\u952e\u83dc\u5355\u589e\u52a0\u4e00\u9879\u663e\u793a\u5b57\u7b26\u4e3ashow,\u5e76\u6307\u5b9a\u7531sProgram\u6253\u5f00\u6240\u9009\u6587\u4ef6
End Sub<\/p>\n","protected":false},"excerpt":{"rendered":"
Private Declare Function FindExecutable Lib “shel … \u7ee7\u7eed\u9605\u8bfb\u201c\u5229\u7528\u6ce8\u518c\u8868(Registry)\u6ce8\u518c\u65b0\u6587\u4ef6\u7c7b\u578b\u5e76\u6307\u5b9a\u9ed8\u8ba4\u6253\u5f00\u7a0b\u5e8f\u201d<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[12],"tags":[24,17],"class_list":["post-1098","post","type-post","status-publish","format-standard","hentry","category-bianchengyuandi","tag-vb","tag-biancheng"],"_links":{"self":[{"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=\/wp\/v2\/posts\/1098","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1098"}],"version-history":[{"count":10,"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=\/wp\/v2\/posts\/1098\/revisions"}],"predecessor-version":[{"id":1178,"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=\/wp\/v2\/posts\/1098\/revisions\/1178"}],"wp:attachment":[{"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1098"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1098"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1098"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}