Shell Extensions Interface Problem (ICopyHook Callback)

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Serow.

    Shell Extensions Interface Problem (ICopyHook Callback)

    Guten Abend,
    ich versuche derzeit einen Copy Hook zu schreiben, da MS das CopyHook Beispiel im All-In-On Framework entfernt hatte habe ich die C++ Variante in .net umgeschrieben.
    Derzeit scheint es ein Problem mit dem Interface zu geben, da Shell Extension schwer zu Debuggen sind komme ich jetzt nicht weiter. Das einzige was ich sagen kann ist das der explorer die Extension über mscoree lädt, und diese eine Exception auswirft.
    Dachte zuerst es gibt ein Problem mit dem Namespace in VB alles in C# umgecodet, hat wenig gebracht. Ansonsten der Assembly ist Signiert und ist für x64 Compiled.

    Das C++ Bsp. Project, C# u. VB im Dateianhang

    Hier mal ein Ausschnitt, hoffe mal hier kann mir jemand weiterhelfen :whistling:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    2. Imports Microsoft.Win32
    4. #Region "Shell Interfaces"
    6. <ComImport(), InterfaceType(ComInterfaceType.InterfaceIsIUnknown), _
    7. Guid("000214e8-0000-0000-c000-000000000046")> _
    8. Interface IShellExtInit
    10. <PreserveSig()> _
    11. Sub Initialize( _
    12. ByVal pidlFolder As IntPtr, _
    13. ByVal pDataObj As IntPtr, _
    14. ByVal hKeyProgID As IntPtr)
    16. End Interface
    18. <ComImport(), InterfaceType(ComInterfaceType.InterfaceIsIUnknown), _
    19. Guid("000214FC-0000-0000-C000-000000000046")> _
    20. Interface ICopyHook
    22. <PreserveSig()> _
    23. Function CopyCallback( _
    24. ByVal hwnd As IntPtr, _
    25. ByVal wFunc As UInteger, _
    26. ByVal wFlags As UInteger, _
    27. <MarshalAs(UnmanagedType.LPStr)> ByVal pszSrcFile As String, _
    28. ByVal dwSrcAttribs As UInteger, _
    29. <MarshalAs(UnmanagedType.LPStr)> ByVal pszDestFile As String, _
    30. ByVal dwDestAttribs As UInteger) As UInteger
    31. End Interface
    33. #End Region
    35. #Region "Enums & Structs"
    37. Public Enum eCOPYCALLBACK_STATUS As UInteger
    38. IDCANCEL = 2
    39. IDYES = 6
    40. IDNO = 7
    41. End Enum
    43. Public Enum eSHELL_FILE_OPERATIONS As UInteger
    44. FO_MOVE = 1
    45. FO_COPY = 2
    46. FO_DELETE = 3
    47. FO_RENAME = 4
    48. End Enum
    50. <StructLayout(LayoutKind.Sequential)> _
    51. Class SHFILEOPSTRUCT
    52. Public hwnd As Integer
    53. Public wFunc As Integer
    55. <MarshalAs(UnmanagedType.LPWStr)> _
    56. Public pFrom As String
    58. <MarshalAs(UnmanagedType.LPWStr)> _
    59. Public pTo As String
    61. Public fFlags As Integer
    63. <MarshalAs(UnmanagedType.Bool)> _
    64. Public fAnyOperationsAborted As Boolean
    66. Public hNameMappings As Integer
    68. <MarshalAs(UnmanagedType.LPWStr)> _
    69. Public lpszProgressTitle As String
    70. End Class
    72. #End Region
    74. #Region "Shell Registration"
    76. Friend Class ShellExtReg
    78. ''' <summary>
    79. ''' Register the copy hook handler.
    80. ''' </summary>
    81. ''' <param name="name"></param>
    82. ''' <param name="clsid"></param>
    83. ''' <remarks></remarks>
    84. Public Shared Sub RegisterShellExtContextMenuHandler( _
    85. ByVal name As String, _
    86. ByVal clsid As Guid)
    88. If clsid = Guid.Empty Then
    89. Throw New ArgumentException("CLSID must not be empty")
    90. End If
    92. Dim keyName As String = String.Format("Directory\shellex\CopyHookHandlers\{0}", name)
    93. Using key As RegistryKey = Registry.ClassesRoot.CreateSubKey(keyName)
    94. key.SetValue(Nothing, clsid.ToString("B"))
    95. End Using
    96. End Sub
    98. ''' <summary>
    99. ''' Unregister the copy hook handler.
    100. ''' </summary>
    101. Public Shared Sub UnregisterShellExtContextMenuHandler( _
    102. ByVal name As String)
    104. Dim keyName As String = String.Format("Directory\shellex\CopyHookHandlers\{0}", name)
    105. Registry.ClassesRoot.DeleteSubKeyTree(keyName, False)
    106. End Sub
    108. End Class
    110. #End Region

    Dateien

    • CopyHook.zip

      (988,03 kB, 310 mal heruntergeladen, zuletzt: )

    Hi.

    Zunächst: In VB ist alles möglich - C# ist nicht erforderlich :)

    Die Installation sollte funktionieren (auch wenn die Assembly eigentlich in den GAC gehört). Das Debugging geht am besten, wenn du in die Register- und Unregister-Funktionen den Aufruf "Debugger.Break()" setzt - dann kassierst du eine JIT-Exception, worüber du eine weitere VS-Instanz starten kannst, die automatisch den passenden Code lädt und dich im Einzelschritt durchgehen lässt. Ansonsten ist Debug.Print() ganz hilfreich, denn es reicht dann, wenn VS nur an explorer.exe angehängt ist. Die Ausgaben landen dann im Ausgabefenster.

    Ich habe das mal "from scratch" nachgestellt - das ist mein ganzer Code:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    2. Imports Microsoft.Win32
    4. <ComImport(), InterfaceType(ComInterfaceType.InterfaceIsIUnknown), Guid("000214FC-0000-0000-c000-000000000046")> _
    5. Interface ICopyHook 'ICopyHookW
    6. 'STDMETHOD_(UINT,CopyCallback) (THIS_ HWND hwnd, UINT wFunc, UINT wFlags, LPCWSTR pszSrcFile, DWORD dwSrcAttribs,
    7. ' LPCWSTR pszDestFile, DWORD dwDestAttribs) PURE;
    8. <PreserveSig()> _
    9. Function CopyCallback(hwnd As IntPtr, wFunc As UInt32, wFlags As UInt32,
    10. <MarshalAs(UnmanagedType.LPWStr)> pszSrcFile As String, dwSrcAttribs As Int32,
    11. <MarshalAs(UnmanagedType.LPWStr)> pszDestFile As String, dwDestAttribs As Int32) As UInt32
    12. End Interface
    14. <Guid("28D7BB17-0BBA-4687-8C72-5D2DCCC5810D"), ClassInterface(ClassInterfaceType.None), ComVisible(True)> _
    15. Public Class MyCopyHook
    16. Implements ICopyHook
    18. <ComRegisterFunction()> _
    19. Private Shared Sub DllRegisterServer(t As Type)
    20. Using key As RegistryKey = Registry.ClassesRoot.CreateSubKey("Directory\Shellex\CopyHookHandlers\MyCopyHook")
    21. key.SetValue("", t.GUID.ToString("B"))
    22. End Using
    23. End Sub
    25. <ComUnregisterFunction()> _
    26. Private Shared Sub DllUnregisterServer(t As Type)
    27. Using key As RegistryKey = Registry.ClassesRoot.OpenSubKey("Directory\Shellex\CopyHookHandlers", True)
    28. key.DeleteSubKey("MyCopyHook")
    29. End Using
    30. End Sub
    32. Private Const IDCANCEL As UInt32 = 2
    33. Private Const IDYES As UInt32 = 6
    34. Private Const IDNO As UInt32 = 7
    36. Public Function CopyCallback(hwnd As System.IntPtr, wFunc As UInt32, wFlags As UInt32, pszSrcFile As String, dwSrcAttribs As Integer, pszDestFile As String, dwDestAttribs As Int32) As UInt32 Implements ICopyHook.CopyCallback
    37. Debug.Print("CopyCallback")
    38. Return IDYES
    39. End Function
    41. End Class

    Die Debugausgabe in VS sieht dann so aus (beim Kopieren einer Datei im Explorer):
    Spoiler anzeigen

    Quellcode

    1. "explorer.exe" (Verwaltet (v4.0.30319)): "C:\Windows\Microsoft.Net\assembly\GAC_64\mscorlib\v4.0_4.0.0.0__b77a5c561934e089\mscorlib.dll" geladen
    2. "explorer.exe" (Verwaltet (v4.0.30319)): "C:\Windows\Microsoft.Net\assembly\GAC_64\CopyHook\v4.0_1.0.0.0__7d2c57e7301f8ce1\CopyHook.dll" geladen, Symbole geladen.
    3. "explorer.exe" (Verwaltet (v4.0.30319)): "C:\Windows\Microsoft.Net\assembly\GAC_MSIL\System\v4.0_4.0.0.0__b77a5c561934e089\System.dll" geladen
    4. "explorer.exe" (Verwaltet (v4.0.30319)): "C:\Windows\Microsoft.Net\assembly\GAC_MSIL\System.Configuration\v4.0_4.0.0.0__b03f5f7f11d50a3a\System.Configuration.dll" geladen
    5. "explorer.exe" (Verwaltet (v4.0.30319)): "C:\Windows\Microsoft.Net\assembly\GAC_MSIL\System.Xml\v4.0_4.0.0.0__b77a5c561934e089\System.Xml.dll" geladen
    6. CopyCallback
    7. Der Thread '<Kein Name>' (0x165c) hat mit Code 0 (0x0) geendet.
    8. Das Programm "[5152] explorer.exe: Verwaltet (v4.0.30319)" wurde mit Code 0 (0x0) beendet.

    Du siehst also: Es funktioniert, ohne eine Exception zu werfen. Da du das ICopyHook-Interface exakt gleich deklariert hast, muss das Problem woanders liegen. Was prinzipiell ganz schlecht ist: Debuggen mit MsgBox(). Du bekommst ein hwnd übergeben, das du zum "Anzeigen von UI-Elementen" verwenden sollst (laut MSDN). Vielleicht funkt die Messagebox da dazwischen (CreateWindow scheitert irgendwo tief im System). Benutze einfach Debug.Print() - das sollte völlig ausreichen.

    Wenn du die Exception finden willst, hilft dir WinDbg. Lade die Symbole, hänge ihn an den explorer an und warte auf die Exception. Danach kannst du dir mit kb den Stacktrace ansehen, was schon ausreichen dürfte, um den Fehler einzugrenzen.
    Gruß
    hal2000

    Danke für die Antwort, das Problem war eine Kombination aus dem falsch deklarierten COM Interface und ner falschen Einstellung in den Projekt-Eigenschaften. :D

    Noch zum Debuggen, hier lag es dran das wenn VS am explorer angehängt wird die Extension aus GAC geladen wird aber die Program Debug Database im Ausgabeverzeichnis liegt,
    STRG + ALT + U und dann die pdb hinzufügen oder direkt in GAC ziehen.

Facebook
Telefonspende