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

← →
Vulko © (2003-05-17 22:44) [0]

Как вызвать стандартный диалог выбора папки - Open Directory.

← →
Юрий Зотов © (2003-05-17 22:49) [1]

SelectDirectory
SHBrowseForFolder

← →
_Narayan_ (2003-05-17 22:49) [2]

function nAnKA: String;
var mDir: String;
begin
If SelectDirectory("Укажите папку","",mDir) Then Result:=mDir+"\";
end;

← →
Anatolyk © (2003-05-17 22:53) [3]

> Result:=mDir+"\";
Лучше всегда использовать IncludeTrailingPathDelimiter, т.к. разные ос работают с путями по-разному. Может оказаться, что в пути окажется два "\" на конце.

← →
lipskiy © (2003-05-18 01:27) [4]

Если установлен RX, то BrowseDirectory.

← →
Vulko © (2003-05-18 10:55) [5]

2lipskiy
Что за RX?

А Select Directiry я юзаю сейчас (аля win3.1 форева :( ), но мне нужно другое.

SHBrowseForFolder - как её юзать - у меня нет её в хелпе.

1. RxLib - мощная и широко распространненная библиотека компонентов.
2. SelectDirectiry - можно вызвать и в стиле Win32. См. Help.
3. SHBrowseForFolder - справка по WinAPI.

← →
dtrn (2003-05-18 11:47) [7]

function myBrowseFolder:string;
var
SelectionPIDL: PItemIDList;
BrowseInfo: TBrowseInfo;
ShellAllocator: IMalloc;
PathBuffer: array[0..MAX_PATH] of Char;
begin
// simplest implementation of BrowseForFolder
// to get more information refer to MSDN Library
// or Check Brad Stower"s excellent site
// www.delphifreestuff.com
ZeroMemory(@BrowseInfo, SizeOf(BrowseInfo));
BrowseInfo.hwndOwner := Application.Handle;
BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
CoInitialize(nil);
try
SelectionPIDL := ShBrowseForFolder(BrowseInfo);
if SelectionPIDL <> nil then
try
ZeroMemory(@PathBuffer, SizeOf(PathBuffer));
if not SHGetPathFromIDList(SelectionPIDL, @PathBuffer) then
begin
beep;
exit;
end;
Result:=StrPas(@PathBuffer[0]);
finally
if SHGetMalloc(ShellAllocator) = 0 then
begin
ShellAllocator.Free(SelectionPIDL);
ShellAllocator := nil;
end;
end;
finally
CoUnInitialize;
end;
end;

Как вызвать стандартный диалог выбора папки Найти похожие ветки