为何复制到桌面文件夹的exe调用Shell后无法正常运行？

问题现象 #

• 调用Shell运行原生目录C:\windows\system32\notepad.exe时，程序正常启动，AppActivate可正常操作。
• 将notepad.exe复制到桌面文件夹（如C:\Users\Dell User\Desktop\Temporary\notepad.exe）后：
  • Shell返回看似有效的PID值
  • 记事本实际并未启动
  • 后续调用AppActivate触发运行时错误5：无效的过程调用或参数，对应PID的进程已不存在

复现代码 #

Sub RunNotepad()
    Dim ExeLocation As String
    Dim x As String
    Dim vPID As Variant
            
    'ExeLocation = "C:\windows\system32\notepad.exe"                '  Option A
    ExeLocation = "C:\Users\Dell User\Desktop\Temporary\notepad.exe" ' Option B

    x = Dir(ExeLocation)
    Debug.Print x                ' Prints notepad.exe for A & B
           
    vPID = Shell(ExeLocation, vbMaximizedFocus) 'Returns a vPID value for A & B
    AppActivate (vPID)           ' Option A fine, option B fails
End Sub

原因分析 #

记事本并非独立可执行文件，它依赖C:\Windows\System32目录下的配套资源文件（如本地化语言包notepad.exe.mui、相关依赖库等）。单独复制notepad.exe到其他路径后：

1. 程序启动时无法找到必需的依赖资源，会在后台瞬间崩溃退出
2. Shell函数返回的是操作系统临时分配的PID，但进程已快速终止，导致AppActivate找不到有效进程而报错

解决办法 #

1. 优先使用原生路径调用：如果只是需要打开记事本操作特定文件，直接调用原生notepad.exe并指定文件路径即可，无需复制程序：

   ExeLocation = "C:\windows\system32\notepad.exe C:\Users\Dell User\Desktop\yourfile.txt"
   

2. 创建快捷方式替代复制：在目标目录创建指向原生notepad.exe的快捷方式，通过Shell调用快捷方式文件（.lnk）。
3. 完整复制依赖资源（不推荐）：若必须复制程序，需将System32下对应本地化目录（如en-US）中的notepad.exe.mui等资源文件一并复制到目标目录的同名子文件夹中，但该方法易遗漏依赖，维护成本高。
4. 增加进程存活检查：调用Shell后，通过Windows API（如OpenProcess）检查PID对应的进程是否存活，避免无效的AppActivate调用。

内容的提问来源于stack exchange，提问作者MikeR