TOpenDialog проблеммка!!!!

← →
Cherepovets © (2003-03-31 09:43) [0]

Подскажите если OpenDialog такой что бы можно было просто обозначать папку, а не выделять файл. Или подскажите как это сделать?

← →
Md (2003-03-31 09:44) [1]

Может лучше использовать SHBrowseForFolder.....

← →
Cherepovets © (2003-03-31 09:46) [2]

Это диалог?

И как его использовать?

← →
Md (2003-03-31 09:53) [3]

Вот пример кода из рабочей программы

Uses ShlObj;

procedure TForm1.Button4Click(Sender: TObject);
Var BI:TBrowseInfo;
StartPIDL,ResPIDL:PItemIDList;
s,path:array [0..max_path-1] of WideChar;
begin
OleCheck(SHGetSpecialFolderLocation(Handle,CSIDL_DRIVES,StartPIDL));
With BI do
begin
hwndOwner:=Application.Handle;
pszDisplayName:=@s;
lpszTitle:="Выберете необходимую папку";
ulFlags:=BIF_RETURNONLYFSDIRS;
pidlRoot:=StartPIDL;
lpfn:=nil;
iImage:=1;
end;
ResPIDL:=SHBrowseForFolder(BI);
if SHGetPathFromIDList(ResPIDL,@Path[0]) then
ListBox1.Items.Add(StrPas(@Path[0])+"\");
end;

← →
alex_bredin © (2003-03-31 10:10) [4]

Вкладка Samples-ShellTreeView,ShellComboBox

← →
stone © (2003-03-31 10:43) [5]

Есть такая функция SelectDirectory

← →
Anatoly Podgoretsky © (2003-03-31 10:56) [6]

Если нужен выбор сетевых папок, то SelectDirectory не подходит

← →
Cherepovets © (2003-03-31 11:20) [7]

А есть что то похожее на OpenDialog?

← →
alex_bredin © (2003-03-31 11:22) [8]

а чем собственно ShellTreeView не нравится?

А собственно TreeView меня сам по себе не устраивает

> Если нужен выбор сетевых папок, то SelectDirectory не подходит

Что вы говорите?
Попробуйте

var
Dir: string;

if SelectDirectory("Обзор папок", "", Dir) then
Edit1.Text := dir;

Не хило код уменьшить мона!!!!

TOpenDialog проблеммка!!!! Найти похожие ветки