SelectDirectory overload начальная папка

[eks-s]

Люди умные, подскажите!

Использую перегруженную SelectDirectory для выбора папки.

Проблема: диалог всегда стартует с отображения свернутых папок Мои Документы, Мой Компьютер, Сетевое окружение. А хочется задать папку, которая будет выделена по умолчанию при появлении диалога.

Пробую так:

var
  s : string;
begin
  SetCurrentDirectory(PChar('D:\settings'));

  SelectDirectory('Выберите папку настроек', '', s, [sdNewFolder, sdShowEdit, sdNewUI, sdValidateDir], nil);

  EditDestination.Text := s;
end;

[NieL]

Сообщение от eks-s

А хочется задать папку, которая будет выделена по умолчанию при появлении диалога

var
  Def: string;
begin
  Def := 'D:\settings';
  SelectDirectory('Выберите папку настроек', '', Def);
  EditDestination.Text := Def;
end;

[eks-s]

Так всё просто
Спасибо огромное!