Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 1 марта!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



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

Звонок по телефону: "Включи асю!"
Включаю асю, сообщение: "Посмотри почту!"
Смотрю почту, письмо: "Позвони мне!"
Звоню, слышу: "Включи асю!"


 //Пример открытия стандартного диалога 
 
 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;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS