Использование WNetAddConnection2

[Lokos]

Здравствуйте.

procedure TForm1.btn1Click(Sender: TObject);
var k:NETRESOURCE;
begin
k.lpLocalName:='K:';
k.lpRemoteName:='\\boss\base';
WNetAddConnection2(k,'vps891vps','Pavel',1);
end;

но сетевой диск не подключается((

[Баламут]

Вот так все работает. Ошибки все-таки нужно смотреть.

var
  k:NETRESOURCE;
  err: integer;
begin
k.lpLocalName:= 'k:';
k.lpProvider := nil;
k.dwType := RESOURCETYPE_DISK;
k.lpRemoteName:= '\\boss\base';

err := WNetAddConnection2(k,'vps891vps','Pavel',0);
ShowMessage(SysErrorMessage(err));
end;

[_SERGEYX_]

Нашел эту старую тему, поэтому новую создавать не буду...
Вопрос такой.... Как подключить облачный диск по WebDav (т.е. по защищенному https://).
Например, код выше в таком виде

var
  k:NETRESOURCE;
  err: integer;
begin
k.lpLocalName:= 'k:';
k.lpProvider := nil;
k.dwType := RESOURCETYPE_DISK;
k.lpRemoteName:= 'https://webdav.yandex.ru';

err := WNetAddConnection2(k,'login','pass',0);
//имя и пароль ввожу правильные
ShowMessage(SysErrorMessage(err));
end;

выдает ошибку "Не найдено сетевое имя". (При подключении дисков из локальной сети все работает.)

Или здесь нужно подключаться каким-то другим способом. Просветите, кто знает. Никогда с этим не работал.