VPF::Каталоги - Форум программистов

ProgrammistDelphi

Дата 1.2.2005, 13:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 37
Регистрация: 19.1.2005

Репутация: нет
Всего: нет

Такая проблема. Мне нужно выбрать каталог в сети, На каком-либо компе, где есть доступ на какую-будь папку. Но функция SelectDerictory не предостовляет возможности работы с сетью, а OpenDialog разрешает выбор только файлов, что мне делать? smile

И как мне можно проверить существование пути по сети.

SoWa

Дата 1.2.2005, 13:34 (ссылка)

(нет голосов)

Загрузка ...

Харекришна

Профиль
Группа: Комодератор
Сообщений: 2422
Регистрация: 18.10.2004

Репутация: 2
Всего: 74

\\User11\c:\KATAЛОГ

--------------------

Всем добра smile

ProgrammistDelphi

Дата 1.2.2005, 13:38 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 37
Регистрация: 19.1.2005

Репутация: нет
Всего: нет

SoWa Это я тоже знаю. Мне нужно выбрать каталог с помощью, какой-либо формы.

\User11\c:\KATAЛОГ - это нужно подставить в функцию фактическим параметром

SoWa

Дата 1.2.2005, 13:48 (ссылка)

(нет голосов)

Загрузка ...

Харекришна

Профиль
Группа: Комодератор
Сообщений: 2422
Регистрация: 18.10.2004

Репутация: 2
Всего: 74

А OpenDialog не может видеть сетевые директории?

--------------------

Всем добра smile

Girder

Дата 1.2.2005, 14:39 (ссылка)

(нет голосов)

Загрузка ...

Лентяй 2

Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

Репутация: 31
Всего: 155

Типо так:

Код

uses ShellAPI, ShlObj;

procedure TForm1.Button1Click(Sender: TObject);
var iID:PItemIDList;
    BI:TBrowseInfo;
    DisplayName,t:array[0..MAX_PATH-1] of char;
begin
 FillChar(BI,SizeOf(TBrowseInfo),#0);
 BI.hwndOwner:=Application.Handle;
 BI.pszDisplayName:=@DisplayName;
 BI.lpszTitle:=PChar('Выбирай... :)');
 BI.ulFlags:=BIF_RETURNONLYFSDIRS;
 iID:=SHBrowseForFolder(BI);
 if iID<>nil then
  begin
   SHGetPathFromIDList(iID,t);
   Caption:='Путь: '+t;
   Caption:=Caption+'; Типо папка: '+DisplayName;
   GlobalFreePtr(iID);
  end;
end;

--------------------

Как слышим, так и пишим.
Истина где-то там...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »