VB.NET 64位应用调用系统文件属性窗口失效及实现方案咨询

原有32位代码在64位编译下失效的核心原因，是此前的P/Invoke声明完全适配32位进程的内存结构，64位进程下的指针宽度、结构体内存对齐规则与32位不兼容，导致shell32.dll无法正确解析传入的参数结构。以下分两类给出可落地的实现方案：

方案一：64位VB.NET应用直接原生调用（最优） #

该方案无需依赖外部独立程序，改造后可同时兼容32位、64位编译目标，直接唤起和资源管理器完全一致的原生属性窗口。
需要修改的核心点：

• 把原代码中所有硬编码为Integer的句柄、指针类成员，全部替换为IntPtr类型，自动适配32/64位的指针宽度
• 给SHELLEXECUTEINFO结构体指定顺序布局，匹配系统默认的内存打包规则
• 用Marshal.SizeOf计算结构体的实际大小，替代VB原生Len()函数（后者对托管结构体的大小计算存在偏差）
• 修正常量的存储类型，避免位运算时的类型溢出

改造后可正常运行的代码如下：

' 导入需要的运行时互操作命名空间
Imports System.Runtime.InteropServices

<StructLayout(LayoutKind.Sequential, Pack:=8)>
Private Structure SHELLEXECUTEINFO
    Public cbSize As Integer
    Public fMask As Integer
    Public hwnd As IntPtr
    <MarshalAs(UnmanagedType.LPTStr)> Public lpVerb As String
    <MarshalAs(UnmanagedType.LPTStr)> Public lpFile As String
    <MarshalAs(UnmanagedType.LPTStr)> Public lpParameters As String
    <MarshalAs(UnmanagedType.LPTStr)> Public lpDirectory As String
    Public nShow As Integer
    Public hInstApp As IntPtr
    Public lpIDList As IntPtr
    <MarshalAs(UnmanagedType.LPTStr)> Public lpClass As String
    Public hkeyClass As IntPtr
    Public dwHotKey As Integer
    Public hIcon As IntPtr
    Public hProcess As IntPtr
End Structure

Private Declare Auto Function ShellExecuteEx Lib "shell32.dll" (ByRef SEI As SHELLEXECUTEINFO) As Boolean

' 正确的系统常量定义
Private Const SEE_MASK_INVOKEIDLIST As Integer = &HC
Private Const SEE_MASK_NOCLOSEPROCESS As Integer = &H40
Private Const SEE_MASK_FLAG_NO_UI As Integer = &H400

Public Function ShowProps(ByVal FileName As String, ByVal OwnerhWnd As IntPtr) As Boolean
    Dim SEI As New SHELLEXECUTEINFO()
    ' 计算适配当前进程位数的结构体大小
    SEI.cbSize = Marshal.SizeOf(GetType(SHELLEXECUTEINFO))
    SEI.fMask = SEE_MASK_NOCLOSEPROCESS Or SEE_MASK_INVOKEIDLIST Or SEE_MASK_FLAG_NO_UI
    SEI.hwnd = OwnerhWnd
    SEI.lpVerb = "properties"
    SEI.lpFile = FileName
    SEI.nShow = 0

    Return ShellExecuteEx(SEI)
End Function

方案二：32位独立包装程序的事件监听实现（次优） #

32位包装程序无法捕获按钮点击的核心原因，是系统弹出的属性窗口由shell32.dll在独立进程空间拉起，和你的包装程序分属不同的窗口树，无法直接通过WinForms控件事件监听。
可落地的监听实现逻辑：

• 唤起属性窗口后，通过EnumWindows枚举系统所有顶层窗口，匹配窗口类名#32770（Windows通用对话框标准类名）、窗口标题为目标文件名的窗口句柄
• 对匹配到的窗口安装线程消息钩子，捕获窗口收到的WM_COMMAND消息：当消息携带的按钮ID为IDOK(1)或IDCANCEL(2)时，即对应用户点击了「确定」或「取消」
• 检测到属性窗口关闭后，将用户的操作结果作为进程退出码返回给主64位应用，主程序读取Process.ExitCode即可获取用户操作结果
• 注意钩子安装时要绑定到属性窗口所在的线程，避免拦截系统其他窗口的消息造成资源泄漏

内容的提问来源于stack exchange，提问作者Uffe Peter Walderö