Probleme mit der Funktion "SelectDirectory"

[MARGERSCH]

Hallo,

ich benutze zur Auswahl von Verzeichnissen auf einem Formular zweimal das Dialogfeld
Verzeichnis auswählen (die zweite Syntax von SelectDirectory).
Beide Aufrufe erfolgen durch eine Schaltfläche (TSpeedButton). Einmal wird ein zu
sicherndes Datenverzeichnis (Voreinstellung : C:\Data, Var.: sDataDir) und einmal ein
Sicherungsverzeichnis (Voreinstellung : C:\Backup, Var. sBackupDir) ausgewählt. Beim
Debuggen steht auch wirklich "C:\Backup" in sBackupDir. Beim folgenden Aufruf zeigt
das Dialogfeld Verzeichnis auswählen aber trotzdem "C:\Data" an (sowohl im Baum
"Verzeichnisse", als auch im Textfeld "Verzeichnisname"). Das verstehe ich nicht.
Allerdings ist zum Zeitpunkt des Aufrufs "C:\Data" das aktuelle Verzeichnis.
Habe ich da was falsch verstanden ???

Gruß
Martin

[MARGERSCH]

Habe jetzt ein "ChDir" eingebaut. Damit funktioniert's
Der gesamte Code nach Aufruf des Buttons lautet :

Delphi-Quellcode:

procedure TfmBackup.sbBackupDirClick(Sender: TObject);
begin
  sBackupDir:= lblBackupDir.Caption;
  ChDir(sBackupDir);  // neu eingefügt, damit funktioniert's
  if SelectDirectory(sBackupDir, [sdAllowCreate, sdPerformCreate, sdPrompt], HelpContext) then
    if sBackupDir <> lblBackupDir.Caption then
      lblBackupDir.Caption:= sBackupDir;
  SaveIni;     // Backup-Verzeichnis in Ini-Datei sichern
end; {sbBackupDirClick}

Laut Delphi-Hilfe müsste es aber auch gehen :

Zitat:

Das im Parameter Directory übergebene Verzeichnis ist nach der Anzeige
des Dialogfeldes als aktuelles Verzeichnis ausgewählt. Der Name des vom
Benutzer gewählten Verzeichnisses wird in Directory zurückgeliefert.

Ist das ein Delphi-Bug ?

[shmia]

SelectDirectory benützt das sehr angestaubte Formular TSelectDirDlg.
Man sieht es an der Optik, die an Windows 3.11 erinnert. (zumindest D2 - D5)
Ich würde SelectDirectory in die Tonne werfen und eine Freeware-Komponente von
http://www.torry.net/pages.php?id=83 verwenden.

[marlem]

Hallo,

ich kllinke mich mal hier ein, weil es vom Thema her gut passt.

ich bin gerader an einem Delphi 1-Projekt und suche eine Möglichkeit sowas hier:
http://www.swissdelphicenter.ch/de/showcode.php?id=34

für Delphi 1 aufzurufen!
gibt es da was, eventuell Api?

Besten Dank im Voraus.

[SirThornberry]

die ApiFunktion lautet SHBrowseForFolder

[marlem]

Vielen Dank!