;Autor: Shardik ;http://www.purebasic.fr/german/viewtopic.php?p=324017#p324017 EnableExplicit #OFN_ENABLESIZING = $800000 #OFN_VIEW_REPORT = $702C #OFN_VIEW_LIST = $702B #OFN_VIEW_LARGEICON = $7029 #OFN_VIEW_SMALLICON = $702A #OFN_VIEW_THUMBNAIL = $702D #OFN_VIEW_THUMBNAIL_2K = $7031 #OFN_VIEW_TILE = $702E Procedure HookCallback(DialogHandle.I, Msg.I, WParam.I, LParam.I) Protected DialogWindow.I Protected *NMHdr.NMHDR If Msg = #WM_NOTIFY *NMHdr = LParam If *NMHdr\code = #CDN_FOLDERCHANGE DialogWindow = FindWindowEx_(GetParent_(DialogHandle), 0, "ShellDll_DefView", 0) If DialogWindow SendMessage_(DialogWindow, #WM_COMMAND, #OFN_VIEW_LARGEICON, 0) EndIf EndIf EndIf EndProcedure Define Filename.S{#MAX_PATH} Define OFN.OPENFILENAME OFN\lStructSize = SizeOf(OPENFILENAME) OFN\lpstrFile = @Filename OFN\nMaxFile = #MAX_PATH OFN\Flags = #OFN_ENABLESIZING | #OFN_FILEMUSTEXIST | #OFN_ENABLEHOOK OFN\lpfnHook = @HookCallback() If GetOpenFileName_(OFN) = 0 MessageRequester("Information", "Der Requester wurde abgebrochen!") Else MessageRequester("Information", "Sie haben folgende Datei ausgewählt:" + #CR$ + Filename) EndIf