Сетевая папка расшаривается, но к ней нет доступа

[calypso]

Весь код писать не буду, только основные фрагменты:

Function NetShareAdd(Servername : PWideChar; Level : DWORD; Buffer : Pointer;
    parm_err : LPDWORD) : DWORD; stdcall; external 'Netapi32.dll';

Константы остались из старого исходника, 90% что проблема в них:

//необходимые константы
const
{см. LmCons.pas}
LM20_NNLEN = 12;
SHPWLEN = 8;
SHI50F_RDONLY = 1;
SHI50F_FULL = 2;
STYPE_DISKTREE = 0;
SHI50F_PERSIST = $0100;
SHI50F_SYSTEM = $0200;
{см. LmErr.pas}
NERR_BASE = 2100;
NERR_NetNotStarted = NERR_BASE+2;
NERR_UnknownServer = NERR_BASE+3;
NERR_ServerNotStarted = NERR_BASE+14;
NERR_UnknownDevDir = NERR_BASE+16;
NERR_RedirectedPath = NERR_BASE+17;
NERR_DuplicateShare = NERR_BASE+18;
NERR_BufTooSmall = NERR_BASE+23;
NERR_NetNameNotFound = NERR_BASE+210;
NERR_InvalidComputer = NERR_BASE+251;
NERR_ShareNotFound = NERR_BASE+292;

Тут вроде всё правильно:

Type
TShareInfo2 = Packed Record
    shi2_netname: LPWSTR; //сетевое имя
    shi2_type: DWORD; //тип ресурса
    shi2_remark: LPWSTR; // комментарий
    shi2_permissions: DWORD; //флаг доступа
    shi2_max_uses: DWORD;
    shi2_current_uses: DWORD;
    shi2_path: LPWSTR; // путь к ресурсу
    shi2_passwd: LPWSTR;//пароль полного доступа
    shi50_ro_password: Array[0..SHPWLEN] Of Char;//пароль "только чтение" доступа
End; {Record}
PShareInfo2=^TShareInfo2;
TShareInfo2Array=array[0..512] of TShareInfo2;
PShareInfo2Array=^TShareInfo2Array;

Сам код:

shi2_netname:= PWideChar(NetName); //сетевое имя
shi2_type := STYPE_DISKTREE; //подключать будем диск
shi2_remark:=PWideChar(Comment); //комментарий
shi2_permissions:= SHI50F_RDONLY OR SHI50F_FULL //доступ определяется паролем
                    OR SHI50F_PERSIST;//и пишется в Registry
shi2_max_uses:=4;
shi2_current_uses:=0;
shi2_path:=PWideChar(Path); //путь
shi2_passwd:='ASDF'; //пароль для полного доступа
End;{With}
//основная функция
rc := NetShareAdd(PWideChar(ServerName), 2, @info2, nil);

Всё расшаривается, но когда захожу с другого компьютера - доступа к папке нет. Если расшарить её "руками", то всё работает.

[Пепел Феникса]

после расшаривания из проги проверьте права.

[calypso]

Вообщем на вкладке доступ, Разрешения стоит "Все" полный доступ, изменение, чтение:

[calypso]

Сегодня ещё поковырялся с этой головоломкой. Чертовщина какая-то.
Клиент Windows XP SP3, сервер (где расшарена папка) Vista SP2.
Сделал такой же точно код на Visual Studio 2008 C++ , естественно там никаких packed record писать не нужно, а просто подключаешь готовую структуру ShareInfo2.
Всё работает, шара открывается с полным доступом и удаляется через NetShareDel.

На Дельфях нет доступа. Всё что только можно перепробовал, и константы, и пароли пустые\не пустые, и ACCESS_READ \ ACCESS_ALL - ничего не помогает.
"Не найден сетевой путь, обратитесь к администратору".
Интересно что вместо обычного общего доступа открывается дополнительный.
А вот на Visual C++ папка расшаривается обычным доступом.
Возможно причина в этом.