Автор FrancheSko задал вопрос в разделе Другие языки и технологии
Как в Delphi задать открыть диалоговое окно выбора директории? и получил лучший ответ
Ответ от Prizrak Prizrak[активный]
1. Какая версия дельфи?
2. Конечно же есть стандартная, причем не процедура а уже кнопочка даже оформленная. (ищи на панели готовых кнопок)
3. Попробуй поставить другую версию (начни со старенькой 6.0), у меня пару раз было подобное, критовало хотя тот же текст или команды другая версия принимала на ура.
Ответ от Аццкий скорпиончег[гуру]
Текст процедуры выбора папки:
// Просим юзера выбрать требуемый каталог, стартовый каталог C:
if SelectDirectory('Выберите каталог', 'C:', chosenDirectory)
then ShowMessage('Выбранный каталог = '+chosenDirectory);
В качестве второго параметра можно поставить пустую строку '', чтобы обзор начался с Моего компьютера.. .
Т. е. в итоге у вас должно получиться что-то вроде:
procedure TForm1.Button1Click(Sender: TObject);
var chosenDirectory : string;
begin
if SelectDirectory('Выберите каталог', '', chosenDirectory)
then // нужные действия
end;
Текст процедуры выбора папки:
// Просим юзера выбрать требуемый каталог, стартовый каталог C:
if SelectDirectory('Выберите каталог', 'C:', chosenDirectory)
then ShowMessage('Выбранный каталог = '+chosenDirectory);
В качестве второго параметра можно поставить пустую строку '', чтобы обзор начался с Моего компьютера.. .
Т. е. в итоге у вас должно получиться что-то вроде:
procedure TForm1.Button1Click(Sender: TObject);
var chosenDirectory : string;
begin
if SelectDirectory('Выберите каталог', '', chosenDirectory)
then // нужные действия
end;
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Как в Delphi задать открыть диалоговое окно выбора директории?