;Autor: Fluid Byte

EnableExplicit

Procedure RequesterProc(hWnd,uMsg,lParam,lData)
   Protected szDir.s = Space(#MAX_PATH)
   
   Select uMsg
      Case #BFFM_INITIALIZED
      SendMessage_(hwnd,#BFFM_SETSELECTION,#BFFM_INITIALIZED,lData)
      SendMessage_(hwnd,#WM_SETTEXT,0,"Meine Überschrift")
      
      Case #BFFM_SELCHANGED
      If SHGetPathFromIDList_(lParam,@szDir)
         SendMessage_(hwnd,#BFFM_SETSTATUSTEXT,0,@szDir)
      EndIf
   EndSelect
EndProcedure

Procedure.s PathRequesterEx(Style,Title$,Path.s)
   Protected Folder.s = Space(#MAX_PATH), bi.BROWSEINFO
   
   bi\hwndOwner = GetActiveWindow_()
   bi\pszDisplayName = @Folder
   bi\lpszTitle = @Title$
   bi\ulFlags = #BIF_NEWDIALOGSTYLE
   bi\lpfn = @RequesterProc()
   bi\lParam = @Path

   Protected pidlFolder = SHBrowseForFolder_(bi)

   SHGetPathFromIDList_(pidlFolder,@Folder)
   
   If Folder <> ""
      If FileSize(Folder) = -2
         If Right(Folder,1) <> "\" : Folder + "\" : EndIf
      EndIf
   EndIf
   
   CoTaskMemFree_(pidlFolder)
   
   ProcedureReturn Folder
EndProcedure

PathRequesterEx(0,"Ordner auswählen:","C:\WINDOWS\")