$fol1 = FileSelectFolder ("Wähle einen Ordner aus.", "::{00000000-1080-F9E5-6311-4162E05A6BEE}",2)
#include <GUIConstantsEx.au3>
#include<WindowsConstants.au3>
#include<Array.au3>
Const $SS_REALSIZEIMAGE = 0x800
Dim $arr[1],$arr,$file
$pfad = $fol1
$comments = $pfad & "\comments.ini"
$search = FileFindFirstFile($pfad & "\" & "*.jp*g")
$curIndex = 1
If $search = -1 Then
MsgBox(0, "Fehler", "Es konnten keine Bilder gefunden werden!!")
Exit
EndIf
While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
_ArrayAdd($arr,$file)
WEnd
FileClose($search)
$arr[0] = UBound($arr) -1
;_ArrayDisplay($arr)
$frmMain = GUICreate("Bildbetrachter.....",640,480,-1,-1, $WS_POPUPWINDOW, $WS_EX_TOOLWINDOW)
$Pic1 = GUICtrlCreatePic($pfad & "\" & $arr[1],16,24,-1,-1)
_ChangeImg()
$cmdBack = GUICtrlCreateButton("<<",510,450,49,25,0)
$cmdNext = GUICtrlCreateButton(">>",570,450,49,25,0)
$cmdClose = GUICtrlCreateButton("Ende",90,450,350,25,0)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case  $cmdClose
Exit
Case $cmdBack
_Prev()
Case $cmdNext
_Next()
EndSwitch
WEnd

Func _Next()
If $curIndex < $arr[0] Then
$curIndex += 1
Else
$curIndex = 1
EndIf
_ChangeImg()
EndFunc

Func _Prev()
If $curIndex > 1 Then
$curIndex -= 1
Else
$curIndex = $arr[0]
EndIf
_ChangeImg()
EndFunc

Func _ChangeImg()
GUICtrlDelete($Pic1)
$Pic1 = GUICtrlCreatePic($pfad & "\" & $arr[$curIndex],10,10,620,430)
$str = IniRead($comments,"comments",$arr[$curIndex],"")
$str = StringReplace($str,"|",@CRLF)
EndFunc