Как открыть дерикторию ? компонентом SaveDialog

← →
Фёдор Мегатронов (2004-08-25 20:20) [0]

И этим ли компонентом вообще это делаеться ?

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

← →
Skier © (2004-08-25 20:29) [1]

см. в FileCtrl функцию SelectDirectory(...)

← →
Yanis © (2004-08-25 20:33) [2]

uses ShellAPI, ShlObj; var TitleName : string; lpItemID : PItemIDList; BrowseInfo : TBrowseInfo; DisplayName : array[0..MAX_PATH] of char; TempPath : array[0..MAX_PATH] of char; begin FillChar(BrowseInfo, sizeof(TBrowseInfo), #0); BrowseInfo.hwndOwner := Form1.Handle; BrowseInfo.pszDisplayName := @DisplayName; TitleName := "Please specify a directory"; BrowseInfo.lpszTitle := PChar(TitleName); BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS; lpItemID := SHBrowseForFolder(BrowseInfo); if lpItemId <> nil then begin SHGetPathFromIDList(lpItemID, TempPath); ShowMessage(TempPath); GlobalFreePtr(lpItemID); end;

← →
Фёдор Мегатронов (2004-08-25 20:42) [3]

Uses FileCtrl;

procedure TForm2.PathBtnClick(Sender: TObject);
var
Dir : String;
begin
Dir := "C:\";
if SelectDirectory(Dir, sdAllowCreate, SELDIRHELP)
then
Edit2.Text := Dir;

Он пишет - FileCtrl specific to platform

← →
Skier © (2004-08-25 20:56) [4]

>Фёдор Мегатронов (25.08.04 20:42) [3]

> Он пишет - FileCtrl specific to platform

Это не ошибка,а предупреждение и его можно отключить
(если ты не собираешься писать под Kyrix, то отключай смело...)

← →
Фёдор Мегатронов (2004-08-25 23:15) [5]

хм.. всё вродебы работает, за исключением того, что в этом окте (где выбирать деректорию) отсутствует половина папок 8) т.е. некоторые видны, а некоторые - нет ...
и интерфейс английский ... немного не в тему 0_о т.к. всё остальное в проге на великом и могучем

> отсутствует половина папок 8) т.е. некоторые видны, а некоторые - нет ...

Может им поставлены какие-нибудь аттрибуты, типа "Скрытая"

← →
heady (2004-09-03 21:33) [7]

a PathBtnClick откуда брать?
а то на SELDIRHELP ругается - undeclared identifer

Как открыть дерикторию ? компонентом SaveDialog Найти похожие ветки