comment lancer la visionneuse photo?

dim prog$
prog$ = "%SystemRoot%\System32\rundll32.exe "  + chr$(34)
prog$ = prog$ + "%ProgramFiles%\Windows Photo Viewer\PhotoViewer.dll" + chr$(34)
prog$ = prog$ + ", ImageView_Fullscreen image.jpg"
execute_wait prog$

dim prog$
prog$ = "c:\windows\System32\rundll32.exe "  + chr$(34)
prog$ = prog$ + "c:\Program Files (x86)\Windows Photo Viewer\PhotoViewer.dll" + chr$(34)
prog$ = prog$ + ", ImageView_Fullscreen c:\mesprog\gen\ajtf.jpg"
execute_wait prog$

i% = dll_call1("ScreenCopy",x%) : ' x%=0--> tout l'écran  x%=1--> la fenêtre active
i% = dll_call0("Rotate90") : ' rotation de l'image interne de 90 degrés
i% = dll_call0("RotateM90") : ' rotation de l'image interne de -90 degrés
i% = dll_call0("Rotate180") : ' rotation de l'image interne de 180 degrés
i% = dll_call0("LoadPicture") : ' charger l'image du presse-papier dans l'image interne
i% = dll_call0("SavePicture") : recopier l'image interne dans le presse-papier
i% = dll_call6("ModifyPicture,x%,y%,T%,R%,G%,B%) : incruster l'image du presse-papier dans l'image interne
                                '  à partir de (x%,y%) avec la couleur de transparence R%,G%,B%
                                '  T% est le taux de transparence de l'image dans le presse-papier (0-100)
i% = dll_call2("ResizePicture,h%,w%) : redimensionner l'image du presse-papier à largeur w%, hauteur h%
                                '  comme s'il y avait un STRETCH_ON sur le presse-papier
i% = dll_call0("GetPictureHeight") : ' retourner la hauteur de l'image interne
i% = dll_call0("GetPictureWidth") : ' retourner la largeur de l'image interne
i% = dll_call0("GetClipboardPictureWidth") : ' retourner la largeureur de l'image dans le presse-papier
i% = dll_call0("GetClipboardPictureHeight") : ' retourner la hauteur de l'image dans le presse-papier
i% = dll_call3("SetPictureFilter",R%,G%,W%) : ' appliquer des filtres couleur sur l'image interne
                                ' une valeur de -1 signifie "inchangé"
i% = dll_call0("SetPictureGrayScale") : ' transformer une image en niveaux de gris
i% = dll_call1("SetPictureBrightness",d%) : ' ajuster la brillancede +/- d% (-255...+255)
i% = dll_call1("SetPictureGamma",g%) : ' ajuster le Gamma 0:plus foncé  <>0:plus clair
i% = dll_call4("CreatePictureGradientColor",adr(start$,adr(adresse$),adr(couleur_debut$),adr(couleur_fin$))
            ' remplir l'image interne par un dégradé entre les couleurs début et fin
            ' start$ donne le type de dégradé:
            '    L[ine] = dégradé par lignes  C[olonne] = dégradé en colonnes
            '    P[oint] = dégradé à partir d'un point  R[onds] = dégradé en ronds (cercle) autour d'un point
            '    B[ulles] = bulles dégradées autour d'un point
            '    adresse$ = numéro de départ (ligne, colonne ou coordonnées x,y d'un point)
            '    couleur_debut$, couleur_fin$ = valeurs R,G,B de la couleur
i% = dll_call1("SetImmediateMode",m%) : ' si m%>0: mettre systématiquement le presse-papier à jour

dim dll$:dll$="PrintScreen.dll"
dim rep$:rep$="c:\mesprog\gen\"
dim f$,w%,h%
color 0,0,0,0:full_space 0
picture 5:hide 5
dir_change rep$
dll_on rep$+dll$
open_dialog 10:filter 10,"Fichier image|*.jpg"
f$=file_name$(10)
if f$<>"_" then file_load 5,f$
clipboard_copy 5
w%=dll_call0("GetClipboardPictureWidth")
h%=dll_call0("GetClipboardPictureHeight")
dll_off
width 5,w%:height 5,h%
show 5