Диалог открытия директорий

← →
som (2003-07-24 14:00) [0]

В закладки "Dialogs" есть диалог открытия файла, но нет диалога открытия директории, можно ли как то вызвать этот стандартный диалог, не ставя дополнительных компонент ?

← →
Переяслов Григорий © (2003-07-24 14:02) [1]

Есть куча стронних компонент

← →
Pauk (2003-07-24 14:04) [2]

uses ShellAPI, ShlObj;

function Dialog(const Title: string; const Flag: integer): string;
var
lpItemID : PItemIDList;
BrowseInfo : TBrowseInfo;
DisplayName : array[0..MAX_PATH] of char;
TempPath : array[0..MAX_PATH] of char;
begin
Result:="";
FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
with BrowseInfo do
begin
hwndOwner := Application.Handle;
pszDisplayName := @DisplayName;
lpszTitle := PChar(Title);
ulFlags := Flag;
end;
lpItemID := SHBrowseForFolder(BrowseInfo);
if lpItemId <> nil then
begin
SHGetPathFromIDList(lpItemID, TempPath);
Result := TempPath;
GlobalFreePtr(lpItemID);
end;
end;

ShowMessage(Dialog("", BIF_RETURNONLYFSDIRS));

← →
Pauk (2003-07-24 14:16) [3]

как понимаешь, вырвано с корнями из WinApi и не требует компонентов

← →
Юрий Зотов © (2003-07-24 14:21) [4]

F1 + SelectDirectory

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

← →
som (2003-07-24 14:36) [6]

спасибочки..

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