DELPHI - Как использовать opendialog1 для выбора папки?

Question

Можно создать дубликат:
Delphi: Selecting a directory with TOpenDialog

мне нужно открыть определенную папку на моем проекте. Когда я использую opendialog1, я могу открыть файл. Как насчет открытия папки?

PS: Я использую Delphi 2010

Answer 1

Вы также можете использовать TBrowseForFolder класс действия (stdActns.pas).

var 
    dir: string; 
begin 
    with TBrowseForFolder.Create(nil) do try 
    RootDir := 'C:\'; 
    if Execute then 
     dir := Folder; 
    finally 
    Free; 
    end; 
end; 

или использовать функцию WinAPI - SHBrowseForFolder непосредственно (второй SelectDirectory перегрузки использует его, вместо того, чтобы первая перегрузку, что создает собственную DELPHI-окно со всеми элементами управления во время выполнения):

var 
    dir : PChar; 
    bfi : TBrowseInfo; 
    pidl : PItemIDList; 
begin 
    ZeroMemory(@bfi, sizeof(bfi)); 
    pidl := SHBrowseForFolder(bfi); 
    if pidl <> nil then try 
    GetMem(dir, MAX_PATH + 1); 
    try 
     if SHGetPathFromIDList(pidl, dir) then begin 
     // use dir 
     end; 
    finally 
     FreeMem(dir); 
    end; 
    finally 
    CoTaskMemFree(pidl); 
    end; 
end; 

Answer 2

Вы ищете SelectDirectoryFileCtrl в блоке. Он имеет две перегруженные версии:

function SelectDirectory(var Directory: string; 
    Options: TSelectDirOpts; HelpCtx: Longint): Boolean; 
function SelectDirectory(const Caption: string; const Root: WideString; 
var Directory: string; Options: TSelectDirExtOpts; Parent: TWinControl): Boolean; 

Тот, который вы хотите использовать, зависит от версии Delphi вы используете, и конкретный вид и функциональность, которую вы ищете; Я (как правило, найти второй вариант отлично работает для современных версий Delphi и Windows, и пользователи, кажется, довольны «обычно ожидаемому внешним видом и функциональностью»

Answer 3

В Vista и выше вы можете показать более современный вид диалога, используя TFileOpenDialog.

var 
    OpenDialog: TFileOpenDialog; 
    SelectedFolder: string; 
..... 
OpenDialog := TFileOpenDialog.Create(MainForm); 
try 
    OpenDialog.Options := OpenDialog.Options + [fdoPickFolders]; 
    if not OpenDialog.Execute then 
    Abort; 
    SelectedFolder := OpenDialog.FileName; 
finally 
    OpenDialog.Free; 
end; 

, который выглядит следующим образом: