VB 调用 WindowsAPI 函数GetModuleFileName、 GetProcessImageFileName 和QueryFullProcessImageName获取进程文件路径

Windows编程中，需要获取一个已打开窗口程序的完整路径，以便下次用ShellExecute 函数直接打开。

能实现这一目标的Windows API函数有3个： GetModuleFileName、 GetProcessImageFileName 和QueryFullProcessImageName 。网上的API函数手册大多只能查到第一个，后面两个只能百度查找调用方法，然而却都讲得不清不楚。 本人是一个业余编程爱好者，通过艰难摸索，走了很多弯路，终于搞清了使用方法。现班门弄斧如下：

这三个函数的功能是一样的，只是适用于不同的Windows系统。换言之：用GetModuleFileName函数在Windows2000系统下能得到正确结果，但在Windows7系统下却不行；用QueryFullProcessImageName函数在Windows7系统下能得到正确结果，但在WindowsXP系统却提示Run-time error '453':Can't find DLL entry point QueryFullProcessImageNameA in kernel32错误。

根据微软官方的说法，要根据不同的Windows系统，使用相应的API函数，以保证结果正确：

Windows 2000        建议 GetModuleFileName()
Windows XP x32    建议  GetProcessImageFileName()
Windows XP x64    建议  GetProcessImageFileName()
Windows Vista       建议  QueryFullProcessImageName()
Windows 7 以后     建议  QueryFullProcessImageName()

这就牵扯出其他需要解决的问题：一个是要判断操作系统版本（具体参看https://docs.microsoft.com/zh-cn/windows/win32/sysinfo/operating-system-version?redirectedfrom=MSDN），以决定用哪个函数；二个是要对返回的结果进行转化，统一格式（因为前两个函数返回的结果是象这样的：\Device\HarddiskVolume1\Windows\System32\notepad.exe，而不是象C:\Windows\System32\notepad.exe）。现在一个一个来解决：

'第一步，在VB中申明以下九个API函数：
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function QueryFu