Подключение сетевого диска
Звонок по телефону: "Включи асю!" Включаю асю, сообщение: "Посмотри почту!" Смотрю почту, письмо: "Позвони мне!" Звоню, слышу: "Включи асю!" |
//Пример открытия стандартного диалога 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 := '\\myserver\public'; 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; |
Далее: Подключение сетевого диска 2 »»