In der
Unit FileCtrl gibt es eine Procedure SelectDirectory, die blendet eine solchen Dialog ein. Hier ein kleines Beispiel:
Delphi-Quellcode:
uses FileCtrl;
var
StartDir : string;
SelectedDir : string;
begin
StartDir := 'C:\';
if SelectDirectory('Verzeichnis auswählen:', StartDir, SelectedDir) then
ShowMessage(SelectedDir);
end;
Allerdings ist der Dialog nicht gerade der "schnellste", aber er funktioniert
