Pfad auswählen???

[Weazy]

Hi, hab nur mal so ne neuling Frage:

Wie kann ich machen, das man ihm savedialog nur ein verzeichniss statt eine datei wählen kann? :gruebel:

Vielen Dank!

[sakura]

Zitat:

Zitat von Weazy

Wie kann ich machen, das man ihm savedialog nur ein verzeichniss statt eine datei wählen kann? :gruebel:

Gar nicht, aber es gibt eine andere, einfache Lösung:

Delphi-Quellcode:

uses
  FileCtrl;

//...

procedure TForm1.Button1Click(Sender: TObject);
var
  Dir: String;
begin
  Dir := ExtractFilePath(Application.ExeName);
  if SelectDirectory('Bitte ein Verzeichnis auswählen', '', Dir) then
    ShowMessage(Dir);
end;

...:cat:....

[Christian Seehase]

Moin Daniel,

Zitat:

Zitat von sakura

Gar nicht

das kann ich aber so nicht stehen lassen ;-)

Als mir SelectDirectory und SHBrowseForFolder noch unbekannt waren, habe ich mir mit einem Open/SaveDialog beholfen, indem ich Filename auf einen Dummywert gesetzt, und nach dem Schliessen des Dialoges vom Pfad wieder entfernt habe.