Подключение сетевого диска

Советы » Сеть » Подключение сетевого диска

//Пример открытия стандартного диалога 

procedure

TForm1.Button1Click(Sender: TObject); begin

WNetConnectionDialog(Handle,RESOURCETYPE_DISK) end

; //Так же можно подключить и принтер procedure

TForm1.Button1Click(Sender: TObject); begin

WNetConnectionDialog(Handle,RESOURCETYPE_PRINT) end

; //либо можно использовать следующий код procedure

TForm1.Button2Click(Sender: TObject); var

NetResource: TNetResource; begin

{ заполняем структуру TNetResource } NetResource.dwType := RESOURCETYPE_DISK; NetResource.lpLocalName := 'S:'; NetResource.lpRemoteName := 'myserverpublic'; NetResource.lpProvider := ''; { подключаем сетевой ресурс, используя структуру TNetResource } If

( WNetAddConnection2(NetResource, '', {Password (if needed) or empty} '', {User name (if needed) or empty} CONNECT_UPDATE_PROFILE)<>NO_ERROR) Then

Raise

Excepcion.Create('unable to map drive') //так же существуют другие константы для определения возникшей ошибки //ERROR_ACCESS_DENIED, ERROR_ALREADY_ASSIGNED, и т.д. end

; //так же можно и отключить сетевой ресурс... procedure

TForm1.Button2Click(Sender: TObject); begin

if

WNetCancelConnection2( 'S:',0,TRUE

) <> NO_ERROR then

Raise

Exception.create('Error disconnecting map drive'); //соответственно можно использовать другие константы для определения ошибки //ERROR_DEVICE_IN_USE, ERROR_NOT_CONNECTED, и т.д. end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com