Диалог открытия папки

← →
Dmitriy M. Volkov (2003-11-14 10:44) [0]

Доброе время суток!

Не подскажите ли, как можно, используя стандартный диалог TOpenDialog, открыть папку? Т.е. не файлы в папке, а именно саму папку? Или для этого есть какой-нть другой компонент?

Спасибо.

← →
Maxud © (2003-11-14 10:52) [1]

uses FileCtrl;
var s: string;
begin
s := "C:\Windows";
if not SelectDirectory(s, "Open folder...", s) then ...
else Label1.Caption := s;
end;

← →
serge (2003-11-14 10:55) [2]

Не очень понятен вопрос - как открыть папку ??
Mojei eto tebe podoidet

Brings up a dialog to allow the user to enter a directory name.
Unit FileCtrl
Category dialog and message routines

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

← →
Dmitriy M. Volkov (2003-11-14 11:20) [3]

Ага, вот это как раз то, что мне было нужно! Спасибо!

В RxLib ечтьт такой компонент.

← →
Dmitriy M. Volkov (2003-11-16 00:03) [5]

Кстати, мне понравилось вот такое решение:
procedure TfmSettings.BitBtn1Click(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 := fmSettings.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); edtFolderWithImages.Text := TempPath; GlobalFreePtr(lpItemID); end; end;

Диалог открытия папки Найти похожие ветки