Воспользовался функцией SelectDirectory
.
Просто и более, менее удобно для быстрого программирования:
Path := 'C:\';
if FileCtrl.SelectDirectory(Path, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
Edit1.Text := Path;
UPD. Иногда, от программки, которая делает лишь backup, многого и не требуется.
Speed run coding есть и иногда стоит к нему прибегать, когда надо что-то навоять для внутреннего пользования и не тратя много на это времени.
Не коммерческий продакшн ведь.
По началу вообще хотел cmd-шку сделать. Но решил потренировать мозг себе.
А тут гуру налетели, дескать - сложное программирование, есть тру программирование!
Я просто удивился, что прожект в Delphi 7 нормально компилировался, в XE ругнулся на ShellTreeView. Вот и всего лишь.
P.S. Иногда в жизни важен лишь результат.
ShellTreeView
доступен в Delphi вплоть до версии XE6. Его так же можно установить и в более поздние версии: Where is TShellTreeView? АTreeView
совершенно другой компонент, не имеющий ничего общего сShellTreeView
и нельзя говорить, что в нём что-то убрали или добавили.