Как проверить есть ли у папки общий доступ?

[artemavd]

Добрый день!
Мне нужно программно проверить есть ли у папки общий доступ по сети и если да, то получить результат проверки в виде какого-то значения, можно через Result.
Я пробовал просто открыть каталог через сетевой адрес с помощью функции ShellExecute, но это не то.

 try
  ShellExecute(Handle,
               'open',
               PWideChar('\\' + Form_Main.Server.Text + '\' +
                         Form_Main.DBName.Text),
               nil,
               nil,
               SW_SHOWNORMAL);
  Form_Main.CheckShareAccess.Checked:=True;
 except
  begin
   Form_Main.CheckShareAccess.Checked:=False;
   MessageBox(Handle,
              PWideChar('Не настроен общий доступ к каталогу!'),
              'Проект 1',
              MB_ICONERROR);
   Exit;
  end;
 end;

Прошу помощи в решении вопроса.

[lomastr_]

А смысл в чем?
Это путь к базе? так сразу надо к ней и подключаться, подключилась - ок, иначе - см. ошибку.

[artemavd]

Сообщение от lomastr_

А смысл в чем?
Это путь к базе? так сразу надо к ней и подключаться, подключилась - ок, иначе - см. ошибку.

Нет, не к базе путь. Да не важно это. Я задал конкретный вопрос же: как проверить есть ли у папки общий доступ?. Если да, то как?

[kta87]

А вот и варианты от Google
Вариантов достаточно, выбирай какой сердцу ближе.

[artemavd]

Сообщение от kta87

А вот и варианты от Google
Вариантов достаточно, выбирай какой сердцу ближе.

Сам-то понял, что ты предложил ссылкой?

[Stilet]

Может это поможет?: https://msdn.microsoft.com/en-us/lib...=vs.85%29.aspx

Сам-то понял, что ты предложил ссылкой?

Ахахах! Красавчик

[Аватар]

http://delphiworld.narod.ru/base/is_folder_shared.html

не проверял насчет правильности. И надо ли?

[artemavd]

Сообщение от Stilet

Может это поможет?: https://msdn.microsoft.com/en-us/lib...=vs.85%29.aspx

Ахахах! Красавчик

Там на С#код, а я с ним как-то не очень) Ну, все равно спасибо за ссылку, потом посмотрю, если не найду другого решения.

[Stilet]

Там на С#код

Шта? О_о
Там нет шарпея.
Взял бы лучше эту функцию да в гугле прогнал. Получил бы и на Делфи примеры.

[artemavd]

Сообщение от Аватар

http://delphiworld.narod.ru/base/is_folder_shared.html
не проверял насчет правильности. И надо ли?

Ну, конечно надо).
Я вот проверяю. Сделал отдельный модуль, поместил туда код, подключил модули, которые надо, но компиляция модуля не идет, выдается ошибка: