DELPHI - Comment utiliser opendialog1 pour choisir un dossier?

Question

Possible en double:
Delphi: Selecting a directory with TOpenDialog

je dois ouvrir un dossier spécifique sur mon projet. Quand j'utilise opendialog1, je peux seulement ouvrir un fichier. Que diriez-vous d'ouvrir un dossier?

PS: J'utilise Delphi 2010

Answer 1

Vous pouvez également utiliser TBrowseForFolder classe d'action (stdActns.pas):.

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

ou utiliser la fonction winapi - SHBrowseForFolder directement (deuxième SelectDirectory surcharge utilise, au lieu de la première surcharge, ce qui crée propre delphi-fenêtre avec tous les contrôles lors de l'exécution):

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

Vous cherchez SelectDirectory dans l'unité FileCtrl. Il dispose de deux versions surchargées:

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; 

celui que vous voulez utiliser dépend de la version de Delphi que vous utilisez, et l'apparence et les fonctionnalités spécifiques que vous cherchez; Je (trouve habituellement la deuxième version fonctionne parfaitement pour les versions modernes de Delphi et Windows, et les utilisateurs semblent satisfaits de la « apparence normalement attendue et la fonctionnalité »

Answer 3

Sur Vista et plus vous pouvez montrer un dialogue plus moderne utilisant 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; 

qui ressemble à ceci: