SelectDirectory

← →
APXi © (2004-03-05 18:57) [0]

Как сделать чтобы при вызове окна выбора директорий
SelectDirectory(const Caption: string; const Root: WideString; out Directory: string) автоматически открывался путь переданный в Directory.
Root неподходит.

← →
Fay © (2004-03-05 18:59) [1]

Передай в Directory

← →
Defunct © (2004-03-05 18:59) [2]

ChDir("путь переданный в Directory");
SelectDirectory(const Caption: string; const Root: WideString; out Directory: string);

← →
Fay © (2004-03-05 19:04) [3]

var
s : String;
begin
c := "c:\";
SelectDirectory("qwe", "", c);
end;

← →
APXi © (2004-03-05 19:06) [4]

(3) Неработает так

← →
Fay © (2004-03-05 19:07) [5]

Покажи код. Очень интересно.

← →
Fay © (2004-03-05 19:08) [6]

Согласен 8)

var
с : String;
begin
c := "c:\";
SelectDirectory("qwe", "", c);
end;

← →
APXi © (2004-03-05 19:09) [7]

Function MySelectDirectory(aDefDir:String) : String;
Var NewDir : String;
begin
NewDir := aDefDir;
If SelectDirectory(aDefDir, "", NewDir) then
Result := GetNormalPath(NewDir)
Else
Result := aDefDir;
end;

← →
Fay © (2004-03-05 19:12) [8]

GetNormalPath?

← →
APXi © (2004-03-05 19:14) [9]

(8) Это функция моя. Неимеет значение.
Так как сделать SelectDirectory?

← →
Defunct © (2004-03-05 19:24) [10]

procedure TForm1.Button2Click(Sender: TObject); Var NewDir: WideString; begin SelectDirectory("zzzz","C:\Windows\", NewDir); end;

← →
Defunct © (2004-03-05 19:26) [11]

парод, заметил что root не подходит

← →
Defunct © (2004-03-05 19:31) [12]

APXi © (05.03.04 19:06) [4]

Еще как работает.

Uses FileCtrl;

Fay © (05.03.04 19:08) [6]

Юзаем SelectDirectory из модуля FileCtrl;

← →
APXi © (2004-03-05 19:55) [13]

(12) Без модуля FileCtrl программа вообщебы некомпилировалась.
Ну неработает у меня так как в (6) у меня выделен постоянно (Мой компьютер)

← →
Fay © (2004-03-05 19:55) [14]

2 Defunct © (05.03.04 19:31) [12]
Это круто

← →
Fay © (2004-03-05 19:59) [15]

2 APXi © (05.03.04 19:55) [13]
Согласен. Под D5 тот же эффект.

Проверь почту

← →
Гаврила (2004-03-05 20:29) [17]

Выход только один - вызывать ShBrowseForFolder
при таком(более низкоуровневом) вызове возможность инициализировать начальную папку есть.
Подробности - в коде реализации SelectDirectory и и MSDN

Не понимаю проблемы. Все работает если внимательно почитать помощь..

← →
Гаврила (2004-03-05 20:43) [19]

[19] Гаврила (05.03.04 20:43)

Чушь. Работает.

← →
Гаврила (2004-03-05 21:04) [21]

>>olookin © (05.03.04 20:57) [20]
Сейчас D5 нет под рукой, чтобы проверить. Точно помню, что не работало. Возможно, дело в патчах, которые у меня не стояли

[21] Гаврила (05.03.04 21:04)

Может и в патчах дело но я под 5-й ей пользуюсь без проблем

SelectDirectory Найти похожие ветки