Profilspeicherwarnung unterdrücken

[Tubos]

Wie kann ich den Benutzer einen Ordner auswählen lassen?
Hab´ dafür in Delphi keinen geeigneten Dialog gefunden.
Wie kriege ich den Standard-Ordnerauswahl-Dialog? Sowas gibt´s doch, oder?

edit:
habe die lösung bei google gefunden:

Delphi-Quellcode:

var
  chosenDirectory : string;
begin
  // Ask the user to select a required directory, starting with C:
  if SelectDirectory('Select a directory', 'C:\', chosenDirectory)
  then ShowMessage('Chosen directory = '+chosenDirectory)
  else ShowMessage('Directory selection aborted');
end;