Как открыть ПАПКУ в OpenDialog?

[TaurusBrown]

Собственно, сабж.

Поясняю: нужно чтобы в диалоге при нажатии на кнопку "открыть" ,
в свойства OpenDialog записывался путь (напр. "C:\Program files\") (ну и, разумеется, диалог закрывается)

это возможно средствами стандартного диалога OpenDialog?

[evg_m]

In TOpenDialog Properties

DefaultExt
FileEditStyle
FileName
Files
Filter
FilterIndex
InitialDir
Options
OptionsEx
Title

[TaurusBrown]

Хорошо, но как мне выбрать папку?
ведь если я в диалоге кликну по папке дважды (или нажму открыть), то она, соответственно, открывается. А мне не нужно, чтобы она открывалась.

[Пепел Феникса]

это не делается через него.

[mihali4]

Ничего не понял...
Это, что ли ?

procedure TForm1.Button10Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Label2.Caption:=ExtractFileDir(OpenDialog1.FileName);
//можно еще добавить
OpenDialog1.InitialDir:=Label2.Caption;
//хотя он и сам запоминает последнюю открытую папку
end;

[Пепел Феникса]

ему надо диалог выбора папки, я просто не помню как его вызывать

[mihali4]

Сообщение от Пепел Феникса

ему надо диалог выбора папки, я просто не помню как его вызывать

Как показать диалог выбора директории

из модуля FileCtrl.

1. function SelectDirectory(const Caption: string; const Root: WideString;
out Directory: string): Boolean; overload;
2. function SelectDirectory(var Directory: string; Options: TSelectDirOpts;
HelpCtx: Longint): Boolean; overload;

из RxLib
TDirectoryEdit

function GetDirectory(nFolder: Longint): String;
var
Bi : TBrowseInfo;
lpName: array [0..MAX_PATH] of Char;
ppidl, aItemLst : PItemIDList;
begin
SHGetSpecialFolderLocation(Application.Handle, nFolder, ppidl);
FillChar(Bi, SizeOf(bi), 0);
Bi.hwndOwner := Application.Handle;
Bi.pidlRoot := ppidl;
Bi.pszDisplayName := lpName;
Bi.lpszTitle := 'Open directory';
aItemLst := SHBrowseForFolder(Bi);
CoTaskMemFree(ppidl);
SHGetPathFromIDList(aItemLst, lpName);
CoTaskMemFree(aItemLst);
Result := lpName;
end;

Пример использования (иначе не поймут, что такое nFolder)

// значения nFolder можно найти в описании
// к SHGetSpecialFolderLocation
// из Win32 Programmer's Reference (win32.hlp)

procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := GetDirectory(CSIDL_DRIVES);
end;

[Stilet]

это возможно средствами стандартного диалога OpenDialog?

Я бы на енто не рассчитывал коли есть функция SelectDirectory

[TaurusBrown]

Спасибо, когда установил компонент TDirtectoryEdit - всё получилось, только вот я не знаю, зачем нужна описанная вами функция. Я просто запускаю диалог, выбираю папку, а затем обращаюсь к свойству InitialDir или LongName объекта TDirtectoryEdit.
Всё равно спасибо за наводку на компонент.