- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 有点甜 请帮忙一下 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=46572)
-- 发布时间：2014/2/25 21:13:00
--
没有win7测试，大致如此，你试试
Public Function LockApp(isLock As Boolean, appPath As String) As Boolean
Dim shell As New Shell32.Shell()
Dim folder As Shell32.Folder = shell.[NameSpace](System.IO.Path.GetDirectoryName(appPath))
Dim app As Shell32.FolderItem = folder.ParseName(System.IO.Path.GetFileName(appPath))
Dim sVerb As String = iif(isLock, "锁定(&K)", "脱离(&K)")
For Each Fib As Shell32.FolderItemVerb In app.Verbs()
If Fib.Name = sVerb Then
Fib.DoIt()
Return True
End If
Next
Return False
End Function
调用这样
LockApp(true, "C:\\Windows\\notepad.exe")
你还需要引用一个dll
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:interop.shell32.zip |
-- 发布时间：2014/8/26 19:49:00
--
以下是引用有点甜在2014-2-25 21:13:00的发言：
全局代码这样
没有win7测试，大致如此，你试试
Public Function LockApp(isLock As Boolean, appPath As String) As Boolean
Dim shell As New Shell32.Shell()
Dim folder As Shell32.Folder = shell.[NameSpace](System.IO.Path.GetDirectoryName(appPath))
Dim app As Shell32.FolderItem = folder.ParseName(System.IO.Path.GetFileName(appPath))
Dim sVerb As String = iif(isLock, "锁定(&K)", "脱离(&K)")
For Each Fib As Shell32.FolderItemVerb In app.Verbs()
If Fib.Name = sVerb Then
Fib.DoIt()
Return True
End If
Next
Return False
End Function
调用这样
LockApp(true, "C:\\Windows\\notepad.exe")
你还需要引用一个dll
| 下载信息 [文件大小：15.4 KB 下载次数：12] | |
| 点击浏览该文件:interop.shell32.zip |
。
我是新手啊，对于什么调用，什么dll，都是一头雾水啊，有没有像帮助文件一样的范例步骤详解啊
-- 发布时间：2014/8/26 19:55:00
--
以下是引用jinxilin在2014-8-26 19:49:00的发言：
。
我是新手啊，对于什么调用，什么dll，都是一头雾水啊，有没有像帮助文件一样的范例步骤详解啊
这个很简单的，添加以下即可。
http://www.foxtable.com/help/topics/1936.htm
-- 发布时间：2014/9/12 22:15:00
--
好久不起作用呢?