Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Каталоги

Автор: ProgrammistDelphi 1.2.2005, 13:33

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

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

Автор: SoWa 1.2.2005, 13:34

\\User11\c:\KATAЛОГ

Автор: ProgrammistDelphi 1.2.2005, 13:38

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

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

Автор: SoWa 1.2.2005, 13:48

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

Автор: Girder 1.2.2005, 14:39

Типо так:

Код

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;