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

[Человек_Борща]

Ниче не видно на скрине.

[artemavd]

Сообщение от Человек_Борща

Ниче не видно на скрине.

Ошибка в этой строке:

  //Convert TStrRet to string
  function StrRetToString(PIDL: PItemIDList; StrRet: TStrRet; Flag: string = ''): string;
  var
    P: PChar;
  begin
    case StrRet.uType of
      STRRET_CSTR: SetString(Result, StrRet.cStr, lStrLen(StrRet.cStr));
      STRRET_OFFSET:
      begin
        P := @PIDL.mkid.abID[StrRet.uOffset - SizeOf(PIDL.mkid.cb)];
        SetString(Result, P, PIDL.mkid.cb - StrRet.uOffset);
       end;
      STRRET_WSTR:
        if Assigned(StrRet.pOleStr) then
          Result := StrRet.pOleStr
        else
          Result := '';
    end;
    { This is a hack bug fix to get around Windows Shell Controls returning
      spurious "?"s in date/time detail fields }
    if (Length(Result) > 1) and (Result[1] = '?') and (Result[2] in ['0'..'9']) then
      Result := StringReplace(Result, '?', '', [rfReplaceAll]);
  end;

а именно в

cStr

А текст ошибки такой:

[DCC Error] Unit_IfFolderShared.pas(26): E2010 Incompatible types: 'PWideChar' and 'array[0..259] of AnsiChar'

[Stilet]

Как я понял ругань тут: SetString(Result, StrRet.cStr, lStrLen(StrRet.cStr));
Видимо Какой то из параметров хочет преобразования.
Видимо придется писать lStrLen(@StrRet.cStr[1]);

[artemavd]

Stilet, да, преобразование помогло, проект скомпилировался. Однако, когда я указываю путь к папке, то выдается ошибка с текстом "Параметр задан неверно". Какой параметр? Путь, для теста, прописываю в Edit.

[Аватар]

Задаю
IfFolderShared('d:\Фотки') или IfFolderShared('d:\Фотки\')
нормально орёт not shared. Расшареных нет, не проверю. D7

[artemavd]

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

Задаю
IfFolderShared('d:\Фотки') или IfFolderShared('d:\Фотки\')
нормально орёт not shared. Расшареных нет, не проверю. D7

Странно, но у меня не работает. Может это из-за того, что функция проверки вынесена в отдельный модуль и ее надо перенести в основной модуль программы?

[Аватар]

функция проверки вынесена в отдельный модуль

Не. У тебя небось не старушка Д7, а поновее. Наверно отсюда и проблема

[artemavd]

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

У тебя небось не старушка Д7, а поновее. Наверно отсюда и проблема

Пишу прогу в Windows 8.1, а тестирую в Windows 7.
У меня Delphi XE

[Аватар]

Винда у меня тоже семерочка 64-битная. А делфя древняя. Сейчас попробую на XE2

ADD

XE2 - Параметр задан неверно - нужно копать серьезно, возможно из-за юникодности xe2

[artemavd]

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

Винда у меня тоже семерочка 64-битная. А делфя древняя. Сейчас попробую на XE2

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