Подключение сетевого диска 2
Автор: Mystic
WEB-сайт: http://delphibase.endimus.com
{ **** UBPFD *********** by delphibase.endimus.com **** >> Подключение сетевого диска. Подсоединяет сетевой диск. Если надо, то производит отключение ранее подсоединенного диска (опция mndoDisconnect). При отключении диска можно дополнительно использовать опцию mndoForce для форсирования отключения сетевого диска. Если нужно дополнительно указывать имя пользователя и пароль, под которым необходимо произвести подключения, следует соответсвенным образом поменять параметры два и три при вызове функции WNetAddConnection2. Зависимости: Windows Автор: Mystic, [email protected], 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');
Далее: Подключение сетевого диска в Delphi »»