Подключение сетевого диска 2Delphi , Интернет и Сети , Сетевые дискиПодключение сетевого диска 2
Автор: Mystic { **** UBPFD *********** by delphibase.endimus.com **** >> Подключение сетевого диска. Подсоединяет сетевой диск. Если надо, то производит отключение ранее подсоединенного диска (опция mndoDisconnect). При отключении диска можно дополнительно использовать опцию mndoForce для форсирования отключения сетевого диска. Если нужно дополнительно указывать имя пользователя и пароль, под которым необходимо произвести подключения, следует соответсвенным образом поменять параметры два и три при вызове функции WNetAddConnection2. Зависимости: Windows Автор: Mystic, mystic2000@newmail.ru, ICQ:125905046, Харьков Copyright: Mystic Дата: 5 марта 2003 г. ***************************************************** } type TMapNetworkDriveOption = set of (mndoDisconnect, mndoForce); function MapNetworkDrive(const NetworkPath: string; Letter: Char; Option: TMapNetworkDriveOption = []): DWORD; var NR: TNetResource; LocalName: string; begin LocalName := Letter + ':'; if mndoDisconnect in Option then begin Result := WNetCancelConnection2(PChar(LocalName), CONNECT_UPDATE_PROFILE, mndoForce in Option); if Result <> 0 then Exit; end; NR.dwType := RESOURCETYPE_DISK; NR.lpLocalName := PChar(LocalName); NR.lpRemoteName := PChar(NetworkPath); NR.lpProvider := nil; Result := WNetAddConnection2(NR, nil, nil, 0); end; Пример использования: MapNetwordDrive('\\MYSTICLAND\Humor', 'H'); Статья Подключение сетевого диска 2 раздела Интернет и Сети Сетевые диски может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Сетевые диски ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |