function ConnectToUNC(APath, ALogin, APass: string; ACreateFolderName: string = ''): string;

begin

m := WNetAddConnection2(NetResource,

                              PAnsiChar(APass), {пароль, если нужно (или пусто (nil))}

                              PAnsiChar(ALogin), {имя юзера, если нужно (или пусто (nil))}

                              0 {CONNECT_UPDATE_PROFILE {восстановить соед. при входе в систему});

if (m = ERROR_SESSION_CREDENTIAL_CONFLICT) and // такой сет.диск уже подключен под другим логином - в винде это недопустимо (2 раза под разными логинами)...

   (ALogin <> '') then // ... и при этом у нас задан логин для подключения, то теперь пытаемся подключиться под текущим пользователем (под которым запущен этот процесс)

   begin

   m := WNetAddConnection2(NetResource,

         nil, //PAnsiChar(APath.Pass), {пароль, если нужно (или пусто (nil))}

         nil, //PAnsiChar(APath.Login), {имя юзера, если нужно (или пусто (nil))}

         0 {CONNECT_UPDATE_PROFILE {восстановить соед. при входе в систему});

   end;

// если все равно не удалось, меняем имя компьютера на его IP

if (m <> NO_ERROR) {and (m <> ERROR_SESSION_CREDENTIAL_CONFLICT)} then

   begin

   APath := ChangeShareNameToIP(APath); // меняем имя на IP: \Share\Folder -> \192.168.1.2\Folder

   m := WNetAddConnection2(NetResource,

                               PAnsiChar(APass), {пароль, если нужно (или пусто (nil))}

                               PAnsiChar(ALogin), {имя юзера, если нужно (или пусто (nil))}

                               0 {CONNECT_UPDATE_PROFILE {восстановить соед. при входе в систему});

   end;

 

if m in [NO_ERROR] then // если наконец подключили

   begin

   Result := IncludeTrailingPathDelimiter(APath) + ACreateFolderName; // запоминаем подключенный сетевой путь

   end else

   begin

   // если подключить не удалось, убираем последнюю папку (возможно ее не было) и подключаемся на уровень выше

   TmpLastFolder := GetLastFolder(APath); // запоминаем недостающую ПОСЛЕДНЮЮ папку

   APath := DelLastFolder(APath); // убираем последнюю папку: \Share\Folder\MyDocs\Pum-purum -> \Share\Folder\MyDocs

 

   ConnectToUNC(ExcludeTrailingPathDelimiter(APath), ALogin, APass, TmpStr);

   if TmpStr <> '' then // если задана папка на создание, создаем

      begin

      TmpStr := IncludeTrailingPathDelimiter(APath) + TmpStr;

      if not DirectoryExists(TmpStr) then

         if not CreateDir(TmpStr) then

            Print('Не удалось создать папку')

            else Result := TmpStr;

      end;

   end;

end;