Como ejecutar una imagen con el visor de imagenes de windows

[servantsoftware]

Tengo este code, este la ejecuta con paint, pero cual es para el visor de imagenes:

Código:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Form_Load()
ShellExecute Me.hwnd, vbNullString, "C:\Windows\System32\MsPaint.exe", "C:\captura.jpg", "", vbNormalFocus
End Sub

[Insomnia]

Hola

Creo que el visor de imagenes de Windows no es un ejecutable, utiliza una DLL. Prueba con:

rundll32.exe %SystemRoot%\system32\shimgvw.dll,ImageView_Fullsc reen

--Saludos--

[zxs23]

ASI:

Código:

Option Explicit

Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Any, ByVal wParam As Any, ByVal lParam As Any) As Long
Private Declare Function GetVersion Lib "kernel32" () As Long

Private Function FixPath(ByVal strPath As String) As String
    FixPath = strPath & IIf(Left$(strPath, 1) = "\", "", "\")
End Function

Public Function ShowImageViewer(ByVal strPath As String) As Boolean

    Dim lngLib As Long
    Dim lngFunc As Long
    
    If (((GetVersion And &HFFFF&) Mod 256) = 6) Then
        lngLib = LoadLibrary(FixPath(Environ("ProgramFiles")) & "Windows Photo Viewer\PhotoViewer.dll")
    Else
        lngLib = LoadLibrary("shimgvw.dll")
    End If
    
    lngFunc = GetProcAddress(lngLib, "imageview_fullscreenW")
    
    CallWindowProc lngFunc, 0&, 0&, StrPtr(strPath), 0&
End Function

Private Sub Command1_Click()
Call ShowImageViewer(App.Path & "\imp.png")
End Sub

Fuente:
http://www.leandroascierto.com.ar/fo...hp?topic=351.0