如何获取到Windows系统自带的Windows照片查看器打开的图片绝对路径

求助：怎么获取到Windows系统自带的Windows照片查看器打开的图片绝对路径
求助：怎么获取到Windows系统自带的Windows照片查看器打开的图片绝对路径

求解，先谢谢了！
------最佳解决方案--------------------
任务管理器里只是隐藏进程不显示,但还是可以查到pid

    Dim hwnd As Long
    hwnd = FindWindow(vbNullString, "功能说明.jpg - Windows 图片和传真查看器")
    MsgBox hwnd

------其他解决方案--------------------
"rundll32.exe" C:\WINDOWS\system32\shimgvw.dll,ImageView_Fullscreen C:\test.gif

上面是用图片查看器打开一张图片的命令。反之获取rundll32.exe进程的命令行参数即可获得。
------其他解决方案--------------------
如何取得指定进程的命令行参数(VB6.0,马大哈原创)

只适用于双击打开的情况,调用GetRemoteCmdLine,传入查看器的PID,就会返回命令行.
------其他解决方案--------------------

    Option Explicit  

      

    Private Sub Form_Load()  

        getProcessCommandLine "rundll32.exe"  

    End Sub  

    '得到所有进程名为proName的详细列表，参数一定要写完整。  

    Private Function getProcessCommandLine(ByVal proName As String) As String  

        Dim objWMIService As Object  

        Dim colProcessList As Object  

        Dim objProcess As Object  

        Dim objProType As Object  

        Dim strResult As String  

        Set objWMIService = GetObject("winmgmts:" & "{impersonationlevel=impersonate}!//./root/cimv2")  

        Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name='" & proName & "'")  

         

        If colProcessList.Count <> 0 Then  

            For Each objProcess In colProcessList  

                For Each objProType In objProcess.Properties_  

                    If objProType.Name = "CommandLine" Then  

                        strResult = strResult & objProType.Value & vbCrLf  

                        Exit For  

                    End If  

                Next  

            Next  

        End If