Нужен именно такой диалог, как на рисунке выше? Тогда делаем следующее: Подключаем в uses модуль ShlObj Затем добавляем в кнопку вот это: procedure TForm1 . Button1Click ( Sender : TObject ) ; var TitleName : string ; lpItemID : PItemIDList ; BrowseInfo : TBrowseInfo ; DisplayName : array [ 0 .. MAX_PATH ] of char ; TempPath : array [ 0 .. MAX_PATH ] of char ; begin FillChar ( BrowseInfo , sizeof ( TBrowseInfo ) , #0 ) ; BrowseInfo . hwndOwner : = Form1 . Handle ; BrowseInfo . pszDisplayName : = @ DisplayName ; TitleName : = 'Please specify a directory' ; BrowseInfo . lpszTitle : = PChar ( TitleName ) ; BrowseInfo . ulFlags : = BIF_EDITBOX ; lpItemID : = SHBrowseForFolder ( BrowseInfo ) ; if lpItemId <> nil then begin SHGetPathFromIDList ( lpItemID , TempPath ) ; ShowMessage ( TempPath ) ; GlobalFreePtr ( lpItemID ) ; end ; end ; Обратите внимание - я выделил красным несколь...
Нашел решение — поделюсь... :)