Foxtable(狐表) → 用户栏目 → 专家坐堂 → 有点甜 请帮忙一下


  共有5048人关注过本帖树形打印复制链接

主题：有点甜 请帮忙一下
帅哥哟，离线，有人找我吗？
oaok
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1198 积分：7859 威望：0 精华：0 注册：2013/5/17 14:26:00 		有点甜 请帮忙一下  发帖心情 Post By：2014/2/25 19:43:00 [只看该作者]

用户已经被屏蔽
 回到顶部
帅哥哟，离线，有人找我吗？
oaok
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1198 积分：7859 威望：0 精华：0 注册：2013/5/17 14:26:00 		  发帖心情 Post By：2014/2/25 19:45:00 [只看该作者]

用户已经被屏蔽
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
oaok
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1198 积分：7859 威望：0 精华：0 注册：2013/5/17 14:26:00 		  发帖心情 Post By：2014/2/25 21:17:00 [只看该作者]

用户已经被屏蔽
 回到顶部
帅哥哟，离线，有人找我吗？
jinxilin
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：202 积分：1639 威望：0 精华：0 注册：2014/6/17 19:26:00 		  发帖心情 Post By：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，都是一头雾水啊，有没有像帮助文件一样的范例步骤详解啊图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/8/26 19:55:00 [只看该作者]

以下是引用jinxilin在2014-8-26 19:49:00的发言：

。



 我是新手啊，对于什么调用，什么dll，都是一头雾水啊，有没有像帮助文件一样的范例步骤详解啊图片点击可在新窗口打开查看

 

这个很简单的，添加以下即可。

 

http://www.foxtable.com/help/topics/1936.htm

 
 回到顶部
帅哥哟，离线，有人找我吗？
coch2004
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：604 积分：6982 威望：0 精华：0 注册：2012/5/30 16:01:00 		  发帖心情 Post By：2014/9/12 22:15:00 [只看该作者]

好久不起作用呢?

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04883 秒, 5 次数据查询