我在 CodeProject 上发现了这篇文章:http://www.codeproject.com/Articles/512956/NET-Shell-Extensions-Shell-Context-Menus,觉得它值得一试,但用 F#。以下是我想到的代码:
然而,我注意到在VS2012中没有支持签署F#程序集(文章的步骤4)。我了解到,如果我想这样做,我需要手动创建一个密钥(在命令提示符中输入“sn -k keyName.snk”)然后在“项目属性 -> 构建 -> 其他标志”中添加一个标志(--keyfile: keyName.snk)。
但我仍然无法成功运行它。此外,在使用作者的应用程序(在“调试Shell扩展”部分)时,我会收到一个错误消息,指出我的程序集不包含COM服务器。
我认为我在签署组件方面做错了什么。您能帮助我运行它吗?
open System
open System.IO
open System.Text
open System.Runtime.InteropServices
open System.Windows.Forms
open SharpShell
open SharpShell.Attributes
open SharpShell.SharpContextMenu
[<ComVisible(true)>]
[<COMServerAssociation(AssociationType.ClassOfExtension, ".txt")>]
type CountLinesExtension() =
inherit SharpContextMenu.SharpContextMenu()
let countLines =
let builder = new StringBuilder()
do
base.SelectedItemPaths |> Seq.iter (fun x -> builder.AppendLine(sprintf "%s - %d Lines" (Path.GetFileName(x)) (File.ReadAllLines(x).Length)) |> ignore )
MessageBox.Show(builder.ToString()) |> ignore
let createMenu =
let menu = new ContextMenuStrip()
let itemCountLines = new ToolStripMenuItem(Text = "Count Lines")
do
itemCountLines.Click.Add (fun _ -> countLines)
menu.Items.Add(itemCountLines) |> ignore
menu
override this.CanShowMenu() = true
override this.CreateMenu() = createMenu
然而,我注意到在VS2012中没有支持签署F#程序集(文章的步骤4)。我了解到,如果我想这样做,我需要手动创建一个密钥(在命令提示符中输入“sn -k keyName.snk”)然后在“项目属性 -> 构建 -> 其他标志”中添加一个标志(--keyfile: keyName.snk)。
但我仍然无法成功运行它。此外,在使用作者的应用程序(在“调试Shell扩展”部分)时,我会收到一个错误消息,指出我的程序集不包含COM服务器。
我认为我在签署组件方面做错了什么。您能帮助我运行它吗?
sn -v
(或者是-V
?)来验证签名,但最重要的是,如果这是问题,将会有一个错误提示说 authenticode 签名错误。并且请使用 ProcMon 和 DbgView 进行排查。如果您获得了更多关于确切错误消息的详细信息等,请在此处添加该详细信息,这样也无妨。 - Ruben Bartelink