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

[kta87]

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

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

Дико извиняюсь, скопировал не из той вкладки

[Аватар]

Ок, отпишись если что получится?

в #19 уже отписался, копаться в коде нет ни какого желания

ADD подправил NextPIDL, заработало

  function NextPIDL(IDList: PItemIDList): PItemIDList;
   begin
     Result := IDList;
//     Inc(PChar(Result), IDList^.mkid.cb);
     Inc(PAnsiChar(Result), IDList^.mkid.cb);
   end;

Да, и та функция StrRetToString вообще не нужна, её можно смело удалить

[artemavd]

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

в #19 уже отписался, копаться в коде нет ни какого желания

ADD подправил NextPIDL, заработало

  function NextPIDL(IDList: PItemIDList): PItemIDList;
   begin
     Result := IDList;
//     Inc(PChar(Result), IDList^.mkid.cb);
     Inc(PAnsiChar(Result), IDList^.mkid.cb);
   end;

Да, и та функция StrRetToString вообще не нужна, её можно смело удалить

Аватар, спасибо за помощь, вроде бы как работает, но только немного не понятно для меня как. Эта функция будет срабатывать в случае если сам диск имеет общий доступ и папка, у которой я проверяю общий доступ, будет с открытым доступом настроена? Просто получается, что сейчас у меня сам диск имеет общий доступ, а у папки, что настроено в свойствах общий доступ, что нет, выдается сообщение, что папка not shared.
---
add
Я попробую упростить задачу. Что если через try...except обработать момент открытия. Ведь если к папке есть доступ по сети, то я смогу ее открыть в проводнике через ShellExecute из программы указав \\имя или адрес сервера\папка, а если к папке нет общего доступа, то попробовав открыть папку в проводнике по формату \\имя или адрес сервера\папка, то я получу ошибку с текстом, что Windows не может получить доступ.
Как отловить вот эту ошибку через try...except? Я пробовал делать так:

procedure TForm_Main.sButton2Click(Sender: TObject);
begin
 try
  ShellExecute(Handle,'open',PWideChar(Form_Main.sEdit1.Text),nil,nil,SW_SHOWNORMAL);
 except
  on E: Exception do
  begin
   ShowMessage('ошибка открытия!');
  end;
 end;
end;

но, сообщение не появляется, а если доступ по сети к папке есть, то она открывается из программы в проводнике.