Выбор папки

[UnD)eaD)Snake]

Какие настройки нужно применить к opendialog, чтобы выбирался не файл, а папка?

[mutabor]

никакие, используй другие компоненты

[Kashp]

Вот пример

uses FileCtrl
...
procedure TForm1.FormCreate(Sender: TObject);
var 
s:string;
begin
SelectDirectory('Выбери папку','d:\ , c:\',s); 
// s хранит в себе путь

[Tocha@]

Можно так - в фильтр ввести *\*.* - он будет отображать только папки, а потом определять при изменении текущей папки проверять её на подходящесть )) и закрывать Opendialog при нужде.

[still_alive]

Я бы вместо SelectDirectory использовал SHBrowseForFolder.

[pinhead]

Вот пример использования SHBrowseForFolder:

var
   lpItemID: PItemIDList;
   TempPath, DisplayName: array[0..MAX_PATH] of char;
   TitleName: string;
   BrowseInfo: TBrowseInfo;
begin
   FillChar(TempPath, sizeof(TempPath), #0);
   with BrowseInfo do
   begin
      hwndOwner := Handle;
      pszDisplayName := @DisplayName;
      TitleName := 'Выберите папку';
      lpszTitle := PChar(TitleName);
      ulFlags := BIF_RETURNONLYFSDIRS
   end;
   lpItemID := SHBrowseForFolder(BrowseInfo);
   if lpItemId <> nil then
   begin
      SHGetPathFromIDList(lpItemID, TempPath);
      GlobalFreePtr(lpItemID)
   end
   else
     exit;
end;

В итоге в переменной TempPath будет находиться путь к выбранной папке!

[UnD)eaD)Snake]

pinhead что в uses надо?

[Квэнди]

ShellAPI, ShlObj

[UnD)eaD)Snake]

добавил в uses shlobj;

потом на buttonclick написал:

var
   lpItemID: PItemIDList;
   TempPath, DisplayName: array[0..MAX_PATH] of char;
   TitleName: string;
   BrowseInfo: TBrowseInfo;
begin
   FillChar(TempPath, sizeof(TempPath), #0);
   with BrowseInfo do
   begin
      hwndOwner := Handle;
      pszDisplayName := @DisplayName;
      TitleName := 'Выберите папку';
      lpszTitle := PChar(TitleName);
      ulFlags := BIF_RETURNONLYFSDIRS
   end;
   lpItemID := SHBrowseForFolder(BrowseInfo);
   if lpItemId <> nil then
   begin
      SHGetPathFromIDList(lpItemID, TempPath);
      GlobalFreePtr(lpItemID)
   end
   else
     exit;
end;

Врубаю, мне пишет Access volation in adress.....

и указывает на строку

lpItemID := SHBrowseForFolder(BrowseInfo);

[Квэнди]

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 := <твоя форма>.Handle;
BrowseInfo.pszDisplayName := @DisplayName;
TitleName := 'Please specify a directory';
BrowseInfo.lpszTitle := PChar(TitleName);
BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
lpItemID := SHBrowseForFolder(BrowseInfo);
if lpItemId <> nil then
begin
SHGetPathFromIDList(lpItemID, TempPath);
ShowMessage(TempPath);
GlobalFreePtr(lpItemID);
end;